Gecko [ goons4good.org ]

Name	Size	Permission	Date
.dir-locals.el	105 B	-rw-r--r--	2012-04-13 21:33
auth-source.elc	51.28 KB	-rw-r--r--	2023-06-07 04:09
canlock.elc	5.89 KB	-rw-r--r--	2023-06-07 04:09
compface.elc	1.34 KB	-rw-r--r--	2023-06-07 04:09
deuglify.elc	8.04 KB	-rw-r--r--	2023-06-07 04:09
ecomplete.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
flow-fill.elc	4.74 KB	-rw-r--r--	2023-06-07 04:09
gmm-utils.elc	7.46 KB	-rw-r--r--	2023-06-07 04:09
gnus-agent.elc	121.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-art.elc	256.06 KB	-rw-r--r--	2023-06-07 04:09
gnus-async.elc	12.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-bcklg.elc	3.42 KB	-rw-r--r--	2023-06-07 04:09
gnus-bookmark.elc	24.2 KB	-rw-r--r--	2023-06-07 04:09
gnus-cache.elc	25.68 KB	-rw-r--r--	2023-06-07 04:09
gnus-cite.elc	27.02 KB	-rw-r--r--	2023-06-07 04:09
gnus-cus.elc	38.53 KB	-rw-r--r--	2023-06-07 04:09
gnus-delay.elc	4.79 KB	-rw-r--r--	2023-06-07 04:09
gnus-demon.elc	7.77 KB	-rw-r--r--	2023-06-07 04:09
gnus-diary.elc	8.86 KB	-rw-r--r--	2023-06-07 04:09
gnus-dired.elc	7.65 KB	-rw-r--r--	2023-06-07 04:09
gnus-draft.elc	11.72 KB	-rw-r--r--	2023-06-07 04:09
gnus-dup.elc	4.45 KB	-rw-r--r--	2023-06-07 04:09
gnus-eform.elc	3.43 KB	-rw-r--r--	2023-06-07 04:09
gnus-ems.elc	5.94 KB	-rw-r--r--	2023-06-07 04:09
gnus-fun.elc	8.5 KB	-rw-r--r--	2023-06-07 04:09
gnus-gravatar.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
gnus-group.elc	151.52 KB	-rw-r--r--	2023-06-07 04:09
gnus-html.elc	14.29 KB	-rw-r--r--	2023-06-07 04:09
gnus-int.elc	63.73 KB	-rw-r--r--	2023-06-07 04:10
gnus-kill.elc	17.78 KB	-rw-r--r--	2023-06-07 04:10
gnus-logic.elc	5.07 KB	-rw-r--r--	2023-06-07 04:10
gnus-mh.elc	2.83 KB	-rw-r--r--	2023-06-07 04:10
gnus-ml.elc	5.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-mlspl.elc	6.3 KB	-rw-r--r--	2023-06-07 04:10
gnus-msg.elc	85.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-notifications.elc	5.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-picon.elc	8.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-range.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-registry.elc	31.31 KB	-rw-r--r--	2023-06-07 04:10
gnus-salt.elc	24.04 KB	-rw-r--r--	2023-06-07 04:10
gnus-score.elc	73.99 KB	-rw-r--r--	2023-06-07 04:10
gnus-setup.elc	4.95 KB	-rw-r--r--	2023-06-07 04:10
gnus-sieve.elc	8.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-spec.elc	14.81 KB	-rw-r--r--	2023-06-07 04:10
gnus-srvr.elc	48.21 KB	-rw-r--r--	2023-06-07 04:10
gnus-start.elc	144.43 KB	-rw-r--r--	2023-06-07 04:10
gnus-sum.elc	414.15 KB	-rw-r--r--	2023-06-07 04:10
gnus-sync.elc	21.49 KB	-rw-r--r--	2023-06-07 04:10
gnus-topic.elc	46.05 KB	-rw-r--r--	2023-06-07 04:10
gnus-undo.elc	4.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-util.elc	52.93 KB	-rw-r--r--	2023-06-07 04:10
gnus-uu.elc	55.72 KB	-rw-r--r--	2023-06-07 04:10
gnus-vm.elc	2.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-win.elc	10.58 KB	-rw-r--r--	2023-06-07 04:10
gnus.elc	156.43 KB	-rw-r--r--	2023-06-07 04:10
gravatar.elc	4.26 KB	-rw-r--r--	2023-06-07 04:10
gssapi.elc	2.41 KB	-rw-r--r--	2023-06-07 04:10
html2text.elc	10.47 KB	-rw-r--r--	2023-06-07 04:10
ietf-drums.elc	7.64 KB	-rw-r--r--	2023-06-07 04:10
legacy-gnus-agent.elc	6.54 KB	-rw-r--r--	2023-06-07 04:10
mail-parse.elc	2.39 KB	-rw-r--r--	2023-06-07 04:10
mail-prsvr.elc	1.23 KB	-rw-r--r--	2023-06-07 04:10
mail-source.elc	28.49 KB	-rw-r--r--	2023-06-07 04:10
mailcap.elc	24.93 KB	-rw-r--r--	2023-06-07 04:10
message.elc	227.03 KB	-rw-r--r--	2023-06-07 04:10
messcompat.elc	2.69 KB	-rw-r--r--	2023-06-07 04:10
mm-archive.elc	2.85 KB	-rw-r--r--	2023-06-07 04:10
mm-bodies.elc	5.99 KB	-rw-r--r--	2023-06-07 04:10
mm-decode.elc	50.6 KB	-rw-r--r--	2023-06-07 04:10
mm-encode.elc	6.2 KB	-rw-r--r--	2023-06-07 04:10
mm-extern.elc	4.28 KB	-rw-r--r--	2023-06-07 04:10
mm-partial.elc	3.37 KB	-rw-r--r--	2023-06-07 04:10
mm-url.elc	8.73 KB	-rw-r--r--	2023-06-07 04:10
mm-util.elc	39.65 KB	-rw-r--r--	2023-06-07 04:10
mm-uu.elc	18.9 KB	-rw-r--r--	2023-06-07 04:10
mm-view.elc	18.51 KB	-rw-r--r--	2023-06-07 04:10
mml-sec.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
mml-smime.elc	14.44 KB	-rw-r--r--	2023-06-07 04:10
mml.elc	42.01 KB	-rw-r--r--	2023-06-07 04:10
mml1991.elc	11.5 KB	-rw-r--r--	2023-06-07 04:10
mml2015.elc	33.95 KB	-rw-r--r--	2023-06-07 04:10
nnagent.elc	10.93 KB	-rw-r--r--	2023-06-07 04:10
nnbabyl.elc	17.15 KB	-rw-r--r--	2023-06-07 04:10
nndiary.elc	39.54 KB	-rw-r--r--	2023-06-07 04:10
nndir.elc	2.95 KB	-rw-r--r--	2023-06-07 04:11
nndoc.elc	30.11 KB	-rw-r--r--	2023-06-07 04:11
nndraft.elc	10.94 KB	-rw-r--r--	2023-06-07 04:11
nneething.elc	11.83 KB	-rw-r--r--	2023-06-07 04:11
nnfolder.elc	32.19 KB	-rw-r--r--	2023-06-07 04:11
nngateway.elc	3.04 KB	-rw-r--r--	2023-06-07 04:11
nnheader.elc	31.94 KB	-rw-r--r--	2023-06-07 04:11
nnimap.elc	68.59 KB	-rw-r--r--	2023-06-07 04:11
nnir.elc	56.96 KB	-rw-r--r--	2023-06-07 04:11
nnmail.elc	53.02 KB	-rw-r--r--	2023-06-07 04:11
nnmaildir.elc	97.58 KB	-rw-r--r--	2023-06-07 04:11
nnmairix.elc	72.67 KB	-rw-r--r--	2023-06-07 04:11
nnmbox.elc	18.82 KB	-rw-r--r--	2023-06-07 04:11
nnmh.elc	15.52 KB	-rw-r--r--	2023-06-07 04:11
nnml.elc	39.81 KB	-rw-r--r--	2023-06-07 04:11
nnnil.elc	1.77 KB	-rw-r--r--	2023-06-07 04:11
nnoo.elc	8.72 KB	-rw-r--r--	2023-06-07 04:11
nnregistry.elc	1.85 KB	-rw-r--r--	2023-06-07 04:11
nnrss.elc	30.01 KB	-rw-r--r--	2023-06-07 04:11
nnspool.elc	15.88 KB	-rw-r--r--	2023-06-07 04:11
nntp.elc	121.29 KB	-rw-r--r--	2023-06-07 04:11
nnvirtual.elc	18.42 KB	-rw-r--r--	2023-06-07 04:11
nnweb.elc	17.61 KB	-rw-r--r--	2023-06-07 04:11
plstore.elc	14.75 KB	-rw-r--r--	2023-06-07 04:11
pop3.elc	14.53 KB	-rw-r--r--	2023-06-07 04:11
qp.elc	4.35 KB	-rw-r--r--	2023-06-07 04:11
registry.elc	9.3 KB	-rw-r--r--	2023-06-07 04:11
rfc1843.elc	5.35 KB	-rw-r--r--	2023-06-07 04:11
rfc2045.elc	971 B	-rw-r--r--	2023-06-07 04:11
rfc2047.elc	24.75 KB	-rw-r--r--	2023-06-07 04:11
rfc2104.elc	1.43 KB	-rw-r--r--	2023-06-07 04:11
rfc2231.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
rtree.elc	4.3 KB	-rw-r--r--	2023-06-07 04:11
score-mode.elc	3.32 KB	-rw-r--r--	2023-06-07 04:11
shr-color.elc	9.11 KB	-rw-r--r--	2023-06-07 04:11
shr.elc	33.2 KB	-rw-r--r--	2023-06-07 04:11
sieve-manage.elc	17.1 KB	-rw-r--r--	2023-06-07 04:11
sieve-mode.elc	7.73 KB	-rw-r--r--	2023-06-07 04:11
sieve.elc	11.08 KB	-rw-r--r--	2023-06-07 04:11
smiley.elc	5.39 KB	-rw-r--r--	2023-06-07 04:11
smime.elc	19.61 KB	-rw-r--r--	2023-06-07 04:11
spam-report.elc	11.53 KB	-rw-r--r--	2023-06-07 04:11
spam-stat.elc	19.64 KB	-rw-r--r--	2023-06-07 04:11
spam-wash.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
spam.elc	83.9 KB	-rw-r--r--	2023-06-07 04:11
starttls.elc	6.42 KB	-rw-r--r--	2023-06-07 04:11
utf7.elc	5.83 KB	-rw-r--r--	2023-06-07 04:11
yenc.elc	3.62 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:17 2023
;;; 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)) (#$ . -723))
#@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)) (#$ . 1526))
#@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)) (#$ . 2140))
#@48 Whether encoded words should be encoded again.
(defvar rfc2047-encode-encoded-words t (#$ . 2327))
#@47 *Whether to decode irregular Q-encoded words.
(defvar rfc2047-allow-irregular-q-encoded-words t (#$ . -2432))
#@35 Regexp that matches encoded word.
(defconst rfc2047-encoded-word-regexp "=\\?\$[^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\$\\?=" (#$ . 2548))
#@61 Regexp that matches encoded word allowing loose Q encoding.
(defconst rfc2047-encoded-word-regexp-loose "=\\?\$[^][�- ()<>@,;:*\\\"/?.=]+\$\$?:\\*[^?]+\$?\\?\$B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\$?\$?:[ ->@-~]+\\?+[ -<>@-~]\$*[ ->@-~]*\\?*\\)\\?=" (#$ . 2744))
#@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 (#$ . 3029)])
#@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 \202�d}\210eb\207" [beginning-of-line 1 re-search-forward "^[^ \n	]" nil t point-at-bol] 5 (#$ . 3366)])
#@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 (#$ . 3620)])
#@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\2021�db\210\214`}\210b\210\321\322\310\323#\203Z�\324\224\211Sf\325=\2049�\nb\210\nT\310\326\327\217\210\2029�db\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#\203�Tb\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 (#$ . 3866)])
#@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 (#$ . 5081))
#@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 (#$ . 5363) "*"])
#@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 (#$ . 6634)])
(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=\203i�eb\210\313\310w\210m\204\205�`\314\315!\203R�\316\225\317\320#\203R�b\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\206m\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\316Sf\355>\204\304b\210\356\307x\210\335\347!\203\270\337\225U\203\270`\202\304b\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 (#$ . 7498)])
#@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 (#$ . 10459)])
#@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 (#$ . 10928))
#@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\203X\203\f
\203\226�\307\313TO
\"\202\234�\313TO!\310QG\\\211\nV\203\272�\321\211\202y�W\204\325�\311\320\"\206\317�G\\\nX\203\341�T\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 (#$ . 11205)])
#@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\350�n\203\344�`S\202\352�`\202\352�b	\fG\\|\210\nc\210\310\211\223\210	\310\211\223\210\fG\333U?\206\fm\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 (#$ . 12294)])
#@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 (#$ . 13569)])
#@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 (#$ . 13738)])
#@24 Fold the current line.
(defalias 'rfc2047-unfold-field #[nil "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-unfold-region] 3 (#$ . 14658)])
#@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 (#$ . 14823)])
#@47 Base64-encode the header contained in STRING.
(defalias 'rfc2047-b-encode-string #[(string) "\301\302\"\207" [string base64-encode-string t] 3 (#$ . 15151)])
(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 (#$ . 15364)])
#@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 (#$ . 15833)])
#@64 If non-nil, quote decoded words containing special characters.
(defvar rfc2047-quote-decoded-words-containing-tspecials nil (#$ . 16247))
#@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 (#$ . -16392))
#@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 (#$ . 16886)])
#@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 (#$ . 17557)])
(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\226�A\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 (#$ . 18364)])
#@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\202z�d+,\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\2061\203\2061\346=\204\2061\347=\204\206\350\f1#\210`\202+�\345 \205\2531\205\2531\346=?\205\2531\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 (#$ . 19596) "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 (#$ . 21695)])
#@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\243�d<\203~\334\302=\"@\211>\205\357�\214~\2108Sf\335=\205\325�f\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\243A\203\243A\353=\204\243A\354=\204\243\35598A#\210`9\202J�\352 \205\312A\205\312A\353=?\205\312A\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 (#$ . 21979)])
#@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 (#$ . 24720)])
#@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 (#$ . 24988)])
(provide 'rfc2047)