%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/gnus/mm-util.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\207" [require mail-prsvr timer] 2)
#@57 Convert Unicode codepoint to character.

(fn CODEPOINT)
(defalias 'mm-ucs-to-char #[257 "\300\301\"\206\302\207" [decode-char ucs 35] 4 (#$ . 478)])
(defvar mm-coding-system-list nil)
#@29 Get the coding system list.
(defalias 'mm-get-coding-system-list #[0 "\206\301 \211\207" [mm-coding-system-list coding-system-list] 2 (#$ . 671)])
#@46 Return CS if CS is a coding system.

(fn CS)
(defalias 'mm-coding-system-p #[257 "\300!\205\211\207" [coding-system-p] 3 (#$ . 828)])
#@76 A mapping from unknown or invalid charset names to the real charset names.
(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) (#$ . 971))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\314\301\315\316#\207" [custom-declare-variable mm-charset-eval-alist funcall function #[0 "\300\207" [nil] 1] "An alist of (CHARSET . FORM) pairs.\nIf an article is encoded in an unknown CHARSET, FORM is\nevaluated.  This allows the loading of additional libraries\nproviding charsets on demand.  If supported by your Emacs\nversion, you could use `autoload-coding-system' here." :version "22.1" :type (list (repeat :inline t :tag "Other options" (cons (symbol :tag "charset") (symbol :tag "form")))) :group mime put risky-local-variable t] 10)
#@527 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.

(fn CHARSET &optional LBT ALLOW-OVERRIDE SILENT)
(defalias 'mm-charset-to-coding-system #[1025 ";\203\303\227!\262\203\303\304\305#!\262\204 \207\306 \203+\307\310!\204-\207\203E\236A\211\205@\311!\205@\211\262\206\371\312=\204U\313\314\315!\"\203W\316\207\311!\203_\207\307\317!\203k\317!\206\371	\236\211@A\205\226\211\205\226\3201\205\321!0\202\211\210\202\212\210\311!\322\323\"\210\205\226\266\203\206\371\n\236A\211\205\252\311!\205\252\211\262\206\371\324\306 \211\203\327\211@\204\320\310\325\"\206\311\310\326\"=\203\320\211\262A\266\202\202\262\210\204\366\211\204\366\307\327!\203\360\327\330\331#\210\202\366\322\331\"\210\211\262\207" [mm-charset-override-alist mm-charset-eval-alist mm-charset-synonym-alist intern format "%s-%s" mm-get-coding-system-list fboundp coding-system-get mm-coding-system-p us-ascii string-match "ansi.x3.4" symbol-name ascii coding-system-from-name (error) eval message "Added charset `%s' via `mm-charset-eval-alist'" nil :mime-charset mime-charset gnus-message 7 "Unknown charset: %s"] 11 (#$ . 2487)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable mm-charset-override-alist funcall function #[0 "\300\207" [((gb2312 . gbk) (iso-8859-1 . windows-1252) (iso-8859-8 . windows-1255) (iso-8859-9 . windows-1254))] 1] "A mapping from undesired charset names to their replacement.\n\nYou may add pairs like (iso-8859-1 . windows-1252) here,\ni.e. treat iso-8859-1 as windows-1252.  windows-1252 is a\nsuperset of iso-8859-1." :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 #[514 "\300\301\302\303\304\"\"\"\207" [custom-set-default delq nil mapcar #[257 "\300A\301\211\302$\205\211\207" [mm-charset-to-coding-system nil t] 6 "\n\n(fn PAIR)"]] 9 "\n\n(fn SYMBOL VALUE)"] :version "22.1" :group mime] 12)
#@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) (#$ . 5714))
#@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) mm-coding-system-p raw-text-dos raw-text] 2) (#$ . 5909))
#@31 Text coding system for write.
(defvar mm-text-coding-system-for-write nil (#$ . 6180))
#@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) utf-8-emacs-dos emacs-mule (windows-nt ms-dos) emacs-mule-dos escape-quoted] 2) (#$ . 6273))
#@30 The universal coding system.
(defvar mm-universal-coding-system mm-auto-save-coding-system (#$ . 6696))
#@38 Alist of MIME-charset/MULE-charsets.
(defvar mm-mime-mule-charset-alist '((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) (utf-8)) (#$ . 6806))
(byte-code "\301\302!\203V\301\303!\203V\303\302\304!!\305\211\211\211\203Q\211A\262\242\262\306\307\"\206,\306\310\"\262\203\306\311\"\211\262\312=\204\236\204\313\314\"BB\262\202\211\237\266\305\207" [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] 9)
#@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) (#$ . 8976))
#@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")) (#$ . 9258))
#@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 #[257 "\300@!\203)\301\302\303@\"!\304!\301\302\303\305\"!Z\302A@@\"\306\307\"\262BB\207\310\207" [mm-coding-system-p string-to-char decode-coding-string "\341" char-charset iso-8859-15 append nil (gnus-charset 0)] 8 "\n\n(fn CS)"]] 3) (#$ . 9504))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable mm-coding-system-priorities funcall function #[0 "\301\302\"\205\303\207" [current-language-environment string-match "\\`Japanese" (iso-8859-1 iso-2022-jp utf-8)] 3] "Preferred coding systems for encoding outgoing messages.\n\nMore than one suitable coding system may be found for some text.\nBy default, the coding system with the highest priority is used\nto encode outgoing messages (see `sort-coding-systems').  If this\nvariable is set, it overrides the default priority." :version "24.4" :type (repeat (symbol :tag "Coding system")) :group mime] 10)
#@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 t (#$ . 10677))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mm-extra-numeric-entities funcall function #[0 "\300\301\302\"\207" [mapcar #[257 "\211@\300A!B\207" [mm-ucs-to-char] 4 "\n\n(fn ITEM)"] ((128 . 8364) (130 . 8218) (131 . 402) (132 . 8222) (133 . 8230) (134 . 8224) (135 . 8225) (136 . 710) (137 . 8240) (138 . 352) (139 . 8249) (140 . 338) (142 . 381) (145 . 8216) (146 . 8217) (147 . 8220) (148 . 8221) (149 . 8226) (150 . 8211) (151 . 8212) (152 . 732) (153 . 8482) (154 . 353) (155 . 8250) (156 . 339) (158 . 382) (159 . 376))] 3] "Alist of extra numeric entities and characters other than ISO 10646.\nThis table is used for decoding extra numeric entities to characters,\nlike \"€\" to the euro sign, mainly in html messages." :type (alist :key-type character :value-type character) :group mime] 8)
#@80 Return the MIME charset corresponding to the given Mule CHARSET.

(fn CHARSET)
(defalias 'mm-mule-charset-to-mime-charset #[257 "\300\301\302C!!\303\"\304\211\211\204/\203/\211A\262\242\211\262\203\305\306\"\206*\305\307\"\262\202\207" [sort sort-coding-systems find-coding-systems-for-charsets mm-sort-coding-systems-predicate nil coding-system-get :mime-charset mime-charset] 7 (#$ . 11785)])
#@126 Set the multibyte flag of the current buffer.
Only do this if the default value of `enable-multibyte-characters' is
non-nil.
(defalias 'mm-enable-multibyte #[0 "\300\301!\207" [set-buffer-multibyte to] 2 (#$ . 12202)])
#@52 Unset the multibyte flag of in the current buffer.
(defalias 'mm-disable-multibyte #[0 "\300\301!\207" [set-buffer-multibyte nil] 2 (#$ . 12427)])
#@16 

(fn CHARSET)
(defalias 'mm-preferred-coding-system #[257 "\300\301\"\206\300\302\"\207" [get-charset-property preferred-coding-system prefered-coding-system] 4 (#$ . 12580)])
#@51 Guess Mule charset from the language environment.
(defalias 'mm-guess-charset #[0 "\206$\305\306\307	\n\"\236!@\211\203\310=\203#\305\f\236!@\206\"\311\207" [mail-parse-mule-charset current-language-environment language-info-alist mail-parse-charset mm-mime-mule-charset-alist last charset assoc ascii latin-iso8859-1] 6 (#$ . 12767)])
(put 'mm-guess-charset 'byte-optimizer 'byte-compile-inline-expand)
#@177 Return charset of a character in current buffer at position POS.
If POS is nil, it defaults to the current point.
If POS is out of range, the value is nil.

(fn &optional POS)
(defalias 'mm-charset-after #[256 "\211f\305\306W\203\307\211\262\202G\310!\262\211\203#\211\311>\204#\211\202G\206G\312\313\314	\n\"\236!@\211\203;\307=\203F\312\f\236!@\206E\315\207" [mail-parse-mule-charset current-language-environment language-info-alist mail-parse-charset mm-mime-mule-charset-alist nil 128 ascii char-charset (ascii eight-bit-control eight-bit-graphic) last charset assoc latin-iso8859-1] 8 (#$ . 13189)])
#@80 Return the MIME charset corresponding to the given Mule CHARSET.

(fn CHARSET)
(defalias 'mm-mime-charset #[257 "\211\300=\203\n\301\302!\210\303!\203\304\303!\305\"\206*\211\306=\203!\307\207\303!\206*\310!\207" [unknown error "The message contains non-printable characters, please use attachment" mm-preferred-coding-system coding-system-get mime-charset ascii us-ascii mm-mule-charset-to-mime-charset] 4 (#$ . 13820)])
#@56 Non-nil if multibyte is enabled in the current buffer.
(defalias 'mm-multibyte-p #[0 "\207" [enable-multibyte-characters] 1 (#$ . 14258)])
#@22 

(fn &optional B E)
(defalias 'mm-iso-8859-x-to-15-region #[512 "\301\211\211\214\203\f}\210eb\210\302\301w\210m\204P\303\301f\211\262!\236\211\262\204,\301u\210\202IAA>\203=\304\262\301u\210\202I\305A@\\\306\307!\210!\210\302\301w\210\202)\211?\207" [mm-iso-8859-x-to-15-table nil "-" char-charset t insert-before-markers delete-char 1] 9 (#$ . 14404)])
#@12 

(fn A B)
(defalias 'mm-sort-coding-systems-predicate #[514 "\301\302\"\303!\211\262\205'\303!\211\262\203&\304!>G\304!>GV\202'\305\207" [mm-coding-system-priorities mapcar #[257 "\300!\211\262\205\f\301!\207" [mm-coding-system-p coding-system-base] 3 "\n\n(fn CS)"] mm-coding-system-p coding-system-base t] 6 (#$ . 14787)])
#@232 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.

(fn B E &optional HACK-CHARSETS)
(defalias 'mm-find-mime-charset-region #[770 "\304\203`	\203`\305\"\n\203\306\307\"\262\310\311\"\262\211\312\232\204Z\211\203Z\211A\262\242\313\314\"\2068\313\315\"\211\203U\316\317\320!\"\204U\316\321\320!\"\204U\304\262\211C\262\266\202#\262\204p\322\323\324\310\325\326		\"\"\"!\262\211G\327V\203\242\330>\203\242\330>\203\242\212\331\")\203\242\211\203\241\211@\310@\"\262A\266\202\202\215\210\332>\203\264\332>\203\264\310\333\"\262\211\207" [enable-multibyte-characters mm-use-find-coding-systems-region mm-coding-system-priorities mm-iso-8859-15-compatible nil 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" delete-dups 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] 12 (#$ . 15136)])
#@93 Create a temporary unibyte buffer, and evaluate FORMS there like `progn'.

(fn &rest FORMS)
(defalias 'mm-with-unibyte-buffer '(macro . #[128 "\300\301BB\207" [with-temp-buffer (mm-disable-multibyte)] 4 (#$ . 16330)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mm-with-unibyte-buffer lisp-indent-function 0 put edebug-form-spec t] 5)
#@95 Create a temporary multibyte buffer, and evaluate FORMS there like `progn'.

(fn &rest FORMS)
(defalias 'mm-with-multibyte-buffer '(macro . #[128 "\300\301BB\207" [with-temp-buffer (mm-enable-multibyte)] 4 (#$ . 16695)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mm-with-multibyte-buffer lisp-indent-function 0 put edebug-form-spec t] 5)
#@65 Return a list of Emacs charsets in the region B to E.

(fn B E)
(defalias 'mm-find-charset-region #[514 "\203\305\"\306\211\203\211@\307\"\262A\266\202\202	\210\211\207\212\214}\210eb\210\310\311w\210m\2034\312\202^\311\313\314\315	\n\"\236!@\262\211\316=\203I\311\262\211\204U\313\f\236!@\262\316\206[\317D\262*\207" [enable-multibyte-characters current-language-environment language-info-alist mail-parse-charset mm-mime-mule-charset-alist find-charset-region (composition eight-bit-control eight-bit-graphic control-1) delq "-" nil (ascii) last charset assoc ascii latin-iso8859-1] 8 (#$ . 17065)])
#@63 Return an `auto-mode-alist' with only the .gz (etc) thingies.
(defalias 'mm-auto-mode-alist #[0 "\301\203@A<\203@B\262\211A\262\210\202\211\237\207" [auto-mode-alist nil] 4 (#$ . 17700)])
#@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) (#$ . 17908))
#@420 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-hook', etc.
If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
This function ensures that none of these modifications will take place.

(fn FILENAME &optional VISIT BEG END REPLACE INHIBIT)
(defalias 'mm-insert-file-contents #[1537 "\306\211?\205	\307 \310\311!\312\313\314\315\316!\317\"\320$\216\321\311\322\"\210\306\211\306\203,\323\202-
\203;\324\"\202=\306\323%.\262*\207" [format-alist auto-mode-alist enable-local-variables after-insert-file-functions enable-local-eval inhibit-file-name-operation nil mm-auto-mode-alist default-value major-mode make-byte-code 0 "\301\302\300\"\207" vconcat vector [set-default major-mode] 3 set-default fundamental-mode insert-file-contents append mm-inhibit-file-name-handlers inhibit-file-name-handlers find-file-hook] 14 (#$ . 18081)])
#@405 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'.

(fn START END FILENAME &optional CODESYS INHIBIT)
(defalias 'mm-append-to-file #[1283 "\206	\206		\203\306\202\n\203\307\f\"\202\f\310\311\312%\210\313\314\"+\207" [mm-text-coding-system-for-write mm-text-coding-system inhibit-file-name-operation mm-inhibit-file-name-handlers inhibit-file-name-handlers coding-system-for-write append-to-file append write-region t no-message message "Appended to %s"] 11 (#$ . 19135)])
#@165 Like `write-region'.
If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.

(fn START END FILENAME &optional APPEND VISIT LOCKNAME CODING-SYSTEM INHIBIT)
(defalias 'mm-write-region #[2051 "\206	\206		\203\306\202\n\203\307\f\"\202\f\306&+\207" [mm-text-coding-system-for-write mm-text-coding-system inhibit-file-name-operation mm-inhibit-file-name-handlers inhibit-file-name-handlers coding-system-for-write write-region append] 15 (#$ . 19938)])
(byte-code "\300\301\302\"\210\300\301\302\303#\210\304\301\302\305#\207" [defalias mm-make-temp-file make-temp-file nil make-obsolete "26.1"] 4)
(defvar mm-image-load-path-cache nil)
#@26 

(fn &optional PACKAGE)
(defalias 'mm-image-load-path #[256 "\203	@\232\203A\207\302\211	\211\203<\211@\211\2035\303\304\305!!\306\206(\307Q\211\262!\2035B\262A\266\202\202\210\211\237\262	B\207" [mm-image-load-path-cache load-path nil file-directory-p file-name-directory directory-file-name "etc/images/" "gnus/"] 9 (#$ . 20616)])
#@76 Like `detect-coding-region' except returning the best one.

(fn START END)
(defalias 'mm-detect-coding-region #[514 "\300\"\211\242\206\n\211\207" [detect-coding-region] 5 (#$ . 20980)])
#@86 Detect MIME charset of the text in the region between START and END.

(fn START END)
(defalias 'mm-detect-mime-charset-region #[514 "\300\"\301\302\"\207" [mm-detect-coding-region coding-system-get mime-charset] 6 (#$ . 21176)])
#@77 Return the MIME charset corresponding to CODING-SYSTEM.

(fn CODING-SYSTEM)
(defalias 'mm-coding-system-to-mime-charset #[257 "\211\205\300\301\"\207" [coding-system-get mime-charset] 4 (#$ . 21414)])
#@567 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.

(fn FILENAME &optional INPLACE FORCE)
(defalias 'mm-decompress-buffer #[769 "\205\377\211\203\304\305\306!\210\202\307\310!\205\377\310 \205\377\311!\211\205\375\312\304D>\2043\310 \2043\313\314!\210\315!\316!\317\320\321!#\322 p\211\312\211\323\324\"\210\325\326!r\211q\210\327\330\331\332\333!\334\"\335$\216\336 \210\337!\210\3401\267\341\342ed
\304\211
D\312&>\204\256\343 \210\344\345\346\347\n!\210\350 \343 \210\312\304#\351#\352\261\210\317\353\344\345
\351#$\262\350 \211\2620\202\277\354!\211\262\262\210*\210\355!\203\332\3561\325\357!0\202\331\210\202\332\210\203\355\211\204\352ed|\210c\210\312\262\323\324\206\367\360P\"\210*\266\211\262\207" [mm-binary-coding-system coding-system-for-write coding-system-for-read jka-compr-acceptable-retval-list t require jka-compr fboundp jka-compr-installed-p jka-compr-get-compression-info nil error "" 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*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-disable-multibyte insert-buffer-substring (error) apply call-process-region erase-buffer mapconcat identity split-string insert-file-contents buffer-string " " "\n" "Error while executing \"%s %s < %s\"" error-message-string file-exists-p (error) delete-file "done"] 23 (#$ . 21625)])
#@341 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.

(fn &optional FILENAME)
(defalias 'mm-find-buffer-file-coding-system #[256 "\211\204\262\212\211\205\302\303\"?\205\304\305\306#\211\203-\307\310!q\210\311 \210\211c\210\312!\262eb\210\313\314\315\316\317!\320\"\321$\216\203R\322JdeZ\"\206f\323\324\"@\202f\305\3251c\322J\305deZ\"0\202e\210\305))\262)\207" [buffer-file-name auto-coding-alist string-match "\\.\\(?:tar\\.[^.]+\\|tbz\\|tgz\\)\\'" mm-decompress-buffer nil t generate-new-buffer " *temp*" mm-disable-multibyte file-name-sans-extension make-byte-code 0 "\300\205\301p!\207" vconcat vector [kill-buffer] 2 set-auto-coding-function find-operation-coding-system insert-file-contents (error)] 8 (#$ . 23649)])
#@18 

(fn START END)
(defalias 'mm-images-in-region-p #[514 "\300\212b\210\211\204)`W\203)\301`\302\"\211:\203\"\211@\303=\203\"\304\262\210\305u\210\202)\211\207" [nil get-text-property display image t 1] 6 (#$ . 24666)])
(provide 'mm-util)

Zerion Mini Shell 1.0