HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/mail/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/mail/rfc2047.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\211\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 \202d}\210eb\207" [beginning-of-line 1 re-search-forward "^[^ \n	]" nil t point-at-bol] 5 (#$ . 3688)])
#@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 (#$ . 3940)])
#@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\202Hdb\210\214`}\210b\210\323\324\303\325#\203\325\306\224\262\206a`Sf\326=\204Pb\210T\262\3271\316\330 \210`S\262b\210\203\221\331\325#\203\221Tb\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\202Pdb\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 (#$ . 4184)])
#@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 (#$ . 5332))
#@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\351\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\206\315=\203g\316 \210\317 \320=\203\342\321 \203\342\322\n@!\203\342\323ed\311\n@!#\210\202\342\324\325\305\313#\210\315=\203\232\326`d\"\210\202\342\327=\203\253\327\326`d\"\210)\202\342\330=\203\304\331\332!\203\342\f\203\342\323`d\f#\210\202\342\204\320\326`d\"\210\202\342\322!\203\342\331\332!\203\342\323`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 address-mime rfc2047-quote-special-characters-in-quoted-strings mm-body-7-or-8 8bit mm-multibyte-p mm-coding-system-p encode-coding-region re-search-forward "^[^:]+: *" rfc2047-encode-region mime default default-value enable-multibyte-characters] 9 (#$ . 5614) "*"])
#@106 Return non-nil if any characters in current buffer need encoding in headers.
The buffer may be narrowed.
(defalias 'rfc2047-encodable-p #[0 "\303\304!\210\305ed\"eb\210\203\306	\307\310#eb\210\206$\211\205$\211\n@C\232?\207" [rfc2047-encode-encoded-words rfc2047-encoded-word-regexp message-posting-charset require message mm-find-mime-charset-region re-search-forward nil t] 5 (#$ . 6883)])
(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))
#@205 Encode words in region B to E that need encoding.
By default, the region is treated as containing RFC2822 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\261`\262\313\314!\203G\315\225\262\316\317#\203Gb\210\202-`V\203W\320`\"\210\202\"b\210\202\"\321!\210\322 p\323\315\324\325\326\"\327\"\330$\216\331\n!\210eb\210\3321\221m?\205\215\312\307w\210`\262\307f\203\307fz\211\262\333=\203\347\334 \210`\262b\210\316	\335#\203\341b\210\336\337!\210b\210\336\340!\210\203\322\341\307x\210\342c\210`\262T\262\320\330Z\"\210\317\262\202\307\262\202\343=\203\366\307u\210\307\262\202\344=\203\345\346!\210\202\347=\203\350 \210\311\351T`S\"\210)\352\307w\210\202\307\262\204+m\204+\313\353!\203}`\262\315\225\262\316\354\335#\204G\307\211\262\203V`Sfz\355=\203V\307u\210\2027\203}\315\224\262\203yb\210\356\357\335#\203}\315\224b\210\307\262\202}b\210\204!\313	!\203!\315\225\211\262b\210\313\360!\203\312\315\225\211\262\203\312\316	\317#\204\236`W\203\312b\203\312\316\361\317#\203\303\315\224b\210\202\312b\210\202\220\313\362!\203!\315\225\262\316\363\317#\203`U\204!\313\364\n\365Q!\203\364\307\262\202!\315\225Sb\210`\315\224U\204!\366c\210\202!b\210\312\307w\210\313\362!\203$\367	\370\315!\"\203$\307\262\202!b\210\202!\312\307x\210`\262b\210\316	\335#\203\207\206F`Sf\371>\204zb\210\372\307x\210\313\363!\203i\315\225U\203i`\262\202zb\210\366c\210T\262T\262\320\"\210\317\262\202\307\262\2020\202\255\204\231\f\203\242\373@A\"\202\253\345\374\375\376\366#\"\262\210)\266\266\211\204\274\377`\"\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 rfc2047-quote-special-characters-in-quoted-strings 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 46 41 error "Unbalanced parentheses" 40 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 (#$ . 7735)])
#@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 (#$ . 10468)])
#@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 (#$ . 10952))
#@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\206x\301\207\204'\203!\302		\"\202#!\303Q\207Y\203p\211\203Y\304\305\"\203C\211\306\211\224O\262\202Y\304\307\"\203Y\310\306\"P\262\211\306\211\224O\262\311G\312\313\fQ&\207\306GS\301\314\211\203X\203\n\f\203\231\302\306	TO\"\202\240
\306TO!\303Q\262\fG\\\262\211V\203\273\262\314\262\202xW\204\323\211\304\313	\"\206\315G\\X\203\335\262T\262\202x\304\315\"\203\377\306\211\225O\316\306\225\314OQ\262\262T\262\202x\262\314\262\202xV\203Q\202v\306U\203D\203<\304\307\"\203<\310\306\"P\262\306\211\224O\262\202LP\262\202L\312\262P\262\304\305\"\203[\306\211\224O\262\311G
\314O


\312

