;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/rfc2047.el
;;; in Emacs version 24.3.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\"\207" [require mm-util ietf-drums mail-prsvr rfc2045 autoload mm-body-7-or-8 "mm-bodies"] 3)
#@549 *Header/encoding method alist.
The list is traversed sequentially.  The keys can either be
header regexps or t.

The values can be:

1) nil, in which case no encoding is done;
2) `mime', in which case the header will be encoded according to RFC2047;
3) `address-mime', like `mime', but takes account of the rules for address
   fields (where quoted strings and comments must be treated separately);
4) a charset, in which case it will be encoded as that charset;
5) `default', in which case the field will be encoded as the rest
   of the article.
(defvar rfc2047-header-encoding-alist '(("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)) (#$ . -727))
#@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)) (#$ . 1530))
#@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)) (#$ . 2144))
#@48 Whether encoded words should be encoded again.
(defvar rfc2047-encode-encoded-words t (#$ . 2331))
#@47 *Whether to decode irregular Q-encoded words.
(defvar rfc2047-allow-irregular-q-encoded-words t (#$ . -2436))
#@35 Regexp that matches encoded word.
(defconst rfc2047-encoded-word-regexp "=\\?\\([^][- ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\\)\\?=" (#$ . 2552))
#@61 Regexp that matches encoded word allowing loose Q encoding.
(defconst rfc2047-encoded-word-regexp-loose "=\\?\\([^][- ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\\)?\\(?:[ ->@-~]+\\?+[ -<>@-~]\\)*[ ->@-~]*\\?*\\)\\?=" (#$ . 2748))
#@97 Return the type with which to encode the buffer.
This is either `base64' or `quoted-printable'.
(defalias 'rfc2047-qp-or-base64 #[nil "\212d\302e\\^\303eb\210\304	w\210`	W\203#T\305u\210\304	w\210\202\306_	eZW\2043\305U\2037\307\2028\310+\207" [n8bit limit 2000 0 " -
\n	" 1 6 quoted-printable base64] 3 (#$ . 3033)])
#@54 Narrow the buffer to the header on the current line.
(defalias 'rfc2047-narrow-to-field #[nil "\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 (#$ . 3370)])
#@41 Return the value of the field at point.
(defalias 'rfc2047-field-value #[nil "\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 (#$ . 3624)])
#@180 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.
(defalias 'rfc2047-quote-special-characters-in-quoted-strings #[(&optional encodable-regexp) "eb\210\306\307Q`\310\211\311 p\312\216\313\314 !\210m?\205g\310\315\316\217\203.\317\320!\210\2021db\210\214`}\210b\210\321\322\310\323#\203Z\324\224\211Sf\325=\2049\nb\210\nT\310\326\327\217\210\2029db\210)\317\330!\210`\202.\207" [ietf-drums-tspecials end beg start tspecials #1=#:buffer "[" "]" nil syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2=#:table set-syntax-table] 2)) set-syntax-table standard-syntax-table (byte-code "\300\301!\210`Sf\302=\207" [forward-list 1 41] 2) ((error)) forward-list -1 search-forward "\"" t 0 92 (byte-code "\304 \210`S	b\210\n\203\305\n\306#\203Tb\210\202T\214	}\210\305\307\310#\203P`Sf\311=\203C\312!\203=\307u\210\202!\313c\210\202!\314\224b\210\313c\210\307u\210\202!)\307u\210\307\207" [end beg encodable-regexp tspecials forward-sexp re-search-forward t nil move 92 looking-at "\\" 0] 4) ((error (goto-char beg))) 1 #2#] 5 (#$ . 3870)])
#@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 (#$ . 5085))
#@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 #[nil "\212eb\210\306\211\211m?\205\355\214\307 \210\306\n\211A@\211\203=	@;\203.\310	@!\2045	@\311=\203\306	A\202\312 \204j\313=\203K\314 \210\315 \316=\203\346\317 \203\346\320\f@!\203\346\321ed\322\f@!#\210\202\346\323\324\306\311#\210\313=\203~\325`d\"\210\202\346\326=\203\217\326\325`d\"\210)\202\346\327=\203\266\330\331!\203\346\332\333!\203\346\334\333!\203\346\203\346\321`d#\210\202\346\204\302\325`d\"\210\202\346\320!\203\346\330\331!\203\332\332\333!\203\332\334\333!\204\340\330\335!\203\346\321`d#\210db\210)\202\n,\207" [method elem alist rfc2047-header-encoding-alist message-posting-charset rfc2047-encoding-type nil rfc2047-narrow-to-field 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 mm-encode-coding-region mm-charset-to-coding-system re-search-forward "^[^:]+: *" rfc2047-encode-region mime default featurep mule boundp enable-multibyte-characters default-value file-coding mail-parse-charset] 5 (#$ . 5367) "*"])
#@106 Return non-nil if any characters in current buffer need encoding in headers.
The buffer may be narrowed.
(defalias 'rfc2047-encodable-p #[nil "\304\305!\210\306ed\"eb\210	\203\307\n\310\311#eb\210\206%\205%@C\232?)\207" [charsets rfc2047-encode-encoded-words rfc2047-encoded-word-regexp message-posting-charset require message mm-find-mime-charset-region re-search-forward nil t] 4 (#$ . 6638)])
(defconst rfc2047-syntax-table (byte-code "\301 \302\303\304 \305H#\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\306\321\320#\210\306\322\320#\210\306\323\320#\210\306\324\320#\210\306\325\320#\210\306\326\320#\210\306\327\320#\210)\207" [table 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] 5))
#@175 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.
(defalias 'rfc2047-encode-region #[(b e &optional dont-fold) "\214	}\210\n\203
\306\202\307\310\211\211\211\211\311	\"\312=\203ieb\210\313\310w\210m\204\205`\314\315!\203R\316\225\317\320#\203Rb\210\2027`V\203b\321`\"\210\202,b\210\202,\322!\210\323 p \324\216\325!!\210eb\210\326\327\330\217\210+.\"\204\221\331`\"\210db)\207" [b e rfc2047-encode-encoded-words orig-text last-encoded csyntax "[^-]+\\|=\\?" "[^-]+" 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 ((byte-code "rq\210\302	!\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table err (byte-code "m\204\323
\306\307w\210`\307f\203\307fz\211\310=\203X\311 \210`b\210\312\n\313#\203S\nb\210\314\315!\210b\210\314\316!\210\f\203G\317\307x\210\320c\210`\nT\321\n\322Z\"\210\323\202\307\202	\324=\203f\307u\210\307\202	\325=\203s\326\327!\210\202	\330=\203\215\331 \210\332\333T`S\"\210)\334\307w\210\202\307\n\204\206
m\204\206
\335\336!\203\344`/\337\225\312\340\n\313#\204\261\307\211\203\300`Sfz\341=\203\300\307u\210\202\243\n\203\344\337\2240\203\341/b\210\342\343\n\313#\203\344\337\224b\210\307\202\344\nb\210\n\204\217\335!\203\217\337\225\211/b\210\335\344!\203,
\337\225\211\203,
\312\n\323#\204
/`W\203,
/b\203,
\312\345\n\323#\203&
\337\224b\210\202,
\nb\210\202\365\335\346!\203\217\337\225\312\347\n\323#\203d
\n`U\204\217\335\350\351Q!\203R
\307\211\202\220\337\225Sb\210`\337\224U\204\217\352c\210\202\217\nb\210\306\307w\210\335\346!\203\200
\353\354\337!\"\203\200
\307\211\202\220\nb\210\202\217\306\307x\210`b\210\312\n\313#\203\316
Sf\355>\204\304
b\210\356\307x\210\335\347!\203\270
\337\225U\203\270
`\202\304
b\210\352c\210T\nT\321\n\"\210\323\202\307\202\307\207" [start csyntax end encodable-regexp last-encoded rfc2047-encoding-type " 	\n" nil 34 forward-sexp re-search-forward move delete-char -1 1 " 	" 32 rfc2047-encode 2 t 46 41 error "Unbalanced parentheses" 40 forward-list mime rfc2047-encode-region ")" looking-at "[-]+" 0 "[ 	\n]\\|\\Sw" 92 search-forward "=?" "[ 	\n]+\\([^ 	\n]+\\)" "\\Sw" "[^ 	\n]+" "\\Sw+" "\\sw*\\(" "\\)" " " string-match match-string (nil 9 32) "^ 	\n" begin rfc2047-encode-encoded-words] 5) ((error (byte-code "\204	\203\304\n@\nA\"\210\202\305\306\307\310\311#\"\210\304\207" [debug-on-quit debug-on-error err orig-text signal error "Invalid data for rfc2047 encoding: %s" mm-replace-in-string "[ 	\n]+" " "] 6))) rfc2047-fold-region begin end start encodable-regexp rfc2047-encoding-type #1# #2# rfc2047-syntax-table dont-fold] 9 (#$ . 7502)])
#@114 Encode words in STRING.
By default, the string is treated as containing addresses (see
`rfc2047-encoding-type').
(defalias 'rfc2047-encode-string #[(string &optional dont-fold) "\303\304!rq\210\305\216\306 \210	c\210\307ed\n#\210\310 +\207" [#1=#:temp-buffer string dont-fold generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte rfc2047-encode-region buffer-string] 4 (#$ . 10463)])
#@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 (#$ . 10932))
#@38 Subroutine used by `rfc2047-encode'.
(defalias 'rfc2047-encode-1 #[(column string cs encoder start crest tail &optional eword) "\306\230\203\f	\206y
\306\207\n\204\"\f
\203\307
\"\202!\310Q\207\nY\203f	\203S\311\312	\"\203=	\313\211\224O\202S\311\314	\"\203S\315\313	\"P	\313\211\224O\316G
\f\317	\320Q&\207\313GS\306\321\211\203
X\203
\f
\203\226\307\313TO
\"\202\234\313TO!\310QG\\\211\nV\203\272\321\211\202yW\204\325\311\320\"\206\317G\\\nX\203\341T\202w\311\322\"\203
\313\211\225O\323\313\225\321OQT\202w\321\211\204|V\203!
	Q\202x
\313U\203M
	\203E
\311\314	\"\203E
\315\313	\"P	\313\211\224O\202U
	P\202U
\317	P\311\312	\"\203b
	\313\211\224O\316G\321O
\f\317	\320Q&-\207" [string eword rfc2047-encode-max-chars start encoder cs "" mm-encode-coding-string "?=" string-match "\n[ 	]+\\'" 0 "(+\\'" match-string rfc2047-encode-1 " " "\n" nil "\\`)+" "\n " column crest tail len next prev limit index] 12 (#$ . 11209)])
#@80 Encode the word(s) in the region B to E.
Point moves to the end of the region.
(defalias 'rfc2047-encode #[(b e) "\306	\"\206	\307C\310\211\211\211\211()\310)>\203!\311C))G\312V\2033\313\314\315	\"\"\202
)G\312U\203
)@)\316)!(\317 \203R\320(!\204U\310(\214	}\210)*\236A\206o\321 \322=\203n\323\202o\324~\210	b\210\325\310w\210\315	`\"b\210\326 \327 	\310\223\330\331 \"\210b\210\325\310x\210\332\310x\333U\204\244\315`\"\334\331 Z\335\315	\"\336\337#(
+\236A\206\274\340\341\342)!\227\343\342
!\226\343\260\206\317\344\f&\211\333H\345=\203\350n\203\344`S\202\352`\202\352b	\fG\\|\210\nc\210\310\211\223\210	\310\211\223\210\fG\333U?\206\f
m\206\f
\346\347!?\205
\344c)\202
	b.\207" [b e eword crest tail encoding 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 mm-replace-in-string "\n\\([ 	]?\\)" "\\1" identity "=?" symbol-name "?" " " 10 looking-at "[ 	\n)]" cs mime-charset rfc2047-charset-encoding-alist rfc2047-encode-function-alist] 11 (#$ . 12298)])
#@32 Fold the current header field.
(defalias 'rfc2047-fold-field #[nil "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-fold-region] 3 (#$ . 13573)])
#@35 Fold long lines in region B to E.
(defalias 'rfc2047-fold-region #[(b e) "\214	}\210eb\210\306\211\307\214~\210\310 )m\204\321
\204!\f\203U`\nZ\311V\203U
\206.\fb\210\306\211\312\306x\210\313\314!\203D\315c\210\202G\316c\210`S\312\306w\210m\204U\317u\210\306f\315=\203z\317u\210`\306\211\312\306w\210m\204\314\306f\315=\204\314\317u\210\202\314\306f\320=\203\207\317u\210\202\314\306f\321>\203\233\312\306w\210\204\314`\202\314
\204\310\313\322!\204\271\306f\323=\203\262\317u\210\202\314\324\306w\210\202\314`U\204\301`\325\306w\210\202\314\325\306w\210\306\202
\204\331\f\205
`\nZ\311V\205

\206\346\fb\210\306\211\326\312\306xV\204\372\313\314!\203
\315c\210\202
\316c\210`S\312\306w\210m?\205
\317u-\207" [b e bol first qword-break break nil t point-at-bol 76 " 	" looking-at "[ 	]" 10 "\n " 1 13 (32 9) "=\\?[^=]" 61 "^ 	\n
=" "^ 	\n
" 0] 5 (#$ . 13742)])
#@24 Fold the current line.
(defalias 'rfc2047-unfold-field #[nil "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-unfold-region] 3 (#$ . 14662)])
#@32 Unfold lines in region B to E.
(defalias 'rfc2047-unfold-region #[(b e) "\214	}\210eb\210\214~\210\304 )\305 \306y\210m?\205C\307\310!\2037\305 Z\311W\2037\n\211b\210\312\313w\210`|\210\202:\304 \305 \306y\210\202+\207" [b e eol bol point-at-bol point-at-eol 1 looking-at "[ 	]" 76 "
\n" nil] 3 (#$ . 14827)])
#@47 Base64-encode the header contained in STRING.
(defalias 'rfc2047-b-encode-string #[(string) "\301\302\"\207" [string base64-encode-string t] 3 (#$ . 15155)])
(autoload 'quoted-printable-encode-region "qp")
#@47 Quoted-printable-encode the header in STRING.
(defalias 'rfc2047-q-encode-string #[(string) "\302\303!rq\210\304\216\305 \210	c\210\306ed\307\310$\210\311ed\312\313$\210\314 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# 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] 5 (#$ . 15368)])
#@187 Return and 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.
(defalias 'rfc2047-encode-parameter #[(param value) "\304\305\306\n\307\310\"\"*\207" [rfc2047-encode-max-chars rfc2047-encoding-type param value mime nil rfc2045-encode-string rfc2047-encode-string t] 5 (#$ . 15837)])
#@64 If non-nil, quote decoded words containing special characters.
(defvar rfc2047-quote-decoded-words-containing-tspecials nil (#$ . 16251))
#@426 *Non-nil means allow incomplete encoded-text in successive encoded-words.
Dividing of encoded-text in the place other than character boundaries
violates RFC2047 section 5, while we have a capability to decode it.
If it is non-nil, the decoder will decode B- or Q-encoding in each
encoded-word, concatenate them, and decode it by charset.  Otherwise,
the decoder will fully decode each encoded-word before concatenating
them.
(defvar rfc2047-allow-incomplete-encoded-text t (#$ . -16396))
#@53 Strip backslashes in quoted strings.  `\"' remains.
(defalias 'rfc2047-strip-backslashes-in-quoted-strings #[nil "eb\210\303\304 p\305\216\306\307 !\210\310\311\303\312#\2050`Sf\313=\204\314\225\314\224b\210\303\315\316\217\210\202,\207" [beg #1=#:buffer #2=#:table nil syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table standard-syntax-table search-forward "\"" t 92 0 (byte-code "\301 \210\214`S}\210b\210\302\303\304\305#\203%\304f\306>\204\307\310!\210\304u\210\202\f)\304u\207" [beg forward-sexp search-forward "\\" nil move (34) delete-char -1] 4) ((error (goto-char beg)))] 4 (#$ . 16890)])
#@288 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.
(defalias 'rfc2047-charset-to-coding-system #[(charset &optional allow-override) ";\203\n\305\227!\203 	\306=\204 \306	>\204 	>\203\"\n\307\310#\211\311=\2039\307\n!\2065\312\202R\313\f!\204R\203R	<\203R\314	>\203R\307\n!\f\311=\203\\\312\202]\f)\207" [charset mail-parse-ignored-charsets mail-parse-charset allow-override cs intern gnus-all mm-charset-to-coding-system nil ascii raw-text mm-coding-system-p gnus-unknown] 5 (#$ . 17561)])
(autoload 'quoted-printable-decode-string "qp")
#@150 Decode successive encoded-words in WORDS and return a decoded string.
Each element of WORDS looks like (CHARSET ENCODING ENCODED-TEXT
ENCODED-WORD).
(defalias 'rfc2047-decode-encoded-words #[(words) "\306\211\211\211\211\211\203a\211A@\307
@\211\310\"\211\203V\311\312\313\217\203V\203M\211@@)=\203M@\211@A)	P\241\210\202\f	BB\202\f\306\314
8BB\202\f\203\242\211@@)\211\203x\311\315\316\217\206\226A\205~\317\211@A)\205\225\320!\321=?\205\225\317QPA\211\204e.\207" [rest text encoding cs charset word nil rfc2047-charset-to-coding-system t code (byte-code "\302\303A@\"\203\304\305\3068!!\211\207\302\307A@\"\205(\310\311\312\313\3068\314$!\211\207" [word text char-equal 66 base64-decode-string rfc2047-pad-base64 2 81 quoted-printable-decode-string mm-subst-char-in-string 95 32 t] 6) ((error (byte-code "\301\302\303!\"\210\304\207" [code message "%s" error-message-string nil] 4))) 3 (byte-code "\303\211@A)\n\"\207" [rest x cs mm-decode-coding-string] 4) ((error (byte-code "\301\302\303!\"\210\304\207" [code message "%s" error-message-string nil] 4))) " " string-to-char 32 words rfc2047-allow-incomplete-encoded-text x] 7 (#$ . 18368)])
#@173 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.
(defalias 'rfc2047-decode-region #[(start end &optional address-mime) "\306\203	\307\202\n\310\311\211\211\211)\212\214*+}\210\203%\312 \210*\211b\210\313
\311\306#\211\203\213
\314\224\315\225+\311\n\203g\316\317!\320\224f\316\320!\317\311O\316\314!F	B\321
!\211\203>\315\225\211+b\210\202>+|\210\322	\237!c\210\214`}\210b\210\313\323\311\306#\203\211\324\325!\210\202zd+,\203c
\326\327-\"@\211.\205\307\214~\210Sf\330=\205\255+f\330=?\205\306\331 \210\311f\332>\203\302\333\334y!\204\264\321.!))\203c
\311/b\210\335\311w\210`*\311f\330=/db\210\335*x\210/\205\370`*TV\205\370`Sf\330=\211/\203

\334u\210*T*\336 +\202
\336 +*b\210\337\340+\306#\2038
\334u\210\333\341\311x\317\246!\315\224b\210\2032
\342c\210\311u\210\202
/\204\\
*b\210\313\3430\344Q+\306#\203\\
*b\210\340c\210+b\210\340c\210+\311\211\223\210)db\210)\345 \203\206
1\203\206
1\346=\204\206
1\347=\204\206
\350\f1#\210`\202+\345 \205\253
1\205\253
1\346=?\205\253
1\347=?\205\253
\350\fd1#.\207" [rfc2047-allow-irregular-q-encoded-words words match e b eword-regexp 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) zerop -1 " 	" point-marker search-forward "\"" "\\\\" "\\" "[" "]" mm-multibyte-p us-ascii gnus-decoded mm-decode-coding-region case-fold-search start end rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist regexp quoted ietf-drums-tspecials mail-parse-charset] 7 (#$ . 19600) "r"])
#@152 Decode MIME-encoded words in region between START and END.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.
(defalias 'rfc2047-decode-address-region #[(start end) "\302	\303#\207" [start end rfc2047-decode-region t] 4 (#$ . 21699)])
#@164 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.
(defalias 'rfc2047-decode-string #[(string &optional address-mime) "\306\307\"\203\321
\310\311!r	q\210\312\216\313 \210c\210ed\n\314
\203&\315\202'\316\317\211\211\2116789:;\212\214\f}\210\n\203D\320 \210\f\2119b\210\321:\317\314#\2117\203\251
\322\2248\323\225\31767\203\215\324\325!\326\224f\324\326!\325\317O\324\322!F6B6\327:!\2117\203`\323\225\211b\210\202`8|\210\3306\237!c\210\2148`}\2108b\210\321\331\317\314#\203\262\332\333!\210\202\243d<\203~
\334\302=\"@\211>\205\357\214~\2108Sf\335=\205\325f\335=?\205\356\336 \210\317f\337>\203\352\340\341y!\204\334\327>!))\203~
\317?8b\210\342\317w\210`\317f\335=?db\210\342\fx\210?\205
`\fTV\205
`Sf\335=\211?\2030
\341u\210\fT\343 \2023
\343 \fb\210\344\345\314#\203X
\341u\210\340\346\317x\325\246!\323\224b\210\203R
\347c\210\317u\210\2026
?\204x
\fb\210\321\350@\351Q\314#\203x
\fb\210\345c\210b\210\345c\210\317\211\223\210)db\210)\352 \203\243
A\203\243
A\353=\204\243
A\354=\204\243
\35598A#\210`9\202J\352 \205\312
A\205\312
A\353=?\205\312
A\354=?\205\312
\3559dA#.\210\356 +\207\n\203\364
\310\311!BrBq\210\357\216\360!\203\352
\313 \210c\210\320 \210\356 +A\203A\353=\204A\354=\204\361\362!\203\362\314\"\363=\203\207\364A\"\207\365!\207" [string #1=#:temp-buffer address-mime end start rfc2047-allow-irregular-q-encoded-words string-match "=\\?" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# 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 0 match-string 2 3 looking-at rfc2047-decode-encoded-words "[\n
]+" replace-match " " rassq 34 beginning-of-line (32 9) zerop -1 " 	" point-marker search-forward "\"" "\\\\" "\\" "[" "]" mm-multibyte-p us-ascii gnus-decoded mm-decode-coding-region buffer-string ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-multibyte-string-p fboundp detect-coding-string undecided mm-decode-coding-string mm-string-to-multibyte words match e b eword-regexp case-fold-search rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist regexp quoted ietf-drums-tspecials mail-parse-charset #2#] 6 (#$ . 21983)])
#@143 Decode MIME-encoded STRING and return the result.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.
(defalias 'rfc2047-decode-address-string #[(string) "\301\302\"\207" [string rfc2047-decode-string t] 3 (#$ . 24724)])
#@25 Pad STRING to quartets.
(defalias 'rfc2047-pad-base64 #[(string) "\302G\303\"\304U\203\f\207\305\306\"\203\304\211\224O\302G\303\"\307	\304\"\203*\202L\307	\310\"\2035\202L\307	\311\"\203B\312P\202L\307	\313\"\205L\314P)\207" [string #1=#:--cl-var-- mod 4 0 string-match "=+$" eql 1 2 "==" 3 "="] 3 (#$ . 24992)])
(provide 'rfc2047)