;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 \202d}\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\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 (#$ . 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#\203Gb\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\337b\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\202zW\204\327\211\304\314 \"\206\321G\\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\202zV\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\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 (#$ . 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\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 (#$ . 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\256f\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\236d\262\n\203\202\341\342 \"@\211\205\352\214~\210\206\305`Sf\343=\205\321f\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)