Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
binhex.elc	8.56 KB	-rw-r--r--
blessmail.el	2.5 KB	-rw-r--r--
emacsbug.elc	15 KB	-rw-r--r--
feedmail.elc	98.21 KB	-rw-r--r--
flow-fill.elc	3.15 KB	-rw-r--r--
footnote.elc	26.54 KB	-rw-r--r--
hashcash.elc	10.83 KB	-rw-r--r--
ietf-drums.elc	8.65 KB	-rw-r--r--
mail-extr.elc	32.53 KB	-rw-r--r--
mail-hist.elc	13.44 KB	-rw-r--r--
mail-parse.elc	2.3 KB	-rw-r--r--
mail-prsvr.elc	1.08 KB	-rw-r--r--
mail-utils.elc	10.13 KB	-rw-r--r--
mailabbrev.elc	14.4 KB	-rw-r--r--
mailalias.elc	14.49 KB	-rw-r--r--
mailclient.elc	4.13 KB	-rw-r--r--
mailheader.elc	5.54 KB	-rw-r--r--
metamail.elc	4.21 KB	-rw-r--r--
mspools.elc	8.74 KB	-rw-r--r--
qp.elc	4.14 KB	-rw-r--r--
reporter.elc	9 KB	-rw-r--r--
rfc2045.elc	826 B	-rw-r--r--
rfc2047.elc	24.87 KB	-rw-r--r--
rfc2231.elc	6.35 KB	-rw-r--r--
rfc2368.elc	2.32 KB	-rw-r--r--
rfc822.elc	5.45 KB	-rw-r--r--
rmail-loaddefs.el	7.79 KB	-rw-r--r--
rmail-spam-filter.elc	12.71 KB	-rw-r--r--
rmail.elc	124.13 KB	-rw-r--r--
rmailedit.elc	9.82 KB	-rw-r--r--
rmailkwd.elc	4.98 KB	-rw-r--r--
rmailmm.elc	41.24 KB	-rw-r--r--
rmailmsc.elc	1.34 KB	-rw-r--r--
rmailout.elc	17.84 KB	-rw-r--r--
rmailsort.elc	6.17 KB	-rw-r--r--
rmailsum.elc	54.29 KB	-rw-r--r--
sendmail.elc	53.92 KB	-rw-r--r--
smtpmail.elc	25.46 KB	-rw-r--r--
supercite.elc	57.29 KB	-rw-r--r--
uce.elc	7.54 KB	-rw-r--r--
undigest.elc	7.81 KB	-rw-r--r--
unrmail.elc	5.25 KB	-rw-r--r--
uudecode.elc	5.26 KB	-rw-r--r--
yenc.elc	3.48 KB	-rw-r--r--

