Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : mm-util.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:52 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/mm-util.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mm-util.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\302\303!\204\n�\303\304M\210\305\306!\210\305\307!\210\310\311\312\313\314\315\316\317\320B\321\322B\323\324B\325\326\327\330\331\332\333\334\335B\336\337B\340\341B\257\"\210\342\343\344\"\210\342\345\346\"\210\342\347\350\"\210\342\351\352\"\210\342\353\302\354!\203V�\354\202W�\355\"\210\342\356\302\357!\203e�\357\202p�\302\360!\203o�\360\202p�\361\"\210\362\363\364\365#\211\366\367\")=\203\212�\342\370\361\"\210\202\217�\342\370\371\"\210\342\372\302\373!\203\233�\373\202\234�\374\"\210\375	B\376\375!\204\257�\377\375\201@�\"\210\201@�\207" [char current-load-list fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) require mail-prsvr timer mapc #[(elem) "\302\303\304@\"!\305@!\203�\306	@\"\202�\306	A\")\207" [elem nfunc intern format "mm-%s" fboundp defalias] 4] (coding-system-list . ignore) (char-int . identity) (coding-system-equal . equal) (annotationp . ignore) (set-buffer-file-coding-system . ignore) read-charset #[(prompt) "\302\303\304\305	\"\306\307$!\207" [prompt mm-mime-mule-charset-alist intern completing-read mapcar #[(e) "\301@!C\207" [e symbol-name] 2] nil t] 6 "Return a charset."] subst-char-in-string #[(from to string &optional inplace) "\203�	\202�\306	!	G\307\nW\203+�	\nH\fU\203$�	\n
I\210\nT\211\202�	+\207" [inplace string idx len from to copy-sequence 0] 4 "Replace characters in STRING from FROM to TO.\n	  Unless optional argument INPLACE is non-nil, return a new string."] replace-in-string #[(string regexp rep &optional literal) "\304	\n\305%\207" [regexp rep string literal replace-regexp-in-string nil] 6 "See `replace-regexp-in-string', only the order of args differs."] (string-as-unibyte . identity) (string-make-unibyte . identity) (string-as-multibyte . identity) (multibyte-string-p . ignore) (insert-byte . insert-char) (multibyte-char-to-unibyte . identity) (set-buffer-multibyte . ignore) special-display-p #[(buffer-name) "\205�	\n\235\203\f�\303\207\304	\n\"A\206�\305\306\215\207" [special-display-function buffer-name special-display-buffer-names t assoc return (byte-code "\304\211\203<�\n@\211;\203�\305	\"\203�\306\307\310\"\210	:\2035�	@;\2035�\305	@\"\2035�\306\307	A\"\210\nA\211\204�*\304\207" [special-display-regexps elem #:--cl-dolist-temp-- buffer-name nil string-match throw return t] 4)] 3 "Returns non-nil if a buffer named BUFFER-NAME gets a special frame."] substring-no-properties #[(string &optional from to) "	\206�\303\nO\304\303G\305$\210\207" [string from to 0 set-text-properties nil] 5 "Return a substring of STRING, without text properties.\nIt starts at index FROM and ending before TO.\nTO may be nil or omitted; then the substring runs to the end of STRING.\nIf FROM is nil or omitted, the substring starts at the beginning of STRING.\nIf FROM or TO is negative, it counts from the end.\n\nWith one argument, just copy STRING without its properties."] line-number-at-pos #[(&optional pos) "\206�`\303\212eb\210`\nb\210\304y\210\305	`\"T+\207" [pos start opoint nil 0 count-lines] 3 "Return (narrowed) buffer line number at position POS.\nIf POS is nil, use current buffer location.\nCounting starts at (point-min), so the value refers\nto the contents of the accessible portion of the buffer."] defalias mm-decode-coding-string decode-coding-string mm-encode-coding-string encode-coding-string mm-decode-coding-region decode-coding-region mm-encode-coding-region encode-coding-region mm-string-to-multibyte string-to-multibyte #[(string) "\301\302\303#\207" [string mapconcat #[(ch) "\301\302!!\207" [ch mm-string-as-multibyte char-to-string] 3] ""] 4 "Return a multibyte string with the same individual chars as STRING."] mm-char-or-char-int-p char-or-char-int-p char-valid-p identity make-char japanese-jisx0208 36 34 decode-char ucs mm-ucs-to-char #[(codepoint) "\301\302\"\206�\303\207" [codepoint decode-char ucs 35] 3 "Convert Unicode codepoint to character."] mm-read-coding-system read-coding-system #[(prompt &optional default-coding-system) "\302\303\304	\"\"\207" [prompt mm-mime-mule-charset-alist completing-read mapcar #[(s) "\301@!C\207" [s symbol-name] 2]] 5 "Prompt the user for a coding system."] mm-coding-system-list default-boundp set-default nil] 22)
#@29 Get the coding system list.
(defalias 'mm-get-coding-system-list #[nil "\206�\300 \211\207" [mm-coding-system-list] 2 (#$ . 4855)])
#@214 Return non-nil if CS is a symbol naming a coding system.
In XEmacs, also return non-nil if CS is a coding system object.
If CS is available, return CS itself in Emacs, and return a coding
system object in XEmacs.
(defalias 'mm-coding-system-p #[(cs) "\301\302!\203�\205!�\302!\207\301\303!\203�\303!\205!�\207\304 >@\207" [cs fboundp find-coding-system coding-system-p mm-get-coding-system-list] 2 (#$ . 4997)])
#@247 Create a coding system cpNUMBER.
The coding system is created using `codepage-setup'.  If ALIAS is
non-nil, an alias is created and added to
`mm-charset-synonym-alist'.  If ALIAS is a string, it's used as
the alias.  Else windows-NUMBER is used.
(defalias 'mm-codepage-setup #[(number &optional alias) "\203�;\203�\303!\202�\303\304\305	\"!\303\304\306	\"!\307\n!\2044�\310\311!\2030�\311	!\210\2024�\312\313!\210\205D�\307\n!\205D�\314\315\nB\")\207" [alias number cp intern format "windows-%s" "cp%s" mm-coding-system-p fboundp codepage-setup error "`codepage-setup' not present in this Emacs version." add-to-list mm-charset-synonym-alist] 4 (#$ . 5423) (let ((completion-ignore-case t) (candidates (if (fboundp 'cp-supported-codepages) (cp-supported-codepages) (error "`codepage-setup' not present in this Emacs version.")))) (list (completing-read "Setup DOS Codepage: (default 437) " candidates nil t nil nil "437")))])
#@137 A mapping from unknown or invalid charset names to the real charset names.

See `mm-codepage-iso-8859-list' and `mm-codepage-ibm-list'.
(defvar mm-charset-synonym-alist (byte-code "\300\301\302!?\205	�\303\301\304!?\205�\305\301\306!?\205�\307\301\310!?\205'�\301\311!\205'�\312\301\313!?\2059�\301\314!\2038�\315\2029�\316\301\317!?\205G�\301\320!\205G�\321\301\322!?\205U�\301\323!\205U�\324\301\325!?\205c�\301\326!\205c�\327\301\330!?\205q�\301\331!\205q�\332\301\333!?\205�\301\331!\205�\334&\n\207" [append mm-coding-system-p x-ctext ((x-ctext . ctext)) iso-8859-15 ((iso-8859-15 . iso-8859-1)) big5-hkscs ((big5-hkscs . big5)) unicode utf-16-le ((unicode . utf-16-le)) ks_c_5601-1987 cp949 ((ks_c_5601-1987 . cp949)) ((ks_c_5601-1987 . euc-kr)) windows-31j cp932 ((windows-31j . cp932)) gbk cp936 ((gbk . cp936)) utf8 utf-8 ((utf8 . utf-8)) iso8859-1 iso-8859-1 ((iso8859-1 . iso-8859-1)) iso_8859-1 ((iso_8859-1 . iso-8859-1))] 12) (#$ . 6366))
#@368 A list of Windows codepage numbers and iso-8859 charset numbers.

If an element is a number corresponding to a supported windows
codepage, appropriate entries to `mm-charset-synonym-alist' are
added by `mm-setup-codepage-iso-8859'.  An element may also be a
cons cell where the car is a codepage number and the cdr is the
corresponding number of an iso-8859 charset.
(custom-declare-variable 'mm-codepage-iso-8859-list '(list 1250 '(1252 . 1) '(1254 . 9) '(1255 . 8)) '(#$ . 7330) :type '(list (set :inline t (const 1250 :tag "Central and East European") (const (1252 . 1) :tag "West European") (const (1254 . 9) :tag "Turkish") (const (1255 . 8) :tag "Hebrew")) (repeat :inline t :tag "Other options" (choice (integer :tag "Windows codepage number") (cons (integer :tag "Windows codepage number") (integer :tag "iso-8859 charset  number"))))) :version "22.1" :group 'mime)
#@330 List of IBM codepage numbers.

The codepage mappings slighly differ between IBM and other vendors.
See "ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/IBM/README.TXT".

If an element is a number corresponding to a supported windows
codepage, appropriate entries to `mm-charset-synonym-alist' are
added by `mm-setup-codepage-ibm'.
(custom-declare-variable 'mm-codepage-ibm-list '(list 437 860 861 862 863 865 852 850 855 866 857 864 869 874) '(#$ . 8211) :type '(list (set :inline t (const 437 :tag "US etc.") (const 860 :tag "Portugal") (const 861 :tag "Iceland") (const 862 :tag "Israel") (const 863 :tag "Canadian French") (const 865 :tag "Nordic") (const 852) (const 850 :tag "Latin 1") (const 855 :tag "Cyrillic") (const 866 :tag "Cyrillic - Russian") (const 857 :tag "Turkish") (const 864 :tag "Arabic") (const 869 :tag "Greek") (const 874 :tag "Thai")) (repeat :inline t :tag "Other options" (integer :tag "Codepage number"))) :version "22.1" :group 'mime)
#@115 Add appropriate entries to `mm-charset-synonym-alist'.
Unless LIST is given, `mm-codepage-iso-8859-list' is used.
(defalias 'mm-setup-codepage-iso-8859 #[(&optional list) "\204�	\306\211\203o�@\306\211\211\n:\2039�\307\310\311\n@\"!\307\310\312\n@\"!\307\310\313\nA\"!\202H�\307\310\311\n\"!\307\310\312\n\"!\314
!\204g�\314!\203`�\315\316
B\"\210\202g�\315\316
\fB\"\210+A\211\204�*\306\207" [list mm-codepage-iso-8859-list i #1=#:--cl-dolist-temp-- iso windows nil intern format "cp%d" "windows-%d" "iso-8859-%d" mm-coding-system-p add-to-list mm-charset-synonym-alist cp] 5 (#$ . 9180)])
#@110 Add appropriate entries to `mm-charset-synonym-alist'.
Unless LIST is given, `mm-codepage-ibm-list' is used.
(defalias 'mm-setup-codepage-ibm #[(&optional list) "\204�	\306\211\203:�@\307\310\311\n\"!\307\310\312\n\"!\313
!\2042�\313\f!\2032�\314\315
\fB\"\210*A\211\204�*\306\207" [list mm-codepage-ibm-list number #1=#:--cl-dolist-temp-- cp ibm nil intern format "ibm%d" "cp%d" mm-coding-system-p add-to-list mm-charset-synonym-alist] 6 (#$ . 9804)])
(byte-code "\300 \210\301 \207" [mm-setup-codepage-iso-8859 mm-setup-codepage-ibm] 1)
#@258 An alist of (CHARSET . FORM) pairs.
If an article is encoded in an unknown CHARSET, FORM is
evaluated.  This allows to load additional libraries providing
charsets on demand.  If supported by your Emacs version, you
could use `autoload-coding-system' here.
(custom-declare-variable 'mm-charset-eval-alist '(if (featurep 'xemacs) nil '((windows-1250 mm-codepage-setup 1250 t) (windows-1251 mm-codepage-setup 1251 t) (windows-1253 mm-codepage-setup 1253 t) (windows-1257 mm-codepage-setup 1257 t))) '(#$ . 10363) :version "22.1" :type '(list (set :inline t (const (windows-1250 mm-codepage-setup 1250 t)) (const (windows-1251 mm-codepage-setup 1251 t)) (const (windows-1253 mm-codepage-setup 1253 t)) (const (windows-1257 mm-codepage-setup 1257 t)) (const (cp850 mm-codepage-setup 850 nil))) (repeat :inline t :tag "Other options" (cons (symbol :tag "charset") (symbol :tag "form")))) :group 'mime)
(put 'mm-charset-eval-alist 'risky-local-variable t)
#@477 Return coding-system corresponding to CHARSET.
CHARSET is a symbol naming a MIME charset.
If optional argument LBT (`unix', `dos' or `mac') is specified, it is
used as the line break code type of the coding system.

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.

A non-nil value of SILENT means don't issue a warning even if CHARSET
is not available.
(defalias 'mm-charset-to-coding-system #[(charset &optional lbt allow-override silent) ";\203\n�\306\227!	\203�\306\307\310	#!\204�\207\311 \203'�\312\313!\204)�\207\n\203A�\236A\211\205=�\314\f!\205=�\f)\206\345�\315=\203I�\316\207\314!\203Q�\207
\236\211@A\f\205x�\205x�\317\320\321\217\210\314\f!\322\323\f\"\210\205x�\f+\206\345�\236A\211\205\215�\314\f!\205\215�\f)\206\345�\317\311 \317\211\203\305�@\f\204\274�\313\324\"\206\265�\313\325\"=\203\274�A\211\204\236�*\204\343�\f\204\343�\312\326!\203\336�\326\327\330#\210\202\343�\322\330\"\210\f)\207" [charset lbt allow-override mm-charset-override-alist cs mm-charset-eval-alist intern format "%s-%s" mm-get-coding-system-list fboundp coding-system-get mm-coding-system-p us-ascii ascii nil (eval form) ((error)) message "Added charset `%s' via `mm-charset-eval-alist'" :mime-charset mime-charset gnus-message 7 "Unknown charset: %s" el form mm-charset-synonym-alist c #1=#:--cl-dolist-temp-- silent] 6 (#$ . 11320)])
#@202 A mapping from undesired charset names to their replacement.

You may add pairs like (iso-8859-1 . windows-1252) here,
i.e. treat iso-8859-1 as windows-1252.  windows-1252 is a
superset of iso-8859-1.
(custom-declare-variable 'mm-charset-override-alist ''((gb2312 . gbk) (iso-8859-1 . windows-1252) (iso-8859-8 . windows-1255) (iso-8859-9 . windows-1254)) '(#$ . 12834) :type '(list :convert-widget (lambda (widget) (let ((defaults (delq nil (mapcar (lambda (pair) (if (mm-charset-to-coding-system (cdr pair) nil nil t) pair)) '((gb2312 . gbk) (iso-8859-1 . windows-1252) (iso-8859-8 . windows-1255) (iso-8859-9 . windows-1254) (undecided . windows-1252))))) (val (copy-sequence (default-value 'mm-charset-override-alist))) pair rest) (while val (push (if (and (prog1 (setq pair (assq (caar val) defaults)) (setq defaults (delq pair defaults))) (equal (car val) pair)) `(const ,pair) `(cons :format "%v" (const :format "(%v" ,(caar val)) (symbol :size 3 :format " . %v)\n" ,(cdar val)))) rest) (setq val (cdr val))) (while defaults (push `(const ,(pop defaults)) rest)) (widget-convert 'list `(set :inline t :format "%v" ,@(nreverse rest)) `(repeat :inline t :tag "Other options" (cons :format "%v" (symbol :size 3 :format "(%v") (symbol :size 3 :format " . %v)\n"))))))) :set #[(symbol value) "\302\303\304\305\306	\"\"\"\207" [symbol value custom-set-default delq nil mapcar #[(pair) "\301A\302\211\303$\205�\207" [pair mm-charset-to-coding-system nil t] 5]] 7] :version "22.1" :group 'mime)
#@28 100% binary coding system.
(defvar mm-binary-coding-system (byte-code "\300\301!\203�\301\207\300\302!\203�\302\207\303\207" [mm-coding-system-p binary no-conversion nil] 2) (#$ . 14338))
#@44 Text-safe coding system (For removing ^M).
(defvar mm-text-coding-system (byte-code "\302>\203�\303\304!\203�\304\207\303\305!\203�\305\207	\207" [system-type mm-binary-coding-system (windows-nt ms-dos ms-windows) mm-coding-system-p raw-text-dos raw-text] 2) (#$ . 14534))
#@31 Text coding system for write.
(defvar mm-text-coding-system-for-write nil (#$ . 14817))
#@34 Coding system of auto save file.
(defvar mm-auto-save-coding-system (byte-code "\302\303!\203�\304>\203�\302\305!\203�\305\207	\207\303\207\302\306!\2030�\307>\203.�\302\310!\203,�\310\207	\207\306\207\302\311!\2038�\311\207	\207" [system-type mm-binary-coding-system mm-coding-system-p utf-8-emacs (windows-nt ms-dos ms-windows) utf-8-emacs-dos emacs-mule (windows-nt ms-dos ms-windows) emacs-mule-dos escape-quoted] 2) (#$ . 14911))
#@30 The universal coding system.
(defvar mm-universal-coding-system mm-auto-save-coding-system (#$ . 15357))
#@38 Alist of MIME-charset/MULE-charsets.
(defvar mm-mime-mule-charset-alist (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336!\2030�\337\340\341\342\343\336 \"\"B\202P�\335\344!\203B�\344\345!\204B�\346\347!\204F�\350\202P�\351\352\353\341\354\347\355\"\"\"\257\207" [(us-ascii ascii) (iso-8859-1 latin-iso8859-1) (iso-8859-2 latin-iso8859-2) (iso-8859-3 latin-iso8859-3) (iso-8859-4 latin-iso8859-4) (iso-8859-5 cyrillic-iso8859-5) (koi8-r cyrillic-iso8859-5 gnus-koi8-r) (iso-8859-6 arabic-iso8859-6) (iso-8859-7 greek-iso8859-7) (iso-8859-8 hebrew-iso8859-8) (iso-8859-9 latin-iso8859-9) (iso-8859-14 latin-iso8859-14) (iso-8859-15 latin-iso8859-15) (viscii vietnamese-viscii-lower) (iso-2022-jp latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978) (euc-kr korean-ksc5601) (gb2312 chinese-gb2312) (gbk chinese-gbk) (gb18030 gb18030-2-byte gb18030-4-byte-bmp gb18030-4-byte-smp gb18030-4-byte-ext-1 gb18030-4-byte-ext-2) (big5 chinese-big5-1 chinese-big5-2) (tibetan tibetan) (thai-tis620 thai-tis620) (windows-1251 cyrillic-iso8859-5) (iso-2022-7bit ethiopic arabic-1-column arabic-2-column) (iso-2022-jp-2 latin-iso8859-1 greek-iso8859-7 latin-jisx0201 japanese-jisx0208-1978 chinese-gb2312 japanese-jisx0208 korean-ksc5601 japanese-jisx0212) (iso-2022-int-1 latin-iso8859-1 greek-iso8859-7 latin-jisx0201 japanese-jisx0208-1978 chinese-gb2312 japanese-jisx0208 korean-ksc5601 japanese-jisx0212 chinese-cns11643-1 chinese-cns11643-2) (iso-2022-int-1 latin-iso8859-1 latin-iso8859-2 cyrillic-iso8859-5 greek-iso8859-7 latin-jisx0201 japanese-jisx0208-1978 chinese-gb2312 japanese-jisx0208 korean-ksc5601 japanese-jisx0212 chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7) (iso-2022-jp-3 latin-jisx0201 japanese-jisx0208-1978 japanese-jisx0208 japanese-jisx0213-1 japanese-jisx0213-2) (shift_jis latin-jisx0201 katakana-jisx0201 japanese-jisx0208) fboundp unicode-precedence-list utf-8 delq ascii mapcar charset-name charsetp unicode-a mm-coding-system-p mule-utf-8 (utf-8 unicode-a unicode-b unicode-c unicode-d unicode-e) append (utf-8) delete coding-system-get safe-charsets] 36) (#$ . 15468))
#@254 Make the `utf-8' MIME charset usable by the Mule-UCS package.
This function will run when the `un-define' module is loaded under
XEmacs, and fill the `utf-8' entry in `mm-mime-mule-charset-alist'
with Mule charsets.  It is completely useless for Emacs.
(defalias 'mm-enrich-utf-8-by-mule-ucs #[nil "\300\301!\205\n�\302\303\304\217\207" [boundp unicode-basic-translation-charset-order-list nil (byte-code "\303\304\305\306J!\"\307\236	\203�	\n\241\202�\307\nBC\244\211*\207" [mm-mime-mule-charset-alist elem val delq ascii copy-sequence unicode-basic-translation-charset-order-list utf-8] 4) ((error))] 3 (#$ . 17746)])
(byte-code "\306\307!\203U�\306\310!\203U�\310\307\311!!\312\211\211\211\f\203Q�\f\211A@\313\314\"\206/�\313\315\"\211\203�\313\316\"\211\317=\204�\n\236\204�\n\320\321	\"BB\202�\237-\312\207" [alist mule mime cs css mm-mime-mule-charset-alist fboundp coding-system-list sort-coding-systems base-only nil coding-system-get :mime-charset mime-charset safe-charsets t delq ascii] 6)
#@210 A list of special charsets.
Valid elements include:
`iso-8859-15'    convert ISO-8859-1, -9 to ISO-8859-15 if ISO-8859-15 exists.
`iso-2022-jp-2'  convert ISO-2022-jp to ISO-2022-jp-2 if ISO-2022-jp-2 exists.
(defvar mm-hack-charsets '(iso-8859-15 iso-2022-jp-2) (#$ . 18782))
#@71 ISO-8859-15 exchangeable coding systems and inconvertible characters.
(defvar mm-iso-8859-15-compatible '((iso-8859-1 "\244\246\250\264\270\274\275\276") (iso-8859-9 "\244\246\250\264\270\274\275\276\320\335\336\360\375\376")) (#$ . 19065))
#@73 A table of the difference character between ISO-8859-X and ISO-8859-15.
(defvar mm-iso-8859-x-to-15-table (byte-code "\301\302!\205�\303\304!\205�\305\306\"\207" [mm-iso-8859-15-compatible fboundp coding-system-p mm-coding-system-p iso-8859-15 mapcar #[(cs) "\303@!\203*�\304\305\306@\"!\307	!\304\305\306\310\"!	Z\305A@@\"\311\n\312\"*BB\207\313\207" [cs c string mm-coding-system-p string-to-char decode-coding-string "\341" char-charset iso-8859-15 append nil (gnus-charset 0)] 5]] 3) (#$ . 19312))
#@306 Preferred coding systems for encoding outgoing messages.

More than one suitable coding system may be found for some text.
By default, the coding system with the highest priority is used
to encode outgoing messages (see `sort-coding-systems').  If this
variable is set, it overrides the default priority.
(custom-declare-variable 'mm-coding-system-priorities '(let ((lang (if (boundp 'current-language-environment) (symbol-value 'current-language-environment)))) (cond ((not lang) nil) ((string-match "\\`Japanese" lang) '(iso-8859-1 iso-2022-jp iso-2022-jp-2 shift_jis utf-8)))) '(#$ . 19830) :version "21.2" :type '(repeat (symbol :tag "Coding system")) :group 'mime)
#@199 Use `find-coding-systems-region' to find proper coding systems.

Setting it to nil is useful on Emacsen supporting Unicode if sending
mail with multiple parts is preferred to sending a Unicode one.
(defvar mm-use-find-coding-systems-region (fboundp 'find-coding-systems-region) (#$ . 20507))
#@66 Return the MIME charset corresponding to the given Mule CHARSET.
(defalias 'mm-mule-charset-to-mime-charset #[(charset) "\306\307!\203?�\306\310!\203?�\311\310\307C!!\312\"\313\211	\204<�\203<�\211A@\211\203�\314\n\315\"\2067�\314\n\316\"\211\203�	+\207\317\320\311\317\321\f\"\312\"\"\313\203v�\211@A)>\203k�\211@@)\313\211A@\210\202M�
*\207" [charset mime cs css mm-mime-mule-charset-alist out fboundp find-coding-systems-for-charsets sort-coding-systems sort mm-sort-coding-systems-predicate nil coding-system-get :mime-charset mime-charset mapcar #[(cs) "	\236\207" [cs mm-mime-mule-charset-alist] 2] car alist x] 7 (#$ . 20805)])
#@26 True in Emacs with Mule.
(defvar mm-emacs-mule (byte-code "\301\300!\205
�\205
�\302\303!\207" [default-enable-multibyte-characters boundp fboundp set-buffer-multibyte] 2) (#$ . 21479))
(byte-code "\203\f�\301\302\303\"\210\202�\301\302\304\"\210\203�\301\305\306\"\210\202\"�\301\305\304\"\210\301\207" [mm-emacs-mule defalias mm-enable-multibyte #[nil "\300\301!\207" [set-buffer-multibyte to] 2 "Set the multibyte flag of the current buffer.\nOnly do this if the default value of `enable-multibyte-characters' is\nnon-nil.  This is a no-op in XEmacs."] ignore mm-disable-multibyte #[nil "\300\301!\207" [set-buffer-multibyte nil] 2 "Unset the multibyte flag of in the current buffer.\nThis is a no-op in XEmacs."]] 3)
(defalias 'mm-preferred-coding-system #[(charset) "\301\302\"\206�\301\303\"\207" [charset get-charset-property preferred-coding-system prefered-coding-system] 3])
#@51 Guess Mule charset from the language environment.
(defalias 'mm-guess-charset #[nil "\206*�\305\301!\205�\306\307\310	\n\"\236!@\211\203�\311=\203)�\306\f\236!@\206(�\312\207" [mail-parse-mule-charset current-language-environment language-info-alist mail-parse-charset mm-mime-mule-charset-alist boundp last charset assoc ascii latin-iso8859-1] 6 (#$ . 22378)])
(put 'mm-guess-charset 'byte-optimizer 'byte-compile-inline-expand)
#@212 Return charset of a character in current buffer at position POS.
If POS is nil, it defauls to the current point.
If POS is out of range, the value is nil.
If the charset is `composition', return the actual one.
(defalias 'mm-charset-after #[(&optional pos) "f\306\307\n!\310W\203�\311\211\202r�\312\313!\205�\313\n!\211\314=\2036�\206(�`\315\211T\"\211A@*\202r�	\203D�	\316>\204D�	\202r�
\206r�\317\320!\205Y�\321\301\322\"\236!@\211\203d�
\311=\203q�\321\236!@\206p�\323
*\207" [pos charset char p x mail-parse-mule-charset nil mm-char-int 128 ascii fboundp char-charset composition find-charset-region (ascii eight-bit-control eight-bit-graphic) boundp current-language-environment last assoc latin-iso8859-1 language-info-alist mail-parse-charset mm-mime-mule-charset-alist] 7 (#$ . 22823)])
#@66 Return the MIME charset corresponding to the given Mule CHARSET.
(defalias 'mm-mime-charset #[(charset) "\301=\203\n�\302\303!\210\304\305!\203@�\304\306!\203@�\307!\203.�\305\307!\310\"\206C�\305\307!\311\"\206C�\312=\2036�\313\207\307!\206C�\314!\207\314!\207" [charset unknown error "The message contains non-printable characters, please use attachment" fboundp coding-system-get get-charset-property mm-preferred-coding-system :mime-charset mime-charset ascii us-ascii mm-mule-charset-to-mime-charset] 3 (#$ . 23645)])
(byte-code "\300\301!\203�\302\303\301\"\210\202�\302\303\304\"\210\305\306!\203!�\302\307\310\"\210\202&�\302\307\311\"\210\300\207" [fboundp delete-dups defalias mm-delete-duplicates #[(list) "\211\203�	\302	@	A\"\241\210	A\211\204�)\207" [list tail delete] 5 "Destructively remove `equal' duplicates from LIST.\nStore the result in LIST and return it.  LIST must be a proper list.\nOf several `equal' occurrences of an element in LIST, the first\none is kept.\n\nThis is a compatibility function for Emacsen without `delete-dups'."] boundp enable-multibyte-characters mm-multibyte-p #[nil "\207" [enable-multibyte-characters] 1 "Non-nil if multibyte is enabled in the current buffer."] #[nil "\300\301!\207" [featurep mule] 2]] 3)
#@115 Return non-nil if the session is multibyte.
This affects whether coding conversion should be attempted generally.
(defalias 'mm-default-multibyte-p #[nil "\301\302!\205�\303\300!\203�\207\304\207" [default-enable-multibyte-characters featurep mule boundp t] 2 (#$ . 24926)])
(defalias 'mm-iso-8859-x-to-15-region #[(&optional b e) "\306\307!\205]�\310\211\211\211\214\f\203�
\f}\210eb\210\311\310w\210m\204Y�\307\310f\211!\236\211\2046�\310u\210\202R�	\nAA>\203F�\312\310u\210\202R�\313	\nA@\\\314\315!\210!\210\311\310w\210\202�),?\207" [inconvertible c item charset e b fboundp char-charset nil "�-" t insert-before-markers delete-char 1 mm-iso-8859-x-to-15-table] 4])
(defalias 'mm-sort-coding-systems-predicate #[(a b) "\304\305\"\306\n!\211\205&�\306!\211\203%�\307\n!	>G\307!	>GV\202&�\310)\207" [mm-coding-system-priorities priorities a b mapcar #[(cs) "\301!\211\205�\302!\207" [cs mm-coding-system-p coding-system-base] 2] mm-coding-system-p coding-system-base t] 3])
#@979 Determine which MIME charset to use to send region as message.
This uses the XEmacs-specific latin-unity package to better handle the
case where identical characters from diverse ISO-8859-? character sets
can be encoded using a single one of the corresponding coding systems.

It treats `mm-coding-system-priorities' as the list of preferred
coding systems; a useful example setting for this list in Western
Europe would be '(iso-8859-1 iso-8859-15 utf-8), which would default
to the very standard Latin 1 coding system, and only move to coding
systems that are less supported as is necessary to encode the
characters that exist in the buffer.

Latin Unity doesn't know about those non-ASCII Roman characters that
are available in various East Asian character sets.  As such, its
behavior if you have a JIS 0212 LATIN SMALL LETTER A WITH ACUTE in a
buffer and it can otherwise be encoded as Latin 1, won't be ideal.
But this is very much a corner case, so don't worry about it.
(defalias 'mm-xemacs-find-mime-charset-1 #[(begin end) "\306\211\211\307\310!\204�\311\312!\203�\313\310!\210\307\310!\205-�\314
\"\315
\"\316\317\215,\207" [mm-coding-system-priorities curset psets csets systems begin nil featurep latin-unity locate-library "latin-unity" require latin-unity-representations-feasible-region latin-unity-representations-present-region done (byte-code "\306\211\203C�\n@\307\310	\"\211>\203�\311\312	C\"\210	\f>\204'�\311\312\306\"\210\313

\314&\203<�\311\312	C\"\210\nA\211\204�*\306\207" [systems curset #1=#:--cl-dolist-temp-- latin-unity-ucs-list latin-unity-coding-systems begin nil latin-unity-massage-name buffer-default throw done latin-unity-maybe-remap t end csets psets] 8) end] 4 (#$ . 25936)])
(defalias 'mm-xemacs-find-mime-charset '(macro . #[(begin end) "\300\207" [nil] 1]))
#@198 Return the MIME charsets needed to encode the region between B and E.
nil means ASCII, a single-element list represents an appropriate MIME
charset, and a longer list means no appropriate charset.
(defalias 'mm-find-mime-charset-region #[(b e &optional hack-charsets) "\306\307 \203e�	\203e�\310\n\"
\203�\311\f\312\"\313\314\f\"\211\315\232\204`�\f\203`�\f\211A@\316\317\"\206<�\316\320\"\211 \203\\�\321\322\323 !\"\204\\�\321\324\323 !\"\204\\�\306 C*\202$�)\204x�\306\211\204x�\325\326\327\313\330\331\n\"\"\"!G\332V\203\266�\333>\203\266�\333!>\203\266�\212\334\n\")\203\266�\"\306#\211$\203\265�$@#\313#@\"$A\211$\204\240�*\335>\203\310�\335!>\203\310�\313\336\")\207" [charsets mm-use-find-coding-systems-region b e systems mm-coding-system-priorities nil mm-multibyte-p find-coding-systems-region sort mm-sort-coding-systems-predicate delq compound-text (undecided) coding-system-get :mime-charset mime-charset string-match "^[Xx]-" symbol-name "utf-16" mm-delete-duplicates mapcar mm-mime-charset ascii mm-find-charset-region 1 iso-8859-15 mm-iso-8859-x-to-15-region iso-2022-jp-2 iso-2022-jp head cs hack-charsets mm-iso-8859-15-compatible x #1=#:--cl-dolist-temp--] 9 (#$ . 27775)])
#@94 Create a temporary buffer, and evaluate FORMS there like `progn'.
Use unibyte mode for this.
(defalias 'mm-with-unibyte-buffer '(macro . #[(&rest forms) "\301\302BB\207" [forms with-temp-buffer (mm-disable-multibyte)] 3 (#$ . 29017)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mm-with-unibyte-buffer lisp-indent-function 0 edebug-form-spec (body)] 4)
#@96 Create a temporary buffer, and evaluate FORMS there like `progn'.
Use multibyte mode for this.
(defalias 'mm-with-multibyte-buffer '(macro . #[(&rest forms) "\301\302BB\207" [forms with-temp-buffer (mm-enable-multibyte)] 3 (#$ . 29395)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mm-with-multibyte-buffer lisp-indent-function 0 edebug-form-spec (body)] 4)
#@480 Evaluate FORMS with current buffer temporarily made unibyte.
Also bind `default-enable-multibyte-characters' to nil.
Equivalent to `progn' in XEmacs

NOTE: Use this macro with caution in multibyte buffers (it is not
worth using this macro in unibyte buffers of course).  Use of
`(set-buffer-multibyte t)', which is run finally, is generally
harmful since it is likely to modify existing data in the buffer.
For instance, it converts "\300\255" into "\255" in
Emacs 23 (unicode).
(defalias 'mm-with-unibyte-current-buffer '(macro . #[(&rest forms) "\303\304!\303\305!\306\307\310	\311B\312BD\313\310\314\315\nBBB\316D\317	DFE\310\320\nBBF*\207" [buffer multibyte forms make-symbol "multibyte" "buffer" if mm-emacs-mule let (enable-multibyte-characters) ((current-buffer)) unwind-protect (default-enable-multibyte-characters) (set-buffer-multibyte nil) set-buffer set-buffer-multibyte (default-enable-multibyte-characters)] 9 (#$ . 29779)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mm-with-unibyte-current-buffer lisp-indent-function 0 edebug-form-spec (body)] 4)
#@55 Return a list of Emacs charsets in the region B to E.
(defalias 'mm-find-charset-region #[(b e) "\306 \203,�\307\310!\203,�\310	\"\311\312\211\203'�\f@\313\n\"\fA\211\204�\312\n+\207\212\214	}\210eb\210\314\312w\210m\203A�\315\202r�\312\316\317!\205T�\320\305\321\"\236!@\211\322=\203]�\312
\204j�\320\236!@\322
\206p�\323)D*\207" [b e css cs #1=#:--cl-dolist-temp-- charset mm-multibyte-p fboundp find-charset-region (composition eight-bit-control eight-bit-graphic control-1) nil delq "�-" (ascii) boundp current-language-environment last assoc ascii latin-iso8859-1 language-info-alist mail-parse-charset mm-mime-mule-charset-alist] 6 (#$ . 30872)])
#@63 Return an `auto-mode-alist' with only the .gz (etc) thingies.
(defalias 'mm-auto-mode-alist #[nil "\304\n\203 �\n\211@A)<\203�\n@	B\n\211A@\210\202�	\237*\207" [auto-mode-alist out alist x nil] 3 (#$ . 31555)])
#@58 A list of handlers doing (un)compression (etc) thingies.
(defvar mm-inhibit-file-name-handlers '(jka-compr-handler image-file-handler epa-file-handler) (#$ . 31780))
#@368 Like `insert-file-contents', but only reads in the file.
A buffer may be modified in several ways after reading into the buffer due
to advanced Emacs features, such as file-name-handlers, format decoding,
`find-file-hooks', etc.
If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
  This function ensures that none of these modifications will take place.
(defalias 'mm-insert-file-contents #[(filename &optional visit beg end replace inhibit) "\306	?\205	�\307 \310\306\211\306	\203�\311\202�	\203,�\312\"\202.�\313\314!\203:�\314\202;�\315\211J\306L\210\316\216\311%.\207" [format-alist inhibit auto-mode-alist default-major-mode enable-local-variables after-insert-file-functions nil mm-auto-mode-alist fundamental-mode insert-file-contents append boundp find-file-hook find-file-hooks ((set ffh val)) enable-local-eval inhibit-file-name-operation mm-inhibit-file-name-handlers inhibit-file-name-handlers ffh val filename visit beg end replace] 7 (#$ . 31953)])
#@354 Append the contents of the region to the end of file FILENAME.
When called from a function, expects three arguments,
START, END and FILENAME.  START and END are buffer positions
saying what text to write.
Optional fourth argument specifies the coding system to use when
encoding the file.
If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
(defalias 'mm-append-to-file #[(start end filename &optional codesys inhibit) "\206	�	\206	�\n\203�\306\202�\f\203�\307

\"\202 �

\310\311\312%\210\313\314\"+\207" [codesys mm-text-coding-system-for-write mm-text-coding-system inhibit inhibit-file-name-operation mm-inhibit-file-name-handlers append-to-file append write-region t no-message message "Appended to %s" inhibit-file-name-handlers coding-system-for-write start end filename] 6 (#$ . 32974)])
#@86 Like `write-region'.
If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
(defalias 'mm-write-region #[(start end filename &optional append visit lockname coding-system inhibit) "\206	�	\206	�\n\203�\306\202�\f\203�\307
\"\202 �	\306\n\f
&+\207" [coding-system mm-text-coding-system-for-write mm-text-coding-system inhibit inhibit-file-name-operation mm-inhibit-file-name-handlers write-region append inhibit-file-name-handlers coding-system-for-write start end filename visit lockname] 7 (#$ . 33808)])
(byte-code "\300\301\302\"\210\303\304!\203�\305\306\307\217\203�\310\311\304\"\210\202�\310\311\312\"\210\305\207" [autoload gmm-write-region "gmm-utils" fboundp make-temp-file nil (byte-code "\301K\302!\205+�\303\304!\203�\305\304D!\202�\306H\211\205+�G\307Y\205+�\3108\311=)\207" [def make-temp-file byte-code-function-p fboundp compiled-function-arglist eval 0 4 3 suffix] 3) ((error)) defalias mm-make-temp-file #[(prefix &optional dir-flag suffix) "\302 \303\304\216\305\306!\210\307\310\311\217\204�+\207" [file umask default-file-modes nil ((set-default-file-modes umask)) set-default-file-modes 448 err (byte-code "\305\306\307\310!\203�\310 \202�	\"!\203�\nP\f\203%�\311\n!\210\2020�\312\313\314\n\314\315\314\316&\210\314\207" [prefix temporary-file-directory file suffix dir-flag make-temp-name expand-file-name fboundp temp-directory make-directory gmm-write-region "" nil silent excl] 8) ((file-already-exists t) (file-error (byte-code "\301@A\"\207" [err signal] 3)))] 3 "Create a temporary file.\nThe returned file name (created by appending some random characters at the end\nof PREFIX, and expanding against `temporary-file-directory' if necessary),\nis guaranteed to point to a newly created empty file.\nYou can then use `write-region' to write new data into the file.\n\nIf DIR-FLAG is non-nil, create a new empty directory instead of a file.\n\nIf SUFFIX is non-nil, add that at the end of the file name."]] 3)
(defalias 'mm-image-load-path #[(&optional package) "\306\211\n\306\211\2035�\f@\211\203*�\307\310\311!!\312
\206�\313Q\211!\203*�	BB\fA\211\204\f�\306\237,\207" [result dir load-path path #1=#:--cl-dolist-temp-- package nil file-directory-p file-name-directory directory-file-name "etc/images/" "gnus/"] 5])
(byte-code "\300\301!\203�\302\303\304\"\210\202�\302\303\305\"\210\300\306!\203!�\302\307\310\"\210\202&�\302\307\311\"\210\300\207" [fboundp detect-coding-region defalias mm-detect-coding-region #[(start end) "\303	\"\211\242\206�\n)\207" [start end coding-systems detect-coding-region] 4 "Like `detect-coding-region' except returning the best one."] #[(start end) "`	b\210\306\nw\210`\n=\203�\307\202?�\206?�\310\304!\205&�\311\312\313\f
\"\236!@\211\2031�\307=\203>�\311
\236!@\206=�\314b\210)\207" [point start end mail-parse-mule-charset current-language-environment language-info-alist "�-" ascii boundp last charset assoc latin-iso8859-1 mail-parse-charset mm-mime-mule-charset-alist] 6] coding-system-get mm-detect-mime-charset-region #[(start end) "\303	\"\304\n\305\"\206�\304\n\306\")\207" [start end cs mm-detect-coding-region coding-system-get :mime-charset mime-charset] 3 "Detect MIME charset of the text in the region between START and END."] #[(start end) "\302	\"\207" [start end mm-detect-coding-region] 4 "Detect MIME charset of the text in the region between START and END."]] 3)
#@127 Return the MIME charset corresponding to CODING-SYSTEM.
To make this function work with XEmacs, the APEL package is required.
(defalias 'mm-coding-system-to-mime-charset #[(coding-system) "\205�\301\302!\205�\302\303\"\206�\302\304\"\207" [coding-system fboundp coding-system-get :mime-charset mime-charset] 3 (#$ . 37262)])
#@528 Decompress buffer's contents, depending on jka-compr.
Only when FORCE is t or `auto-compression-mode' is enabled and FILENAME
agrees with `jka-compr-compression-info-list', decompression is done.
Signal an error if FORCE is neither nil nor t and compressed data are
not decompressed because `auto-compression-mode' is disabled.
If INPLACE is nil, return decompressed data or nil without modifying
the buffer.  Otherwise, replace the buffer's contents with the
decompressed data.  The buffer's multibyteness must be turned off.
(defalias 'mm-decompress-buffer #[(filename &optional inplace force) "\205\246�	\203�\306\307\310!\210\202�\311\312!\205\246�\312 \205\246�\313!\211\205\245�	\314\306D>\2044�\312 \2044�\315\316!\210\317\n!\320\n!\321\322\323\n!#\324 p\211\314\211#$%&'()\325\326'\"\210\327\330!*r*q\210\331\216\332 \210\333%!\210\334\335\336\217\210+\337&!\203\204�\314\340\341\217\210+\203\226�\f\204\224�ed|\210
c\210\314\325\326\f\206\240�'\342P\"\210
.	)\207" [filename force info mm-binary-coding-system err-msg retval t require jka-compr fboundp jka-compr-installed-p jka-compr-get-compression-info nil error #1="" jka-compr-info-uncompress-program jka-compr-info-uncompress-args format "%s %s..." jka-compr-info-uncompress-message jka-compr-make-temp-name message "%s" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte insert-buffer-substring err (byte-code "\306\307ed\310\211	D\311\n&>\2046�\312 \210\313\314\315\316\317\320	!\210\321 \312 \210!\"\322#\323\261\210\324\325\313\314\n\322#\f$\321 \311\207" [prog err-file args jka-compr-acceptable-retval-list filename err-msg apply call-process-region t nil erase-buffer mapconcat identity delete #1# split-string insert-file-contents buffer-string " " "\n" format "Error while executing \"%s %s < %s\"" retval] 9) ((error (byte-code "\302!\302\207" [err err-msg error-message-string] 2))) file-exists-p (jka-compr-delete-temp-file err-file) ((error)) "done" coding-system-for-write coding-system-for-read cur err-file msg args prog #2# inplace] 10 (#$ . 37600)])
#@316 Find coding system used to decode the contents of the current buffer.
This function looks for the coding system magic cookie or examines the
coding system specified by `file-coding-system-alist' being associated
with FILENAME which defaults to `buffer-file-name'.  Data compressed by
gzip, bzip2, etc. are allowed.
(defalias 'mm-find-buffer-file-coding-system #[(&optional filename) "\204�	\212\205�\305\306\"?\205�\307\310\311#\211\203,�\310\312\313!)q\210\nc\210\314!eb\210\315\316!\205R�\203K�\316JdeZ\"\206R�\317\320\"@\202R�\310\211\321\322\217)\n\203Z�\323p!\210*\207" [filename buffer-file-name decomp default-enable-multibyte-characters auto-coding-alist string-match "\\.\$?:tar\\.[^.]+\\|tbz\\|tgz\$\\'" mm-decompress-buffer nil t generate-new-buffer " *temp*" file-name-sans-extension boundp set-auto-coding-function find-operation-coding-system insert-file-contents (byte-code "\300J\301deZ\"\207" [set-auto-coding-function nil] 4) ((error)) kill-buffer] 5 (#$ . 39767)])
(provide 'mm-util)

${this.title}

Code Editor : mm-util.elc