\313Q&\266\205\207" [rfc2047-encode-max-chars "" encode-coding-string "?=" string-match "\n[ 	]+\\'" 0 "(+\\'" match-string rfc2047-encode-1 " " "\n" nil "\\`)+" "\n "] 24 (#$ . 11230)])
#@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\361n\203\355`S\202\364`\202\364bG\\|\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 (#$ . 12322)])
#@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 (#$ . 13606)])
#@45 Fold long lines in region B to E.

(fn B E)
(defalias 'rfc2047-fold-region #[514 "\214}\210eb\210\300\211\301\214~\210\302 )m\204\327\204\203T`Z\303V\203T\206*b\210\300\262\300\262\304\300x\210\305\306!\203B\307c\210\202E\310c\210`S\262\304\300w\210m\204T\311u\210\300f\307=\203|\311u\210`\262\300\262\300\262\304\300w\210m\204\321\300f\307=\204\321\311u\210\202\321\300f\312=\203\211\311u\210\202\321\300f\313>\203\236\304\300w\210\204\321`\262\202\321\204\315\305\314!\204\274\300f\315=\203\265\311u\210\202\321\316\300w\210\202\321`U\204\306`\262\317\300w\210\202\321\317\300w\210\300\262\202\204\337\205`Z\303V\205\206\354b\210\300\262\300\262\320\304\300xV\204\305\306!\203\307c\210\202\310c\210`S\262\304\300w\210m?\205\311u\266\204)\207" [nil t point-at-bol 76 " 	" looking-at "[ 	]" 10 "\n " 1 13 (32 9) "=\\?[^=]" 61 "^ 	\n
=" "^ 	\n
" 0] 9 (#$ . 13773)])
#@24 Fold the current line.
(defalias 'rfc2047-unfold-field #[0 "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-unfold-region] 3 (#$ . 14713)])
#@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 (#$ . 14876)])
#@60 Base64-encode the header contained in STRING.

(fn STRING)
(defalias 'rfc2047-b-encode-string #[257 "\300\301\"\207" [base64-encode-string t] 4 (#$ . 15213)])
(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 (#$ . 15427)])
#@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 (#$ . 15922)])
#@64 If non-nil, quote decoded words containing special characters.
(defvar rfc2047-quote-decoded-words-containing-tspecials nil (#$ . 16329))
(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 (#$ . 17078)])
#@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 (#$ . 17709)])
(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\201BB\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 (#$ . 18509)])
#@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\316\320!\317\311O\316\314!FB\262\321!\211\262\203=\315\225\211\262	b\210\202=|\210\322\237!c\210\214`}\210b\210\313\323\311\306#\203\212\324\325!\210\202{d\262\n\203_\326\327\"@\211\205\307\214~\210\206\242`Sf\330=\205\256f\330=?\205\306\331 \210\311f\332>\203\303\333y\315U\204\265\321!)\262\203_\311b\210\334\311w\210`\262\n\311f\330=\262db\210\334\nx\210\211\205\366`\nTV\205\366`Sf\330=\211\262\203\333u\210	T\262\n\335 \262	\202\335 \262		b\210\336\337\n\306#\2036\333u\210\340\311x\317\246\315U\315\224b\210\2030\341c\210\311u\210\202\211\204X	b\210\313\342\f\343Q\n\306#\203X	b\210\337c\210b\210\337c\210\311\211\223\266db\210)\344 \203~
\203~
\345=\204~
\346=\204~\347
#\210`\262\202'\344 \205\240
\205\240
\345=?\205\240
\346=?\205\240\347d
#+\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 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 (#$ . 19547) "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 (#$ . 21635)])
#@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\331\332!\320\325O\331\330!FB\262\333!\211\262\203`\313\225\211\262	b\210\202`|\210\334\237!c\210\214`}\210b\210\327\335\325\322#\203\255\336\337!\210\202\236d\262\n\203\202\340\341\"@\211\205\352\214~\210\206\305`Sf\342=\205\321f\342=?\205\351\343 \210\325f\344>\203\346\345y\313U\204\330\333!)\262\203\202\325b\210\346\325w\210`\262\n\325f\342=\262db\210\346\nx\210\211\205`\nTV\205`Sf\342=\211\262\203.\345u\210	T\262\n\347 \262	\2022\347 \262		b\210\350\351\n\322#\203Y\345u\210\352\325x\320\246\313U\313\224b\210\203S\353c\210\325u\210\2026\211\204{	b\210\327\354\f\355Q\n\322#\203{	b\210\351c\210b\210\351c\210\325\211\223\266db\210)\356 \203\241
\203\241
\357=\204\241
\360=\204\241\361
#\210`\262\202J\356 \205\303
\205\303
\357=?\205\303
\360=?\205\303\361d
#+\266\n\362 *\207\211\203\367\310\311!r\211q\210\312\313\314\315\316!\363\"\320$\216\364!\203\352\321 \210c\210\326 \210\362 *\262\262
\203
\357=\204
\360=\204\365\322\"\366=\203\207\367
\"\207\364!\203\207\367\357\"\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 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 (#$ . 21917)])
#@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 (#$ . 24606)])
#@38 Pad STRING to quartets.

(fn STRING)
(defalias 'rfc2047-pad-base64 #[257 "\300G\301\"\302U\203\207\303\304\"\203\211\302\211\224O\262\300G\301\"\211\305\267\2028\2029\2029\306P\2029\307P\2029\310\207" [mod 4 0 string-match "=+$" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 36 1 40 2 44 3 50)) "==" "=" nil] 4 (#$ . 24875)])
(provide 'rfc2047)