Code Editor : rfc2047.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\310\311\312\313\314\315\316\317&\210\320\321\322\323\324DD\325\326\327%\207" [require mm-util ietf-drums mail-prsvr rfc2045 autoload mm-body-7-or-8 "mm-bodies" custom-declare-group rfc2047 nil "RFC2047 messages." :group mail :prefix "rfc2047-" custom-declare-variable rfc2047-header-encoding-alist funcall function #[0 "\300\207" [(("Newsgroups") ("Followup-To") ("Message-ID") ("\$Resent-\$?\$From\\|Cc\\|To\\|Bcc\\|\\(In-\$?Reply-To\\|Sender\\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\)" . address-mime) (t . mime))] 1] "Header/encoding method alist.\nThe list is traversed sequentially.  The keys can either be\nheader regexps or t.\n\nThe values can be:\n\n1) nil, in which case no encoding is done;\n2) `mime', in which case the header will be encoded according to RFC2047;\n3) `address-mime', like `mime', but takes account of the rules for address\n   fields (where quoted strings and comments must be treated separately);\n4) a charset, in which case it will be encoded as that charset;\n5) `default', in which case the field will be encoded as the rest\n   of the article." :type (alist :key-type (choice regexp (const t)) :value-type (choice (const nil) (const mime) (const address-mime) coding-system (const default)))] 8)
#@164 Alist of MIME charsets to RFC2047 encodings.
Valid encodings are nil, `Q' and `B'.  These indicate binary (no) encoding,
quoted-printable and base64 respectively.
(defvar rfc2047-charset-encoding-alist '((us-ascii) (iso-8859-1 . Q) (iso-8859-2 . Q) (iso-8859-3 . Q) (iso-8859-4 . Q) (iso-8859-5 . B) (koi8-r . B) (iso-8859-7 . B) (iso-8859-8 . B) (iso-8859-9 . Q) (iso-8859-14 . Q) (iso-8859-15 . Q) (iso-2022-jp . B) (iso-2022-kr . B) (gb2312 . B) (gbk . B) (gb18030 . B) (big5 . B) (cn-big5 . B) (cn-gb . B) (cn-gb-2312 . B) (euc-kr . B) (iso-2022-jp-2 . B) (iso-2022-int-1 . B) (viscii . Q)) (#$ . 1736))
#@51 Alist of RFC2047 encodings to encoding functions.
(defvar rfc2047-encode-function-alist '((Q . rfc2047-q-encode-string) (B . rfc2047-b-encode-string) (nil . identity)) (#$ . 2350))
#@48 Whether encoded words should be encoded again.
(defvar rfc2047-encode-encoded-words t (#$ . 2537))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable rfc2047-allow-irregular-q-encoded-words funcall function #[0 "\300\207" [t] 1] "Whether to decode irregular Q-encoded words." :type boolean] 6)
#@35 Regexp that matches encoded word.
(defconst rfc2047-encoded-word-regexp "=\\?\$[^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\$\\?=" (#$ . 2864))
#@61 Regexp that matches encoded word allowing loose Q encoding.
(defconst rfc2047-encoded-word-regexp-loose "=\\?\$[^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\$?\$?:[ ->@-~]+\\?+[ -<>@-~]\$*[ ->@-~]*\\?*\\)\\?=" (#$ . 3060))
#@97 Return the type with which to encode the buffer.
This is either `base64' or `quoted-printable'.
(defalias 'rfc2047-qp-or-base64 #[0 "\212d\300e\\^\301eb\210\302w\210`W\203\"�\211T\262\303u\210\302w\210\202�\304_eZW\2042�\211\303U\2036�\305\2027�\306\266\202)\207" [2000 0 " -
\n	" 1 6 quoted-printable base64] 5 (#$ . 3345)])
#@54 Narrow the buffer to the header on the current line.
(defalias 'rfc2047-narrow-to-field #[0 "\300 \210`\301y\210\302\303\304\305#\203�\306 \202�d}\210eb\207" [beginning-of-line 1 re-search-forward "^[^ \n	]" nil t point-at-bol] 5 (#$ . 3685)])
#@41 Return the value of the field at point.
(defalias 'rfc2047-field-value #[0 "\212\214\300 \210\301\302\303\304#\210\305`d\"*\207" [rfc2047-narrow-to-field re-search-forward ":[ 	\n]*" nil t buffer-substring-no-properties] 4 (#$ . 3937)])
(make-obsolete 'rfc2047-quote-special-characters-in-quoted-strings nil "27.1")
#@213 Quote special characters with `\'s in quoted strings.
Quoting will not be done in a quoted string if it contains characters
matching ENCODABLE-REGEXP or it is within parentheses.

(fn &optional ENCODABLE-REGEXP)
(defalias 'rfc2047-quote-special-characters-in-quoted-strings #[256 "eb\210\301\302Q`\303\211\304 p\305\306\307\310\311\"\312\"\313$\216\314\315 !\210m?\205\343�\31617�\317\320!\210`Sf\321=0\202;�\210\202E�\203E�\317\322!\210\202H�db\210\214`}\210b\210\323\324\303\325#\203\325�\306\224\262\206a�`Sf\326=\204P�b\210T\262\3271\316�\330 \210`S\262b\210\203\221�\331\325#\203\221�Tb\202\312�\214}\210\331\303\332#\203\307�`Sf\326=\203\272�\333!\203\264�\303u\210\202\226�\334c\210\202\226�\306\224b\210\334c\210\303u\210\202\226�)\303u0\202\321�\210b\210\202P�db\210)\317\320!\210`\262\202!�)\266\202\207" [ietf-drums-tspecials "[" "]" nil syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table standard-syntax-table (error) forward-list 1 41 -1 search-forward "\"" t 92 (error) forward-sexp re-search-forward move looking-at "\\"] 14 (#$ . 4260)])
#@219 The type of encoding done by `rfc2047-encode-region'.
This should be dynamically bound around calls to
`rfc2047-encode-region' to either `mime' or `address-mime'.  See
`rfc2047-header-encoding-alist', for definitions.
(defvar rfc2047-encoding-type 'address-mime (#$ . 5408))
#@127 Encode the message header according to `rfc2047-header-encoding-alist'.
Should be called narrowed to the head of the message.
(defalias 'rfc2047-encode-message-header #[0 "\212eb\210\305\211\211\211m?\205\310�\214\306 \210\305\262\262\307ed\"\262\211G\310U\203-�\311@!	B\202.�	\211A\262\242\211\262\203Y�@;\203H�\312@!\204O�@\313=\203/�\305\262A\262\202/�\314 \204}�\315 \316=\203\301�\317 \203\301�\320\n@!\203\301�\321ed\311\n@!#\210\202\301�\322\323\305\313#\210\324\267\202\251�\325`d\"\210\202\301�\326\325`d\"\210)\202\301�\f\203\301�\321`d\f#\210\202\301�\204\265�\325`d\"\210\202\301�\320!\203\301�\321`d#\210db\210*\202�\266\204)\207" [rfc2047-header-encoding-alist mm-coding-system-priorities message-posting-charset rfc2047-encoding-type mail-parse-charset nil rfc2047-narrow-to-field mm-find-mime-charset-region 1 mm-charset-to-coding-system looking-at t rfc2047-encodable-p mm-body-7-or-8 8bit mm-multibyte-p mm-coding-system-p encode-coding-region re-search-forward "^[^:]+: *" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (address-mime 137 mime 145 default 156)) rfc2047-encode-region mime] 9 (#$ . 5690) "*"])
#@106 Return non-nil if any characters in current buffer need encoding in headers.
The buffer may be narrowed.
(defalias 'rfc2047-encodable-p #[0 "\303ed\"eb\210\203�\304	\305\306#eb\210\206&�\211\205&�\211\307\302!\205\"�\n@C\232?\207" [rfc2047-encode-encoded-words rfc2047-encoded-word-regexp message-posting-charset mm-find-mime-charset-region re-search-forward nil t boundp] 5 (#$ . 6884)])
(defconst rfc2047-syntax-table (byte-code "\300 \301\302\303 \304H#\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\317#\210\305\321\317#\210\305\322\317#\210\305\323\317#\210\305\324\317#\210\305\325\317#\210\305\326\317#\210\211\207" [make-syntax-table set-char-table-range t standard-syntax-table 97 modify-syntax-entry 92 "\\" 34 "\"" 40 "(" 41 ")" 60 "." 62 91 93 58 59 44 64] 6))
#@216 Encode words in region B to E that need encoding.
By default, the region is treated as containing RFC 822 (or later) addresses.
Dynamically bind `rfc2047-encoding-type' to change that.

(fn B E &optional DONT-FOLD)
(defalias 'rfc2047-encode-region #[770 "\214}\210\203
�\305\202�\306\307\211\211\211\211\310		\"	\311=\203`�eb\210\312\307w\210m\204\243`\262\313\314!\203G�\315\225\262\316\317#\203G�b\210\202-�`V\203W�\320`\"\210\202\"�b\210\202\"�\202\243\321 p\322\315\323\324\325\"\326\"\327$\216\330\n!\210eb\210\3311\203m?\205\312\307w\210`\262\307f\203}�\307fz\211\262\332=\203\345�\333 \210`\262b\210\316	\334#\203\337�b\210\335\336!\210b\210\335\337!\210\203\320�\340\307x\210\341c\210`\262T\262\320\327Z\"\210\317\262\202}�\307\262\202}�\342\267\202\307u\210\307\262\202}�\343\344!\210\202}�\345 \210\311\346T`S\"\210)\347\307w\210\202}�\307\262\204m\204\313\350!\203o`\262\315\225\262\316\351\334#\2049\307\211\262\203H`Sfz\352=\203H\307u\210\202)\203o\315\224\262\203kb\210\353\354\334#\203o\315\224b\210\307\262\202ob\210\204\313	!\203\315\225\211\262b\210\313\355!\203\274\315\225\211\262\203\274\316	\317#\204\220`W\203\274b\203\274\316\356\317#\203\265\315\224b\210\202\274b\210\202\202\313\357!\203\315\225\262\316\360\317#\203\370`U\204\313\361\n\362Q!\203\346\307\262\202\315\225Sb\210`\315\224U\204\363c\210\202b\210\312\307w\210\313\357!\203\364	\365\315!\"\203\307\262\202b\210\202\312\307x\210`\262b\210\316	\334#\203y\2068`Sf\366>\204lb\210\367\307x\210\313\360!\203[\315\225U\203[`\262\202lb\210\363c\210T\262T\262\320\"\210\317\262\202}�\307\262\202}�0\202\237\204\213\f\203\224\370@A\"\202\235\343\371\372\373\363#\"\262\210)\266\266\211\204\256\374`\"\210db)\207" [rfc2047-encode-encoded-words rfc2047-encoding-type rfc2047-syntax-table debug-on-quit debug-on-error "[^�-]+\\|=\\?" "[^�-]+" nil buffer-substring-no-properties mime " 	\n" looking-at "[ 	\n]*\$[^ 	\n]+\$" 0 re-search-forward t rfc2047-encode syntax-table make-byte-code "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) 34 forward-sexp move delete-char -1 1 " 	" 32 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (46 235 41 244 40 251)) error "Unbalanced parentheses" forward-list rfc2047-encode-region ")" "[�-]+" "[ 	\n]\\|\\Sw" 92 search-forward "=?" "[ 	\n]+\$[^ 	\n]+\$" "\\Sw" "[^ 	\n]+" "\\Sw+" "\\sw*\$" "\$" " " string-match match-string (nil 9 32) "^ 	\n" signal "Invalid data for rfc2047 encoding: %s" replace-regexp-in-string "[ 	\n]+" rfc2047-fold-region] 19 (#$ . 7730)])
#@147 Encode words in STRING.
By default, the string is treated as containing addresses (see
`rfc2047-encoding-type').

(fn STRING &optional DONT-FOLD)
(defalias 'rfc2047-encode-string #[513 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311 \210c\210\312ed#\210\313 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte rfc2047-encode-region buffer-string] 9 (#$ . 10494)])
#@222 Maximum characters of each header line that contain encoded-words.
According to RFC 2047, it is 76.  If it is nil, encoded-words
will not be folded.  Too small value may cause an error.  You
should not change this value.
(defvar rfc2047-encode-max-chars 76 (#$ . 10978))
#@102 Subroutine used by `rfc2047-encode'.

(fn COLUMN STRING CS ENCODER START CREST TAIL &optional EWORD)
(defalias 'rfc2047-encode-1 #[2055 "\301\230\203
�\211\206\201\301\207\204'�\203!�\302		\"\202#�!\303Q\207Y\203r�\211\203[�\304\305\"\203D�\306\307\211\224#\262\202[�\304\310\"\203[�\311\307\"P\262\306\307\211\224#\262\312G\313\314\fQ&\207\307GS\301\315\211\203
X\203
\n\f\203\234�\302\306\307\nT#\"\202\244�\306\307	T#!\303Q\262\fG\\\262\211V\203\277�\262\315\262\202z�W\204\327�\211\304\314	\"\206\321�G\\X\203\341�\262T\262\202z�\304\316\"\203\306\307\211\225#\317\306	\307\225\"Q\262\262T\262\202z�\262\315\262\202z�V\203Q\202\307U\203K\203C\304\310\"\203C\311\307\"P\262\306\307\211\224#\262\202SP\262\202S\313\262P\262\304\305\"\203d\306\307\211\224#\262\312G\306\"

\313

\314Q&\266\205\207" [rfc2047-encode-max-chars "" encode-coding-string "?=" string-match "\n[ 	]+\\'" substring 0 "(+\\'" match-string rfc2047-encode-1 " " "\n" nil "\\`)+" "\n "] 24 (#$ . 11256)])
#@90 Encode the word(s) in the region B to E.
Point moves to the end of the region.

(fn B E)
(defalias 'rfc2047-encode #[514 "\302\"\206	�\303C\304\211\211\211\211\211>\203�\305C\262G\306V\203,�\307\310\311\n\n\"\"\202&G\306U\203#@\262\312!\262\313 \203H�\314!\204K�\304\262\214}\210\236A\206e�\315 \316=\203d�\317\202e�\320\262~\210b\210\321\304w\210\311`\"\262b\210\322 \262\323 \304\223\262\324\325 	\"\210b\210\321\304x\210\326\304x\327U\204\246�\311`	\"\262\330\325 Z\331\332\333\311

\"#	\236A\206\301�\334\335\336\f!\227\337\336\f!\226\337\260\206\326�\340	&\262\211\327H\341=\203\361�n\203\355�`S\202\364�`\202\364�bG\\|\210\211c\210\304\211\223\210\304\211\223\210G\327U?\206m\206\342\343!?\205\340c)\202&b\207" [rfc2047-charset-encoding-alist rfc2047-encode-function-alist mm-find-mime-charset-region us-ascii nil utf-8 1 error "Can't rfc2047-encode `%s'" buffer-substring-no-properties mm-charset-to-coding-system mm-multibyte-p mm-coding-system-p rfc2047-qp-or-base64 base64 B Q "^ 	\n" point-marker make-marker rfc2047-fold-region point-at-bol " 	" 0 rfc2047-encode-1 replace-regexp-in-string "\n\$[ 	]?\$" "\\1" identity "=?" symbol-name "?" " " 10 looking-at "[ 	\n)]"] 18 (#$ . 12385)])
#@32 Fold the current header field.
(defalias 'rfc2047-fold-field #[0 "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-fold-region] 3 (#$ . 13669)])
#@45 Fold long lines in region B to E.

(fn B E)
(defalias 'rfc2047-fold-region #[514 "\214}\210eb\210\300\211\214~\210\301 )\211`U\206!�\214~\210\212\302\303\304#*?m\204\307�\204-�\203A�`Z\305V\203A�\306\"\262\300\262\300\262\300f\307=\203i�\310u\210`\262\300\262\300\262\311\300w\210m\204!�\300f\307=\204!�\310u\210\202!�\300f\312=\203v�\310u\210\202!�\300f\313>\203\221�\311\300w\210\211\203\213�\300\262\202!�`\262\202!�\204\300�\314\315!\204\257�\300f\316=\203\250�\310u\210\202!�\317\300w\210\202!�`U\204\271�`\262\320\300w\210\202!�\320\300w\210\202!�\204\317�\205\333�`Z\305V\205\333�\306\"\266\204)\207" [nil line-beginning-position re-search-backward "[ 	]" t 76 rfc2047--break-line 10 1 " 	" 13 (32 9) looking-at "=\\?[^=]" 61 "^ 	\n
=" "^ 	\n
"] 9 (#$ . 13836)])
#@26

(fn BREAK QWORD-BREAK)
(defalias 'rfc2047--break-line #[514 "\206�\211b\210\300\301x\210\302\303!\203�\304c\210\202�\305c\210`S\300\301w\210m\204'�\306u\210\207" [" 	" nil looking-at "[ 	]" 10 "\n " 1] 5 (#$ . 14637)])
#@24 Fold the current line.
(defalias 'rfc2047-unfold-field #[0 "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-unfold-region] 3 (#$ . 14868)])
#@42 Unfold lines in region B to E.

(fn B E)
(defalias 'rfc2047-unfold-region #[514 "\214}\210eb\210\214~\210\300 )\301 \302y\210m?\205C�\303\304!\2035�\301 Z\305W\2035�\211b\210\306\307w\210`|\210\2029�\300 \262\301 \262\302y\210\202�\266\202)\207" [point-at-bol point-at-eol 1 looking-at "[ 	]" 76 "
\n" nil] 7 (#$ . 15031)])
#@60 Base64-encode the header contained in STRING.

(fn STRING)
(defalias 'rfc2047-b-encode-string #[257 "\300\301\"\207" [base64-encode-string t] 4 (#$ . 15368)])
(autoload 'quoted-printable-encode-region "qp")
#@60 Quoted-printable-encode the header in STRING.

(fn STRING)
(defalias 'rfc2047-q-encode-string #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311 \210c\210\312ed\313\314$\210\315ed\316\317$\210\320 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-disable-multibyte quoted-printable-encode-region nil "-\n\f !#-'*+0-9A-Z\\^`-~" subst-char-in-region 32 95 buffer-string] 8 (#$ . 15582)])
#@203 Return a PARAM=VALUE string encoded in the RFC2047-like style.
This is a substitution for the `rfc2231-encode-string' function, that
is the standard but many mailers don't support it.

(fn PARAM VALUE)
(defalias 'rfc2047-encode-parameter #[514 "\302\303\304\305\306\"\"*\207" [rfc2047-encode-max-chars rfc2047-encoding-type mime nil rfc2045-encode-string rfc2047-encode-string t] 7 (#$ . 16077)])
#@64 If non-nil, quote decoded words containing special characters.
(defvar rfc2047-quote-decoded-words-containing-tspecials nil (#$ . 16484))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable rfc2047-allow-incomplete-encoded-text funcall function #[0 "\300\207" [t] 1] "Non-nil means allow incomplete encoded-text in successive encoded-words.\nDividing of encoded-text in the place other than character boundaries\nviolates RFC2047 section 5, while we have a capability to decode it.\nIf it is non-nil, the decoder will decode B- or Q-encoding in each\nencoded-word, concatenate them, and decode it by charset.  Otherwise,\nthe decoder will fully decode each encoded-word before concatenating\nthem." :type boolean] 6)
#@53 Strip backslashes in quoted strings.  `\"' remains.
(defalias 'rfc2047-strip-backslashes-in-quoted-strings #[0 "eb\210\300\301 p\302\303\304\305\306\"\307\"\310$\216\311\312 !\210\313\314\300\315#\205j�`Sf\316=\204�\303\225\262\303\224b\210\3171c�\320 \210\214`S}\210b\210\313\321\300\322#\203\\�\300f\323=\204V�\324\325!\210\300u\210\202C�)\300u0\202f�\210b\210\202�)\266\202\207" [nil syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table standard-syntax-table search-forward "\"" t 92 (error) forward-sexp "\\" move 34 delete-char -1] 10 (#$ . 17233)])
#@327 Return coding-system corresponding to MIME CHARSET.
If your Emacs implementation can't decode CHARSET, return nil.

If allow-override is given, use `mm-charset-override-alist' to
map undesired charset names to their replacement.  This should
only be used for decoding, not for encoding.

(fn CHARSET &optional ALLOW-OVERRIDE)
(defalias 'rfc2047-charset-to-coding-system #[513 ";\203�\302\227!\262\203!�\303=\204!�\303>\204!�>\203$�	\262\304\305#\211\306=\203;�\304	!\2066�\307\262\202U�\310!\204U�\203U�<\203U�\311>\203U�\304	!\262\211\306=\203_�\307\202`�\211\207" [mail-parse-ignored-charsets mail-parse-charset intern gnus-all mm-charset-to-coding-system nil ascii raw-text mm-coding-system-p gnus-unknown] 6 (#$ . 17862)])
(autoload 'quoted-printable-decode-string "qp")
#@162 Decode successive encoded-words in WORDS and return a decoded string.
Each element of WORDS looks like (CHARSET ENCODING ENCODED-TEXT
ENCODED-WORD).

(fn WORDS)
(defalias 'rfc2047-decode-encoded-words #[257 "\301\211\211\211\203\210�\211@\302@\303\"\211\262\203x�\3041I�\305\306A@\"\203/�\307\310\3118!!\211\262\202E�\305\312A@\"\205E�\313\314\315\316\3118\303$!\211\2620\202S�\317\320\321!\"\210\301\262\203x�\203n�@@=\203n�@@AP\241\210\202\201�BB\262\202\201�\301\3228BB\262A\266\202\202�\210\301\262\211\203\330�\211@@\211\262\203\264�\3231\247�\324@A\"0\202\261�\317\320\321!\"\210\301\262\206\315�\211A\205\272�\325@A\205\314�\326!\316=?\205\314�\325QP\262\211A\262\202\214�\207" [rfc2047-allow-incomplete-encoded-text nil rfc2047-charset-to-coding-system t (error) char-equal 66 base64-decode-string rfc2047-pad-base64 2 81 quoted-printable-decode-string subst-char-in-string 95 32 message "%s" error-message-string 3 (error) decode-coding-string " " string-to-char] 12 (#$ . 18662)])
#@212 Decode MIME-encoded words in region between START and END.
If ADDRESS-MIME is non-nil, strip backslashes which precede characters
other than `"' and `\' in quoted strings.

(fn START END &optional ADDRESS-MIME)
(defalias 'rfc2047-decode-region #[770 "\306\203	�\307\202\n�\310\311\211\211\211\212\214}\210\203 �\312 \210\211\262b\210\313\311\306#\211\262\203\204\314\224\262\315\225\262\311\262\203h�\316\317!\320\224f\321\316\320!\317\"\316\314!FB\262\322!\211\262\203=�\315\225\211\262	b\210\202=�|\210\323\237!c\210\214`}\210b\210\313\324\311\306#\203\212�\325\326!\210\202{�d\262\n\203_\327\330\"@\211\205\307�\214~\210\206\242�`Sf\331=\205\256�f\331=?\205\306�\332 \210\311f\333>\203\303�\334y\315U\204\265�\322!)\262\203_\311b\210\335\311w\210`\262\n\311f\331=\262db\210\335\nx\210\211\205\366�`\nTV\205\366�`Sf\331=\211\262\203\334u\210	T\262\n\336 \262	\202\336 \262		b\210\337\340\n\306#\2036\334u\210\341\311x\317\246\315U\315\224b\210\2030\342c\210\311u\210\202\211\204X	b\210\313\343\f\344Q\n\306#\203X	b\210\340c\210b\210\340c\210\311\211\223\266db\210)\345 \203~
\203~
\346=\204~
\347=\204~\350
#\210`\262\202'�\345 \205\240
\205\240
\346=?\205\240
\347=?\205\240\350d
#+\207" [rfc2047-allow-irregular-q-encoded-words case-fold-search rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist ietf-drums-tspecials mail-parse-charset t "[\n	 ]*\$=\\?\\([^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\$?\$?:[ ->@-~]+\\?+[ -<>@-~]\$*[ ->@-~]*\\?*\\)\\?=\\)" "[\n	 ]*\$=\\?\\([^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\$\\?=\\)" nil rfc2047-strip-backslashes-in-quoted-strings re-search-forward 1 0 match-string 2 3 substring looking-at rfc2047-decode-encoded-words "[\n
]+" replace-match " " rassq address-mime 34 beginning-of-line (32 9) -1 " 	" point-marker search-forward "\"" "\\\\" "\\" "[" "]" mm-multibyte-p us-ascii gnus-decoded decode-coding-region] 14 (#$ . 19700) "r"])
#@168 Decode MIME-encoded words in region between START and END.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.

(fn START END)
(defalias 'rfc2047-decode-address-region #[514 "\300\301#\207" [rfc2047-decode-region t] 6 (#$ . 21799)])
#@200 Decode MIME-encoded STRING and return the result.
If ADDRESS-MIME is non-nil, strip backslashes which precede characters
other than `"' and `\' in quoted strings.

(fn STRING &optional ADDRESS-MIME)
(defalias 'rfc2047-decode-string #[513 "\306\307\"\203\312\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321 \210c\210ed\322\203,�\323\202-�\324\325\211\211\211\212\214}\210\203C�\326 \210\211\262b\210\327\325\322#\211\262\203\247\330\224\262\313\225\262\325\262\203\213�\331\320!\332\224f\333\331\332!\320\"\331\330!FB\262\334!\211\262\203`�\313\225\211\262	b\210\202`�|\210\335\237!c\210\214`}\210b\210\327\336\325\322#\203\255�\337\340!\210\202\236�d\262\n\203\202\341\342\"@\211\205\352�\214~\210\206\305�`Sf\343=\205\321�f\343=?\205\351�\344 \210\325f\345>\203\346�\346y\313U\204\330�\334!)\262\203\202\325b\210\347\325w\210`\262\n\325f\343=\262db\210\347\nx\210\211\205`\nTV\205`Sf\343=\211\262\203.\346u\210	T\262\n\350 \262	\2022\350 \262		b\210\351\352\n\322#\203Y\346u\210\353\325x\320\246\313U\313\224b\210\203S\354c\210\325u\210\2026\211\204{	b\210\327\355\f\356Q\n\322#\203{	b\210\352c\210b\210\352c\210\325\211\223\266db\210)\357 \203\241
\203\241
\360=\204\241
\361=\204\241\362
#\210`\262\202J�\357 \205\303
\205\303
\360=?\205\303
\361=?\205\303\362d
#+\266\n\363 *\207\211\203\367\310\311!r\211q\210\312\313\314\315\316!\364\"\320$\216\365!\203\352\321 \210c\210\326 \210\363 *\262\262
\203
\360=\204
\361=\204\366\322\"\367=\203\207\370
\"\207\365!\203\207\370\360\"\207" [rfc2047-allow-irregular-q-encoded-words case-fold-search rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist ietf-drums-tspecials mail-parse-charset string-match "=\\?" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte t "[\n	 ]*\$=\\?\\([^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\$?\$?:[ ->@-~]+\\?+[ -<>@-~]\$*[ ->@-~]*\\?*\\)\\?=\\)" "[\n	 ]*\$=\\?\\([^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\$\\?=\\)" nil rfc2047-strip-backslashes-in-quoted-strings re-search-forward 1 match-string 3 substring looking-at rfc2047-decode-encoded-words "[\n
]+" replace-match " " rassq address-mime 34 beginning-of-line (32 9) -1 " 	" point-marker search-forward "\"" "\\\\" "\\" "[" "]" mm-multibyte-p us-ascii gnus-decoded decode-coding-region buffer-string [buffer-name kill-buffer] multibyte-string-p detect-coding-string undecided decode-coding-string] 17 (#$ . 22081)])
#@156 Decode MIME-encoded STRING and return the result.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.

(fn STRING)
(defalias 'rfc2047-decode-address-string #[257 "\300\301\"\207" [rfc2047-decode-string t] 4 (#$ . 24781)])
#@38 Pad STRING to quartets.

(fn STRING)
(defalias 'rfc2047-pad-base64 #[257 "\300G\301\"\302U\203�\207\303\304\"\203�\305\302\211\224#\262\300G\301\"\211\306\267\2029�\202:�\202:�\307P\202:�\310P\202:�\311\207" [mod 4 0 string-match "=+$" substring #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 37 1 41 2 45 3 51)) "==" "=" nil] 5 (#$ . 25050)])
(provide 'rfc2047)

${this.title}

Code Editor : rfc2047.elc