Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : rmailmm.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:23 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/rmailmm.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 "`rmailmm.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\207" [require rmail mail-parse] 2)
#@307 Functions to handle various content types.
This is an alist with elements of the form (REGEXP FUNCTION ...).
The first item is a regular expression matching a content-type.
The remaining elements are handler functions to run, in order of
decreasing preference.  These are called until one returns non-nil.
(custom-declare-variable 'rmail-mime-media-type-handlers-alist ''(("multipart/.*" rmail-mime-multipart-handler) ("text/.*" rmail-mime-text-handler) ("text/\$x-\$?patch" rmail-mime-bulk-handler) ("\$image\\|audio\\|video\\|application\$/.*" rmail-mime-bulk-handler)) '(#$ . 681) :type '(alist :key-type regexp :value-type (repeat function)) :version "23.1" :group 'mime)
#@305 Default directories to save attachments of various types into.
This is an alist with elements of the form (REGEXP DIR ...).
The first item is a regular expression matching a content-type.
The remaining elements are directories, in order of decreasing preference.
The first directory that exists is used.
(custom-declare-variable 'rmail-mime-attachment-dirs-alist '`(("text/.*" "~/Documents") ("image/.*" "~/Pictures") (".*" "~/Desktop" "~" ,temporary-file-directory)) '(#$ . 1368) :type '(alist :key-type regexp :value-type (repeat directory)) :version "23.1" :group 'mime)
#@115 The total number of bulk attachments in the message.
If more than 3, offer a way to save all attachments at once.
(defvar rmail-mime-total-number-of-bulk-attachments 0 (#$ . 1949))
(put 'rmail-mime-total-number-of-bulk-attachments 'permanent-local t)
#@47 Save the attachment using info in the BUTTON.
(defalias 'rmail-mime-save #[(button) "\306\301\"\306\302\"\306\303\"\307\310	\n\"!\203C�\311	!\312\313\314\f\"\2033�\315\316\312\f\"!T\f\317\211\224O\f\320\321
!\322\323	!\260*\202�\310\324\325\326	\"\n\310	\n\"#\n\"\327	!\203_�\330\331\332	\"!\210	\333\334\335!!#$\336\216r#q\210\337\340!\210c)r#q\210\341\342\211$\342\317%\210.\207" [button filename directory data f i button-get file-exists-p expand-file-name file-name-sans-extension 1 string-match "-\$[0-9]+\$$" string-to-number match-string 0 "-" number-to-string "." file-name-extension read-file-name format "Save as (default: %s): " file-regular-p error message "File `%s' already exists" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) set-buffer-file-coding-system no-conversion write-region nil #1# #2=#:temp-file] 7 (#$ . 2206)])
(define-button-type 'rmail-mime-save 'action 'rmail-mime-save)
#@54 Handle the current buffer as a plain text MIME part.
(defalias 'rmail-mime-text-handler #[(content-type content-disposition content-transfer-encoding) "\301A\236A\211\205�\303	\227!\304\n!\205�\305ed\n#*\207" [content-type charset coding-system intern coding-system-p decode-coding-region] 5 (#$ . 3242)])
#@44 Test of a mail using no MIME parts at all.
(defalias 'test-rmail-mime-handler #[nil "\301\302\303\304!!\210\305 \210\306\307!\210c\210\310\311!\210\306\311!)\207" [mail "To: alex@gnu.org\nContent-Type: text/plain; charset=koi8-r\nContent-Transfer-Encoding: 8bit\nMIME-Version: 1.0\n\n\372\304\322\301\327\323\324\327\325\312\324\305!" switch-to-buffer get-buffer-create "*test*" erase-buffer set-buffer-multibyte nil rmail-mime-show t] 3 (#$ . 3559)])
#@57 Handle the current buffer as an attachment to download.
(defalias 'rmail-mime-bulk-handler #[(content-type content-disposition content-transfer-encoding) "T\301\306\215\307\nA\236A\206�\304A\236A\206�\310\311\312\n@\"\313 ed|\210
c\210\314\f\315\316\304\f\301	\317&	,\207" [rmail-mime-total-number-of-bulk-attachments directory content-type content-disposition filename label (byte-code "\305\211\205;�\n@\306	@@\"\2033�	A\305\211\2032�\n@\307\f!\203+�\310\311\f\"\210\nA\211\204�*\nA\211\204�\305*\207" [rmail-mime-attachment-dirs-alist entry --dolist-tail-- content-type dir nil string-match file-directory-p throw directory] 4) name "noname" format "\nAttached %s file: " buffer-string insert-button :type rmail-mime-save data] 10 (#$ . 4019)])
#@48 Test of a mail used as an example in RFC 2183.
(defalias 'test-rmail-mime-bulk-handler #[nil "\301\302\303\304!!\210\305 \210c\210\306 )\207" [mail "Content-Type: image/jpeg\nContent-Disposition: attachment; filename=genome.jpeg;\n  modification-date=\"Wed, 12 Feb 1997 16:29:51 -0500\";\nContent-Description: a complete map of the human genome\nContent-Transfer-Encoding: base64\n\niVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAAABGdBTUEAALGPC/xhBQAAAAZQ\nTFRF////AAAAVcLTfgAAAPZJREFUeNq9ldsOwzAIQ+3//+l1WlvA5ZLsoUiTto4TB+ISoAjy\n+ITfRBfcAmgRFFeAm+J6uhdKdFhFWUgDkFsK0oUp/9G2//Kj7Jx+5tSKOdBscgUYiKHRS/me\nWATQdRUvAK0Bnmshmtn79PpaLBbbOZkjKvRnjRZoRswOkG1wFchKew2g9wXVJVZL/m4+B+vv\n9AxQQR2Q33SgAYJzzVACdAWjAfRYzYFO9n6SLnydtQHSMxYDMAKqZ/8FS/lTK+zuq3CtK64L\nUDwbgUEAUmk2Zyg101d6PhCDySgAvTvDgKiuOrc4dLxUb7UMnhGIexyI+d6U+ABuNAP4Simx\nlgAAAABJRU5ErkJggg==\n" switch-to-buffer get-buffer-create "*test*" erase-buffer rmail-mime-show] 3 (#$ . 4797)])
#@262 Handle the current buffer as a multipart MIME body.
The current buffer should be narrowed to the body.  CONTENT-TYPE,
CONTENT-DISPOSITION, and CONTENT-TRANSFER-ENCODING are the values
of the respective parsed headers.  See `rmail-mime-handle' for their
format.
(defalias 'rmail-mime-multipart-handler #[(content-type content-disposition content-transfer-encoding) "\304\236A\306\211\211\211\204�\307\310
$\210\311\fPeb\210\312\f\306\313#\2031�\314\315!\2031�e\316\225|\210\316e\312\f\306\313#\205�\316\224\314\317!\203M�\320 \202c�\314\315!\203[�\321\316\225!\202c�\307\322
$\210\n	|\210\323 \324\216\212\214\n}\210\325 \210,	\211b\210\2026�,\207" [content-type next end beg boundary content-disposition nil rmail-mm-get-boundary-error-message "No boundary defined" "\n--" search-forward t looking-at "[ 	]*\n" 0 "--[ 	]*\n" point-max-marker copy-marker "Malformed boundary" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) rmail-mime-show content-transfer-encoding rmail-mime-total-number-of-bulk-attachments save-match-data-internal] 6 (#$ . 5747)])
#@48 Test of a mail used as an example in RFC 2046.
(defalias 'test-rmail-mime-multipart-handler #[nil "\301\302\303\304!!\210\305 \210c\210\306\307!)\207" [mail "From: Nathaniel Borenstein <nsb@bellcore.com>\nTo: Ned Freed <ned@innosoft.com>\nDate: Sun, 21 Mar 1993 23:56:48 -0800 (PST)\nSubject: Sample message\nMIME-Version: 1.0\nContent-type: multipart/mixed; boundary=\"simple boundary\"\n\nThis is the preamble.  It is to be ignored, though it\nis a handy place for composition agents to include an\nexplanatory note to non-MIME conformant readers.\n\n--simple boundary\n\nThis is implicitly typed plain US-ASCII text.\nIt does NOT end with a linebreak.\n--simple boundary\nContent-type: text/plain; charset=us-ascii\n\nThis is explicitly typed plain US-ASCII text.\nIt DOES end with a linebreak.\n\n--simple boundary--\n\nThis is the epilogue.  It is also to be ignored." switch-to-buffer get-buffer-create "*test*" erase-buffer rmail-mime-show t] 3 (#$ . 6877)])
#@721 Handle the current buffer as a MIME part.
The current buffer should be narrowed to the respective body, and
point should be at the beginning of the body.

CONTENT-TYPE, CONTENT-DISPOSITION, and CONTENT-TRANSFER-ENCODING
are the values of the respective parsed headers.  The parsed
headers for CONTENT-TYPE and CONTENT-DISPOSITION have the form

(VALUE . ALIST)

In other words:

(VALUE (ATTRIBUTE . VALUE) (ATTRIBUTE . VALUE) ...)

VALUE is a string and ATTRIBUTE is a symbol.

Consider the following header, for example:

Content-Type: multipart/mixed;
	boundary="----=_NextPart_000_0104_01C617E4.BDEC4C40"

The parsed header value:

("multipart/mixed"
  ("boundary" . "----=_NextPart_000_0104_01C617E4.BDEC4C40"))
(defalias 'rmail-mime-handle #[(content-type content-disposition content-transfer-encoding) "\306\230\203�\307\310\311\217\203,�\307\202,�\312\230\203\"�\313`d\"\210\307\202,�\314\230\203,�\315\307!\210	@\316\230\203e�\307\307\211\205c�
@\317\f@@\"\203[�\n\204[�\f\211A@)	#
A\211\204=�\307+\207\320	#\207" [content-transfer-encoding content-disposition stop rmail-mime-media-type-handlers-alist entry --dolist-tail-- "base64" nil (byte-code "\300`d\"\207" [base64-decode-region] 3) ((error)) "quoted-printable" quoted-printable-decode-region "8bit" set-buffer-multibyte "inline" string-match rmail-mime-bulk-handler content-type x] 5 (#$ . 7852)])
#@364 Handle the current buffer as a MIME message.
If SHOW-HEADERS is non-nil, then the headers of the current part
will shown as usual for a MIME message.  The headers are also
shown for the content type message/rfc822.  This function will be
called recursively if multiple parts are available.

The current buffer must contain a single message.  It will be
modified.
(defalias 'rmail-mime-show #[(&optional show-headers) "e\305\211\211eb\210\305f\306=\203�`T\2025�\307\310\305\311#\2035�\312\225\214e}\210\313\314!\313\315!\313\316!)\n\203@�\317\n!\202B�\320\203L�\321!\202M�\322\211@\323\235\204W�\324\214\n@\325\230\203f�d}\210\202n�\f\204n�e|\210\326\n	#-\207" [content-disposition content-transfer-encoding content-type end show-headers nil 10 search-forward "\n\n" t 0 mail-fetch-field "Content-Type" "Content-Transfer-Encoding" "Content-Disposition" mail-header-parse-content-type ("text/plain") mail-header-parse-content-disposition ("inline") ("inline" "attachment") ("attachment") "message/rfc822" rmail-mime-handle] 5 (#$ . 9250)])
#@357 Process the current Rmail message as a MIME message.
This creates a temporary "*RMAIL*" buffer holding a decoded
copy of the message.  Content-types are handled according to
`rmail-mime-media-type-handlers-alist'.  By default, this
displays text and multipart messages, and offers to download
attachments as specfied by `rmail-mime-attachment-dirs-alist'.
(defalias 'rmail-mime #[nil "\305\306\"\307\310!	q\210\311\211\312 \210\nc\210\313\311!\210\314\315!\210)\316	!*\207" [rmail-current-message buf data buffer-undo-list inhibit-read-only rmail-apply-in-message buffer-string get-buffer-create "*RMAIL*" t erase-buffer rmail-mime-show set-buffer-modified-p nil view-buffer] 4 (#$ . 10315) nil])
#@67 Return MESSAGE with more information on the main mime components.
(defalias 'rmail-mm-get-boundary-error-message #[(message type disposition encoding) "\304\305	\n%\207" [message type disposition encoding error "%s; type: %s; disposition: %s; encoding: %s"] 6 (#$ . 11023)])
(provide 'rmailmm)

${this.title}

Code Editor : rmailmm.elc