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 : mml.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/mml.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 "`mml.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\204\n�\301\302M\210\303\304!\210\303\305!\210\303\306!\210\303\307!\210\303\310!\210\311\312\313\"\210\311\314\315\"\210\311\316\317\"\210\311\320\313\"\210\311\321\313\"\210\311\322\313\"\210\311\323\324\"\210\311\325\313\"\210\311\326\327\"\210\311\330\313\"\210\311\331\313\"\210\311\332\313\"\210\311\333\313\"\207" [fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) require mm-util mm-bodies mm-encode mm-decode mml-sec autoload message-make-message-id "message" gnus-setup-posting-charset "gnus-msg" gnus-make-local-hook "gnus-util" message-fetch-field message-mark-active-p message-info fill-flowed-encode "flow-fill" message-posting-charset dnd-get-local-file-name "dnd" message-options-set message-narrow-to-head message-in-body-p message-mail-p] 3)
#@111 *A list of acceptable parameters in MML tag.
These parameters are generated in Content-Type header if exists.
(custom-declare-variable 'mml-content-type-parameters ''(name access-type expiration size permission format) '(#$ . -1401) :version "22.1" :type '(repeat (symbol :tag "Parameter")) :group 'message)
#@118 *A list of acceptable parameters in MML tag.
These parameters are generated in Content-Disposition header if exists.
(custom-declare-variable 'mml-content-disposition-parameters ''(filename creation-date modification-date read-date) '(#$ . -1716) :version "22.1" :type '(repeat (symbol :tag "Parameter")) :group 'message)
#@685 Alist of MIME types or regexps matching file names and default dispositions.
Each element should be one of the following three forms:

(REGEXP . DISPOSITION)
  (SUPERTYPE (SUBTYPE . DISPOSITION) (SUBTYPE . DISPOSITION)...)
  (TYPE . DISPOSITION)

Where REGEXP is a string which matches the file name (if any) of an
attachment, SUPERTYPE, SUBTYPE and TYPE should be symbols which are a
MIME supertype (e.g., text), a MIME subtype (e.g., plain) and a MIME
type (e.g., text/plain) respectively, and DISPOSITION should be either
the string "attachment" or the string "inline".  The value t for
SUPERTYPE, SUBTYPE or TYPE matches any of those types.  The first
match found will be used.
(custom-declare-variable 'mml-content-disposition-alist ''((text (rtf . "attachment") (t . "inline")) (t . "attachment")) '(#$ . 2045) :version "23.1" :type (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\257\310\311\316\317\304\320\302\306\321\303\304\313\314\310\306\322\313\323\324\257\257\257\310\311\325\313\314\326\257\257F)\207" [dispositions (radio :format "DISPOSITION: %v" :value "attachment" (const :format "%v " "attachment") (const :format "%v\n" "inline")) repeat :offset 0 choice :format "%[Value Menu%]%v" cons :tag "(REGEXP . DISPOSITION)" :extra-offset 4 (regexp :tag "REGEXP" :value ".*") "(SUPERTYPE (SUBTYPE . DISPOSITION)...)" :indent (symbol :tag "    SUPERTYPE" :value text) "%v%i\n" "%v" 5 (symbol :tag "SUBTYPE" :value t) "(TYPE . DISPOSITION)" (symbol :tag "TYPE" :value t)] 27) :group 'message)
#@130 If non-nil, always put Content-Type: text/plain at top of empty parts.
It is necessary to work against a bug in certain clients.
(custom-declare-variable 'mml-insert-mime-headers-always 'nil '(#$ . 3586) :version "22.1" :type 'boolean :group 'message)
#@276 A list of (TYPE . FUNCTION) for tweaking MML parts.
TYPE is a string containing a regexp to match the MIME type.  FUNCTION
is a Lisp function which is called with the MML handle to tweak the
part.  This variable is used only when no TWEAK parameter exists in
the MML handle.
(defvar mml-tweak-type-alist nil (#$ . 3845))
#@216 A list of (NAME . FUNCTION) for tweaking MML parts.
NAME is a string containing the name of the TWEAK parameter in the MML
handle.  FUNCTION is a Lisp function which is called with the MML
handle to tweak the part.
(defvar mml-tweak-function-alist nil (#$ . 4173))
#@221 A list of (SEXP . FUNCTION) for tweaking MML parts.
SEXP is an s-expression.  If the evaluation of SEXP is non-nil, FUNCTION
is called.  FUNCTION is a Lisp function which is called with the MML
handle to tweak the part.
(defvar mml-tweak-sexp-alist '((mml-externalize-attachments . mml-tweak-externalize-attachments)) (#$ . 4445))
#@70 *If non-nil, local-file attachments are generated as external parts.
(defvar mml-externalize-attachments nil (#$ . -4782))
#@337 *Alist of multipart generation functions.
Each entry has the form (NAME . FUNCTION), where
NAME is a string containing the name of the part (without the
leading "/multipart/"),
FUNCTION is a Lisp function which is called to generate the part.

The Lisp function has to supply the appropriate MIME headers and the
contents of this part.
(defvar mml-generate-multipart-alist nil (#$ . -4912))
(byte-code "\303B\304\303!\204J�\305\303\306	!\307\310\311\n#\210\307\312\313\n#\210\307\314\315\n#\210\307\316\317\n#\210\307\320\317\n#\210\307\321\322\n#\210\307\323\322\n#\210\307\324\322\n#\210\307\325\322\n#\210\n)\"\210\303\207" [current-load-list emacs-lisp-mode-syntax-table table mml-syntax-table default-boundp set-default copy-syntax-table modify-syntax-entry 92 "/" 60 "(" 62 ")" 64 "w" 47 61 " " 42 59 39] 6)
#@269 A function called to suggest a boundary.
The function may be called several times, and should try to make a new
suggestion each time.  The function is called with one parameter,
which is a number that says how many times the function has been
called for this message.
(defvar mml-boundary-function 'mml-make-boundary (#$ . 5736))
#@277 A list of symbols, each of which disables some warning.
`unknown-encoding': always send messages contain characters with
unknown encoding; `use-ascii': always use ASCII for those characters
with unknown encoding; `multipart': always send messages with more than
one charsets.
(defvar mml-confirmation-set nil (#$ . 6073))
#@416 Content type by which the Content-Type header can be omitted.
The Content-Type header will not be put in the MIME part if the type
equals the value and there's no parameter (e.g. charset, format, etc.)
and `mml-insert-mime-headers-always' is nil.  The value will be bound
to "message/rfc822" when encoding an article to be forwarded as a MIME
part.  This is for the internal use, you should never modify the value.
(defvar mml-generate-default-type "text/plain" (#$ . 6402))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list mml-buffer-list default-boundp set-default nil] 3)
(defalias 'mml-generate-new-buffer #[(name) "\303!\211\nB	)\207" [name buf mml-buffer-list generate-new-buffer] 3])
(defalias 'mml-destroy-buffers #[nil "\302\303\304	\"\210\302\211)\207" [kill-buffer-hook mml-buffer-list nil mapc kill-buffer] 3])
#@46 Parse the current buffer as an MML document.
(defalias 'mml-parse #[nil "\212eb\210\303 p\304\216\305\n!\210\306 ,\207" [#1=#:buffer #2=#:table mml-syntax-table syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table mml-parse-1] 2 (#$ . 7268)])
#@46 Parse the current buffer as an MML document.
(defalias 'mml-parse-1 #[nil "\306\211\211\211\211\211\211\211\211@ABm\204!\307\310!\204!\307\311!\203\352�\306C\312 D\313D\236A\314D\236A\f\315D\236A
\316D\236A\317D\236AE\320D\236A\321D\236A\306F\212\322\323\306\324#\203o�\325C\202r�\326C)\212Eb\210\322\327!\210)\330\224\330\225|\210\331\230\203\223�\331DF\202\263�\332\230\203\243�\332DF\202\263�\333\230\203\263�\331\332FF\334\335C\336F\205\300�\337\f\205\310�\340\f
\205\320�\341
\205\330�\342\257\"BB!\210Eb\210.\n\202�\307\343!\203\375�\312 \344 \244BBB\202�\307\345!\203\312 \305\346 BC\244BBB\202�\307\347!\204\307\350!\203*\312 A\306\211\2023\351\352DA\324\211\300A\236A`@\346A@\353=!\203L\306\202f\354A\236\203_\355\354A\236A\227!C\202f\356@`G#\204\270\306\f>\203\270\357H>\204\213\360\357!\204\213\361\362!\203\264\363\357\324\"\203\264\302H>\206\242\360\302!\206\242\361\364!\205\242\363\302\324\"\211\203\257\365\306\f\"\202\270\306\202\270\366\367!\210\204\313A@\353=\204\313\fG\370W\203\345	\203\326\371\372
\"\203�A\305
BC\244BBB\202�\373A@`\n$I\203\374H>\204\360\374!\204\361\375\376IG\"!\203\363\374\324\"\204\366\377!\210IB\244B)\202�m\204*\201J�y\210B\237.	\207" [raw no-markup-p use-ascii warn charsets contents nil looking-at "<#/multipart" "<#secure" mml-read-tag keyfile certfile recipients sender tag-location mode method re-search-forward "<#/?\$multipart\\|part\\|external\\|mml\$." t "multipart" "part" "<#secure[^\n]*>\n" 0 "sign" "encrypt" "signencrypt" eval mml-insert-tag append "keyfile" "certfile" "recipients" "sender" "<#multipart" mml-parse-1 "<#external" mml-read-part "<#part" "<#mml" part (type . "text/plain") mml charset intern mm-find-mime-charset-region unknown-encoding message-options-get y-or-n-p "Message contains characters with unknown encoding.  Really send? " message-options-set "Use ASCII as charset? " delq error "Edit your message to remove those characters" 2 string-match "[^ 	
\n]" mml-parse-singlepart-with-multiple-charsets multipart format "A message part needs to be split into %d charset parts.  Really send? " "Edit your message to use only one charset" point tag struct secure-mode taginfo location tags mm-hack-charsets mml-confirmation-set nstruct 1] 14 (#$ . 7568)])
(defalias 'mml-parse-singlepart-with-multiple-charsets #[(orig-tag beg end &optional use-ascii) "\212\214	}\210eb\210\306\307 !\206�\n\205�\310\311\211\211\211\211m\204\307�\306\307 !\211\310=\204\225�\n\203<�\203D�=\203M�\311\211\311\202\225�\310=\203a�\311\211\311\202\225�\312\313\314\206t�\f\206t�
\206t�`\"BC\"B\206\212�\f\206\212�
\206\212�`\311\211\311g\315>\203\241�`T\202\301�g\316=\203\270�o\204\270�`Sf\316=\203\270�`\202\301�g\316=\203\301�`T\317u\210\202#�`U\204\335�\312\313\314`\"BC\"B.\207" [beg end use-ascii paragraph newline space mm-mime-charset mm-charset-after us-ascii nil append contents buffer-substring-no-properties (32 9) 10 1 struct charset current orig-tag] 7])
#@37 Read a tag and return the contents.
(defalias 'mml-read-tag #[nil "`\305\211\211\211\306u\210\307`\310\311!\210`\"\312\305w\210\313\314!\204Q�\307`\310\311!\210`\"\315\305w\210\307`\310\311!\210`\"\316\317\"\203B�\320\311\"\321	!BB\312\305w\210\202�\322\225b\210\323\324\fBC\"\321\n!\237-B\207" [val elem name contents orig-point nil 2 buffer-substring-no-properties forward-sexp 1 " 	\n" looking-at ">[ 	]*\n?" "= 	\n" string-match "^\"\$.*\$\"$" match-string intern 0 append tag-location] 5 (#$ . 10717)])
(defalias 'mml-buffer-substring-no-properties-except-hard-newlines #[(start end) "\305	\"\306\307	\310\311$\211\203'�\312\nZ\313\n\314#\315\f$\210\nT\202	�\f+\207" [start end tmp bufstart str buffer-substring-no-properties nil text-property-any hard t set-text-properties - -1 (hard t)] 6])
#@154 Return the buffer up till the next part, multipart or closing part or multipart.
If MML is non-nil, return the buffer up till the correspondent mml tag.
(defalias 'mml-read-part #[(&optional mml) "`\303\304\305!\203
�\303y\210\n\203L�\306V\203:�m\204:�\307\310\311\312#\2034�\303\224\203-�\313\202.�\303\\\211\202�db\210\202�\314	\306V\203F�`\202H�\306\224\"\202~�\307\315\311\312#\203y�\314	\306\224\"\303\224\203f�\316\317!\320\232\203m�\306\224b\210\202~�\304\305!\203~�\303y\210\202~�\314	db\"*\207" [count beg mml 1 looking-at "[ 	]*\n" 0 re-search-forward "<#\$/\$?mml." nil t -1 mml-buffer-substring-no-properties-except-hard-newlines "<#\$/\$?\$multipart\\|part\\|external\\|mml\$." match-string 2 "multipart"] 5 (#$ . 11553)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\310\"\210\304\207" [current-load-list mml-boundary default-boundp set-default nil mml-base-boundary "-=-=" mml-multipart-number 0] 3)
#@60 Generate a MIME message based on the current MML document.
(defalias 'mml-generate-mime #[nil "\303 \211\2056�\304\305!r\nq\210\306\216\307 \210	@:\203+�	G\310U\203+�\311	@!\210\2023�\311\312\313D	\244!\210\314 +*\207" [mml-multipart-number cont #1=#:temp-buffer mml-parse generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte 1 mml-generate-mime-1 multipart (type . "mixed") buffer-string] 4 (#$ . 12566)])
(defalias 'mml-generate-mime-1 #[(cont) "\206�\306	\236\214``}\210\307	!\210	@\310=\204�	@\311=\203+\302	\236A\303	\236A\304	\236A\206?�\203>�\312!\206?�\313\202?�\314\305	\236A\315
!@\316\2113A\316B@\317=\203b�\316\211@\202r�
\203r�\320@!\206q�\321
\227!\n\204\227\322\f\323\"@\324\235\203\227\325\326!CrCq\210\327\216\330	\236A\203\235�\331\330	\236A!\210\202\352�\203\266�\332	\236A\333\232\204\266�@D\334!\210)\202\352�	@\311=\203\306�\335	\236Ac\210\202\352�\214``}\210\335	\236Ac\210eb\210\336\337\316\340#\203\351�\341\224\342\\\341\224\343\\|\210\202\324�)	@\311=\203\344	!\314EF\345 \210*G\346PG\347 3)\202~\322\f\323\"@\350\230\203#G\346PG\347 3)\202~\316H\f\314\230\203Y\306	\236A\351\230\204Y\352	\236\203D\352	\236A\353\230\203Y\354ed\355\340$\211H\203Y\356 \210\352	\236?A)
\204d\f\357\230\204k\360
!\202u\361IBI\360 )\362
\363	\236A\"3\364 B+\365	\f
3A%\210\366c\210Bc\210\202&\325\326!JrJq\210\367\216\370 \210\330	\236A\203\276\371r\330	\236Aq\210\364 )!c\210\202\203\347\332	\236A\333\232\204\347KD\334\316\211\211\211\340&\210)
\204\320\372!!\202\335	\236A\373!\203\374 \210c\210\n\204\n\360
!\202\nc\210)\375\f!3\376\364 !B+\365	\f
3\316%\210\366B\261\210.\202\346	@\377=\2036\201X�c\210\201Y�	\201Z�\"\201M�	\236A\201L�	\236ALMNM\203\301\201[�M!\211M;\203w\201\\�\201]�\201^�M\"\201_�\"\210\202\301\201\\�\201]�\201^�\201`�\342M8!\"\201]�\201a�MA@\"\201]�\201b�\201c�\342M8!\"#\210\201\\�\201d�M@\201e�\235\203\273\201f�\202\276\201g�P!\210L\203\327\201\\�\201]�\201h�L\"\201i�\"\210N\203\345\201j�	\201k�\"\210\201l�c\210\201m�\304	\236A\206M\203\312M!\206\313\202\314\366\261\210\201n�\201o� \366\261\210\201p�\363	\236A\206!\201q�\261\210\201l�c\210\335	\236Ac\210\366c\210+\202\346	@\201r�=\203\335\304	\236A\206I\201s�\211\201t�\232\203X\201u�\202Y\314E\201v�\fO\"\211P\203qPA	!\210\202\331\344	!F\352\201w�\fF#\201x�	\236A\203\225\352\201y�\201x�	\236A\"\202\226\366\261\210	\316	\211A@\211\203\314:\203\236A:\203\236\201z�F\366\261\210\201{�!\210db\210\202\236*\201z�F\201|�\261\210)+\202\346\201}�\201~�	\"\210\201v�\306	\236AQ\"\201v�\201�	\236AR\"\316\211STU\211V\204U\205\222\201T�	\236A\211T\203/\201\200�\201\201�T\"\210\201\200�\201\202�T\"\210\201S�	\236A\211S\203E\201\200�\201\203�S\"\210\201\204�V\206OU@!WV\203zU\203zV@U@\232\203zW\201\205�\232\203zUA@	\340\"\202\221V\203\206VA@	!\210U\205\221UA@	!).\207" [mm-use-ultra-safe-encoding cont raw filename type charset sign mml-tweak-part part mml mm-default-file-encoding "application/octet-stream" "text/plain" mm-charset-to-coding-system nil ascii mm-coding-system-to-mime-charset intern split-string "/" ("text" "message") generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) buffer insert-buffer-substring nofile "yes" mm-insert-file-contents contents re-search-forward "<#!+/?\$part\\|multipart\\|external\\|mml\$" t 0 2 3 mml-compute-boundary mml-to-mime "" mm-body-7-or-8 "message" "pgp" format "flowed" text-property-any hard fill-flowed-encode "text/calendar" mm-encode-body utf-8 mm-body-encoding encoding buffer-string mml-insert-mime-headers "\n" ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte mm-string-as-unibyte mm-find-buffer-file-coding-system mm-multibyte-string-p mm-enable-multibyte mm-encode-buffer mm-string-as-multibyte external coding flowed coded #1# coding-system-for-read mml-generate-default-type mml-boundary mm-7bit-chars use-hard-newlines mm-coding-system-priorities #2# mm-binary-coding-system url name parameters mml-generate-multipart-alist handler mml-sign-alist mml-encrypt-alist recipients sender encrypt-item sign-item style "Content-Type: message/external-body" mml-parameter-string (expiration size permission) mml-parse-file-name mml-insert-parameter mail-header-encode-parameter "name" "access-type=local-file" file-name-nondirectory "site" "directory" file-name-directory "access-type=" ("ftp@" "anonymous@") "anon-ftp" "ftp" "url" "access-type=url" mml-insert-parameter-string (expiration size permission) "\n\n" "Content-Type: " "Content-ID: " message-make-message-id "Content-Transfer-Encoding: " "binary" multipart "mixed" "digest" "message/rfc822" assoc "Content-Type: multipart/%s; boundary=\"%s\"" start "; start=\"%s\"\n" "\n--" mml-generate-mime-1 "--\n" error "Invalid element: %S" encrypt message-options-set mml-sender message-sender message-recipients mml-signencrypt-style combined] 9])
#@55 Return a unique boundary that does not exist in CONT.
(defalias 'mml-compute-boundary #[(cont) "	T\211!\303\304\215\203�\n)\207" [mml-boundary-function mml-multipart-number mml-boundary not-unique (mml-compute-boundary-1 cont)] 3 (#$ . 17746)])
(defalias 'mml-compute-boundary-1 #[(cont) "\306	@\307=\203h�\310\311!r\nq\210\312\216\313	\236A\203$�\314\313	\236A!\210\202I�\300	\236A\211\203C�\315	\236A\316\232\204C�\317\306\211\211\211\320&\210\202I�\321	\236Ac\210eb\210\322\323\324!P\306\320#\203d�\f
T\211!\325\326\306\"\210+\202z�	@\327=\203z�\330\331	\211AA)\"\210)\320\207" [filename cont #1=#:temp-buffer mml-boundary mml-boundary-function mml-multipart-number nil part generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) buffer insert-buffer-substring nofile "yes" mm-insert-file-contents t contents re-search-forward "^--" regexp-quote throw not-unique multipart mapc mml-compute-boundary-1 x] 8])
(defalias 'mml-make-boundary #[(number) "\302\303\246\304\"\305V\203�\306\307\"\202�\310	Q\207" [number mml-base-boundary make-string 60 61 17 format "%x" ""] 4])
#@65 Return a default disposition name suitable to TYPE or FILENAME.
(defalias 'mml-content-disposition #[(type &optional filename) "\306\211\211\204\211�\f\203\211�\f\211A@\211@;\203/�
\203�\307\n@
\"\203�\nA\211\202	�\nA:\203s�\310\f\311\"\211@\n@\230\203�	\211
A@)\f\nA\204�	\203�	\211A@\211@\312=\204l�\f\n@\230\203O�\nA\211\202P�\n@\312=\204\202�\f\n@\230\203�\nA\211\203\f�\206\216�\313,\207" [mml-content-disposition-alist types def disposition defs filename nil string-match split-string "/" t "attachment" type x] 5 (#$ . 18900)])
(defalias 'mml-insert-mime-headers #[(cont type charset encoding flowed) "\306\211\211\211\307\f
\"\204(�\204(�\204(�\232\203(�\203\\�:\2032�\310\311!\210\312\261\210\203G�\313\314\315\316!\"!\210\203P�\313\317!\210\203Y�\320\f
\"\210\321c\210\302\f\236A\211\203k�\322\n\321\261\210\307\f \"\301\f\236A\211\204~�\203\233�\323	\206\213�\324\325\f\236A\"\261\210\203\230�\320\f \"\210\321c\210!\326=\204\251�\327\330!\"c\210\300\f\236A\211\205\300�\331c\210`\321\261\210\332`\",\207" [description disposition id parameters cont mml-content-type-parameters nil mml-parameter-string error "Can't encode a part with several charsets" "Content-Type: " mml-insert-parameter mail-header-encode-parameter "charset" symbol-name "format=flowed" mml-insert-parameter-string "\n" "Content-ID: " "Content-Disposition: " mml-content-disposition filename 7bit format "Content-Transfer-Encoding: %s\n" "Content-Description: " mail-encode-encoded-word-region charset flowed type mml-generate-default-type mml-insert-mime-headers-always mml-content-disposition-parameters encoding] 5])
(defalias 'mml-parameter-string #[(cont types) "\305\306\211\211A@\211\2030�\f\236A\211\203�\307=\203#�\310	!\n\311\312\313!	\"Q\202�\314\nG!?\2059�\n+\207" [type value string types cont "" nil filename file-name-nondirectory "; " mail-header-encode-parameter symbol-name zerop] 5])
(defalias 'mml-insert-parameter-string #[(cont types) "\304\211\n\211A@\211\205-�\236A\211\203�\305=\203!�\306	!\307\310\311!	\"!\210\202�*\207" [type value types cont nil filename file-name-nondirectory mml-insert-parameter mail-header-encode-parameter symbol-name] 4])
(defalias 'mml-parse-file-name #[(path) "\303\300!\203
�\304	\"\202�\303\302!\203+�\304\n@	\"\203+�\305\306	\"\305\307	\"	\307\225T\310OE\207	\207" [efs-path-regexp path ange-ftp-name-format boundp string-match match-string 1 2 nil] 5])
#@50 Insert BUFFER at point and quote any MML markup.
(defalias 'mml-insert-buffer #[(buffer) "\214``}\210\301!\210\302ed\"\210db)\207" [buffer insert-buffer-substring mml-quote-region] 3 (#$ . 21401)])
#@128 Translate the current buffer (which should be a message) into MML.
If HANDLES is non-nil, use it instead reparsing the buffer.
(defalias 'mime-to-mml #[(&optional handles) "\214\302 \210\303\304ed\"\210*	\204�\305\303!eb\210\306\307\310\303#\210`d|\210	@;\203.�\311	!\210\2023�\311	\303\"\210\312	!\210\214\302 \210\313\314!\210\313\315!\210\313\316!\210\313\317!)\207" [rfc2047-quote-decoded-words-containing-tspecials handles message-narrow-to-head t mail-decode-encoded-word-region mm-dissect-buffer search-forward "\n\n" nil mml-insert-mime mm-destroy-parts message-remove-header "Content-Type" "MIME-Version" "Content-Disposition" "Content-Transfer-Encoding"] 4 (#$ . 21607)])
(autoload 'message-encode-message-body "message")
#@48 Translate the current buffer from MML to MIME.
(defalias 'mml-to-mime #[nil "\214\302 \210\303\304!\203�\305y\210\202�\306 \210*\307 \207" [message-default-charset mail-parse-charset message-narrow-to-headers-or-head looking-at "From " 1 mail-encode-encoded-word-buffer message-encode-message-body] 2 (#$ . 22348)])
(defalias 'mml-insert-mime #[(handle &optional no-markup) "\306\211\211@;\204l�\307\211@;\203�@\202 �A@@)\310\"@)\311\232\211\204l�\212\312\313!\211q\210\314A@\315\"\316=\203J�\317 \210\320@!\210\202k�\321\322\"\210\211@;\203\\�@\202`�A@@)\323\232\211\203k�\324 \210)\203z�\325\306\326\211$\210\202\233�\f\203\225�\211@;\203\213�@\202\217�A@@)\327\232\204\233�\325	\n#\210\203\253�\320	!\210db\210\330c\202\355�@;\203\274�\331\332A\"\210\333c\202\355�\n\203\353�\314A@\315\"`\211
\316=\203\327�\321!\210\202\340�\334\335!
\"c\210\336
`\"\210*db\202\355�\337c+\207" [mmlp buffer textp handle no-markup start nil split-string "/" "text" mml-generate-new-buffer " *mml*" mail-content-type-get charset gnus-decoded mm-enable-multibyte insert-buffer-substring mm-insert-part no-cache "message/rfc822" mime-to-mml mml-insert-mml-markup t "text/plain" "<#/mml>\n" mapc mml-insert-mime "<#/multipart>\n" mm-decode-string mm-get-part mml-quote-region "<#/part>\n"] 6])
#@43 Take a MIME handle and insert an MML tag.
(defalias 'mml-insert-mml-markup #[(handle &optional buffer nofile mmlp) "@;\203;�\306\307\211@;\203�@\202�A@@)\310\"\211A@*\261\210\311\312\302@#\211\2037�\313\n\314\261\210)\315c\207\203X�\316\211@;\203M�@\202Q�A@@)\261\210\202n�\317\211@;\203f�@\202j�A@@)\261\210\320A@A\3218A\"\322\211\203\233�
@\211A9\204\224�\323\324\f@!\325\fA\314\261\210
A\211\204�*\3268\203\252�\327\3268\314\261\210\3218\203\270�\330\3218@\261\210\203\306�\331\332!\314\261\210\203\316�\333c\210\3348\203\334�\335\3348\314\261\210\315c\207" [handle x start mmlp elem #1=#:--cl-dolist-temp-- "<#multipart type=" split-string "/" get-text-property 0 " start=\"" "\"" ">\n" "<#mml type=" "<#part type=" append 4 nil " " symbol-name "=\"" 7 " id=\"" " disposition=" " buffer=\"" buffer-name " nofile=yes" 5 " description=\"" buffer nofile] 7 (#$ . 23671)])
#@34 Insert PARAMETERS in a nice way.
(defalias 'mml-insert-parameter #[(&rest parameters) "\305\211\n\305\211\203>�\f@\306c\210`\307\261\210`	b\210\305\210i\310V\2034�	b\210\311c\210Tb\210\2027�b\210\fA\211\204\f�,\305\207" [end start parameters param #1=#:--cl-dolist-temp-- nil ";" " " 76 "\n"] 3 (#$ . 24599)])
(byte-code "\306B\307\306!\204\342�\310\306\311 \311 \311 \311 \311 \311 9\312\n\313\314#\210\312\n\315\316#\210\312\n\317\320#\210\312\n\321\322#\210\312\n\323\324#\210\3129\325\326#\210\3129\327\330#\210\3129\331\332#\210\312\f\325\333#\210\312\f\327\334#\210\312\f\331\335#\210\312
\325\336#\210\312
\327\337#\210\312
\331\340#\210\312\325\341#\210\312\327\342#\210\312\331\343#\210\312\n\344\345#\210\312\n\346\347#\210\312\n\350\351#\210\312\n\352\353#\210\312\n\354\355#\210\312\n\356\357#\210\312\n\325\360#\210\312\n\361\362#\210\312\n\363\364#\210\312\n\3319#\210\312\n\365\f#\210\312\n\366
#\210\312\n\367#\210\312	\370\n#\210	.\"\210\306\207" [current-load-list main map encryptpart signpart encrypt mml-mode-map default-boundp set-default make-sparse-keymap define-key "" mml-secure-message-sign "" mml-secure-message-encrypt "" mml-secure-message-sign-encrypt "" mml-secure-sign "" mml-secure-encrypt "p" mml-secure-message-sign-pgpmime "o" mml-secure-message-sign-pgp "s" mml-secure-message-sign-smime mml-secure-sign-pgpmime mml-secure-sign-pgp mml-secure-sign-smime mml-secure-message-encrypt-pgpmime mml-secure-message-encrypt-pgp mml-secure-message-encrypt-smime mml-secure-encrypt-pgpmime mml-secure-encrypt-pgp mml-secure-encrypt-smime "" mml-unsecure-message "f" mml-attach-file "b" mml-attach-buffer "e" mml-attach-external "q" mml-quote-region "m" mml-insert-multipart mml-insert-part "v" mml-validate "P" mml-preview "S" "c" "C" "
" sign] 8)
#@2 
(defvar mml-menu nil (#$ . 26419))
(byte-code "\301\302\303\304\305\306\307\310\311BB\"\305\306\312\313\314BB\"\305\306\315\316\317BB\"\305\306\320\321\322\323\324\325#BB\"\326\327\305\306\330\331\322\332\333\"BB\"\305\306\334\335\322\336\337\"BB\"\305\306\340\341\322\342\343\"BB\"F\344\345\346\305\306\347\350\351BB\"\352\353\326\354\355\305\306\356\357\360\361\362BBBB\"\363\364\326\305\306\365\366\367BB\"\305\306\370\371\322\372\373\"BB\"\305\306\374\375\322\376\377\"BB\"\257$\207" [mml-mode-map easy-menu-do-define mml-menu "" "Attachments" apply vector "Attach File..." mml-attach-file (:help "Attach a file at point") "Attach Buffer..." mml-attach-buffer (:help "Attach a buffer to the outgoing message") "Attach External..." mml-attach-external (:help "Attach reference to an external file") "Externalize Attachments" (lambda nil (interactive) (if (not (and (boundp 'gnus-gcc-externalize-attachments) (memq gnus-gcc-externalize-attachments '(all t nil)))) (message "Can't handle this value of `gnus-gcc-externalize-attachments'") (setq gnus-gcc-externalize-attachments (not gnus-gcc-externalize-attachments)) (message "gnus-gcc-externalize-attachments is `%s'." gnus-gcc-externalize-attachments))) append (:visible (and (boundp 'gnus-gcc-externalize-attachments) (memq gnus-gcc-externalize-attachments '(all t nil)))) (:style toggle :selected gnus-gcc-externalize-attachments) (:help "Save attachments as external parts in Gcc copies") "----" "Change Security Method" "PGP/MIME" (lambda nil (interactive) (setq mml-secure-method "pgpmime")) (:help "Set Security Method to PGP/MIME") (:style radio :selected (equal mml-secure-method "pgpmime")) "S/MIME" (lambda nil (interactive) (setq mml-secure-method "smime")) (:help "Set Security Method to S/MIME") (:style radio :selected (equal mml-secure-method "smime")) "Inline PGP" (lambda nil (interactive) (setq mml-secure-method "pgp")) (:help "Set Security Method to inline PGP") (:style radio :selected (equal mml-secure-method "pgp")) ["Sign Message" mml-secure-message-sign t] ["Encrypt Message" mml-secure-message-encrypt t] ["Sign and Encrypt Message" mml-secure-message-sign-encrypt t] "Encrypt/Sign off" mml-unsecure-message (:help "Don't Encrypt/Sign Message") ["Sign Part" mml-secure-sign t] ["Encrypt Part" mml-secure-encrypt t] ["Insert Part..." mml-insert-part :active (message-in-body-p)] ["Insert Multipart..." mml-insert-multipart :active (message-in-body-p)] "Quote MML in region" mml-quote-region :active (message-mark-active-p) (:help "Quote MML tags in region") ["Validate MML" mml-validate t] ["Preview" mml-preview t] "Emacs MIME manual" (lambda nil (interactive) (message-info 4)) (:help "Display the Emacs MIME manual") "PGG manual" (lambda nil (interactive) (message-info mml2015-use)) (:visible (and (boundp 'mml2015-use) (equal mml2015-use 'pgg))) (:help "Display the PGG manual") "EasyPG manual" (lambda nil (interactive) (require 'mml2015) (message-info mml2015-use)) (:visible (and (boundp 'mml2015-use) (equal mml2015-use 'epg))) (:help "Display the EasyPG manual")] 33)
#@29 Minor mode for editing MML.
(defvar mml-mode nil (#$ . 29486))
#@158 Minor mode for editing MML.
MML is the MIME Meta Language, a minor mode for composing MIME articles.
See Info node `(emacs-mime)Composing'.

\{mml-mode-map}
(defalias 'mml-mode #[(&optional arg) "\306\301!\210\204
�	?\202�\307!\310V\211\2054�\311\301\312\n#\210\313\n\"\210\314\305!\2031�\306\305!\210\315\f
\"\316\317!\207" [arg mml-mode mml-mode-map mml-menu mml-dnd-protocol-alist dnd-protocol-alist make-local-variable prefix-numeric-value 0 add-minor-mode " MML" easy-menu-add boundp append run-hooks mml-mode-hook] 4 (#$ . 29556) "P"])
#@96 The default directory where mml will find files.
If not set, `default-directory' will be used.
(custom-declare-variable 'mml-default-directory 'mm-default-directory '(#$ . 30110) :type '(choice directory (const :tag "Default" nil)) :version "23.1" :group 'message)
(defalias 'mml-minibuffer-read-file #[(prompt) "\305\306	\n\206	�\305\307$\310\f!\203�\311\312\f\"\210\313\f!\204#�\311\314\f\"\210\315\f!\204.�\311\316\f\"\210\f*\207" [completion-ignored-extensions prompt mml-default-directory default-directory file nil read-file-name t file-directory-p error "%s is a directory, cannot attach" file-exists-p "No such file: %s" file-readable-p "Permission denied: %s"] 5])
(defalias 'mml-minibuffer-read-type #[(name &optional default) "\303 \210\206�\304	!\206�\305\306\307\310\"\311\312\313 \"\"\211\314\232\204%�\n\202&�*\207" [default name string mailcap-parse-mimetypes mm-default-file-encoding "application/octet-stream" completing-read format "Content type (default %s): " mapcar list mailcap-mime-types ""] 6])
(defalias 'mml-minibuffer-read-description #[nil "\301\302!\303\304\"\203
�\305)\207" [description read-string "One line description: " string-match "\\`[ 	]*\\'" nil] 3])
(defalias 'mml-minibuffer-read-disposition #[(type &optional default filename) "\204	�\304	\n\"\305\306\307\"\310\311\312\311\211&\211\313\232\204!�\202\"�)\207" [default type filename disposition mml-content-disposition completing-read format "Disposition (default %s): " (("attachment") ("inline") (#1="")) nil t #1#] 9])
#@35 Quote the MML tags in the region.
(defalias 'mml-quote-region #[(beg end) "\212\214	}\210eb\210\302\303\304\305#\205�\306\224\307\\b\210\310c\210\202	�*\207" [beg end re-search-forward "<#!*/?\$multipart\\|part\\|external\\|mml\$" nil t 0 2 "!"] 4 (#$ . 31655) "r"])
#@48 Insert an MML tag described by NAME and PLIST.
(defalias 'mml-insert-tag #[(name &rest plist) "9\203	�\306!\307\261\210	\203M�	\211A@	\211A@\n\203I�\310\311\n\"\203B�\312\313\314!!\315\216\f\316\317\n!\210*r\fq\210\320 +\321\322\n#c\210*\202�\323c\207" [name plist value key standard-output print-escape-nonascii symbol-name "<#" string-match "[\"'\\~/*;() 	\n]" get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) nil prin1 buffer-string format " %s=%s" ">\n"] 4 (#$ . 31932)])
#@54 Insert an empty MML tag described by NAME and PLIST.
(defalias 'mml-insert-empty-tag #[(name &rest plist) "9\203	�\302!\303\304	#\210\305\306\261\207" [name plist symbol-name apply mml-insert-tag "<#/" ">\n"] 4 (#$ . 32474)])
#@144 The functions to call when a drop in `mml-mode' is made.
See `dnd-protocol-alist' for more information.  When nil, behave
as in other buffers.
(custom-declare-variable 'mml-dnd-protocol-alist ''(("^file:///" . mml-dnd-attach-file) ("^file://" . dnd-open-file) ("^file:" . mml-dnd-attach-file)) '(#$ . 32713) :type '(choice (repeat (cons (regexp) (function))) (const :tag "Behave as in other buffers" nil)) :version "22.1" :group 'message)
#@281 Which options should be queried when attaching a file via drag and drop.

If it is a list, valid members are `type', `description' and
`disposition'.  `disposition' implies `type'.  If it is nil,
don't ask for options.  If it is t, ask the user whether or not
to specify options.
(custom-declare-variable 'mml-dnd-attach-options 'nil '(#$ . 33159) :type '(choice (const :tag "None" nil) (const :tag "Query" t) (list :value (type description disposition) (set :inline t (const type) (const description) (const disposition)))) :version "22.1" :group 'message)
#@519 Attach a file to the outgoing MIME message.
The file is not inserted or encoded until you send the message with
`\[message-send-and-exit]' or `\[message-send]'.

FILE is the name of the file to attach.  TYPE is its
content-type, a string of the form "type/subtype".  DESCRIPTION
is a one-line description of the attachment.  The DISPOSITION
specifies how the attachment is intended to be displayed.  It can
be either "inline" (displayed automatically within the message
body) or "attachment" (separate from the body).
(defalias 'mml-attach-file #[(file &optional type description disposition) "\212\304 \204	�db\210\305\306\300\307\310	!\302\n\206�\311\303&	)\207" [type file disposition description message-in-body-p mml-insert-empty-tag part filename mm-substring-no-properties "attachment"] 10 (#$ . 33724) (let* ((file (mml-minibuffer-read-file "Attach file: ")) (type (mml-minibuffer-read-type file)) (description (mml-minibuffer-read-description)) (disposition (mml-minibuffer-read-disposition type nil file))) (list file type description disposition))])
#@111 Attach a drag and drop file.

Ask for type, description or disposition according to
`mml-dnd-attach-options'.
(defalias 'mml-dnd-attach-file #[(uri action) "\306\307\"\211\205R�\310	!\205R�\n\311\211\211\211\307=\205%�\312\313!?\205%�\314\305\n>\2042�\303\n>\2036�\315	!\304\n>\203?�\316 \303\n>\203K�\317
\311	#\320	
\f$,)\207" [uri file mml-dnd-attach-options disposition description type dnd-get-local-file-name t file-regular-p nil y-or-n-p "Use default type, disposition and description? " (type description disposition) mml-minibuffer-read-type mml-minibuffer-read-description mml-minibuffer-read-disposition mml-attach-file] 6 (#$ . 34795)])
#@140 Attach a buffer to the outgoing MIME message.
BUFFER is the name of the buffer to attach.  See
`mml-attach-file' for details of operation.
(defalias 'mml-attach-buffer #[(buffer &optional type description disposition) "\212\304 \204	�db\210\305\306\300\301	\302\n\303&	)\207" [type buffer disposition description message-in-body-p mml-insert-empty-tag part] 10 (#$ . 35462) (let* ((buffer (read-buffer "Attach buffer: ")) (type (mml-minibuffer-read-type buffer "text/plain")) (description (mml-minibuffer-read-description)) (disposition (mml-minibuffer-read-disposition type nil))) (list buffer type description disposition))])
#@132 Attach an external file into the buffer.
FILE is an ange-ftp/efs specification of the part location.
TYPE is the MIME type to use.
(defalias 'mml-attach-external #[(file &optional type description) "\212\303 \204	�db\210\304\305\300\306	\307\310\302\n&	)\207" [type file description message-in-body-p mml-insert-empty-tag external name disposition "attachment"] 10 (#$ . 36099) (let* ((file (mml-minibuffer-read-file "Attach external file: ")) (type (mml-minibuffer-read-type file)) (description (mml-minibuffer-read-description))) (list file type description))])
(defalias 'mml-insert-multipart #[(&optional type) "\204�\301\302\303\300#\210\304y\207" [type "mixed" mml-insert-empty-tag "multipart" -1] 4 nil (list (completing-read "Multipart type (default mixed): " '(("mixed") ("alternative") ("digest") ("parallel") ("signed") ("encrypted")) nil nil "mixed"))])
(defalias 'mml-insert-part #[(&optional type) "\301\302\300\303\304%\210\305y\207" [type mml-insert-tag part disposition "inline" -1] 6 nil (list (mml-minibuffer-read-type ""))])
#@125 Insert a Mail-Followup-To header before previewing an article.
Should be adopted if code in `message-send-mail' is changed.
(defalias 'mml-preview-insert-mail-followup-to #[nil "\300 \205�\301 \205�\302\303!?\205�\304 \205�\305\306\307\"\210\304 c\207" [message-mail-p message-subscribed-p mail-fetch-field "mail-followup-to" message-make-mail-followup-to message-position-on-field "Mail-Followup-To" "X-Draft-From"] 3 (#$ . 37157)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\306\307\"\210\305\310\311\304\312$\207" [current-load-list mml-preview-buffer default-boundp set-default nil autoload gnus-make-hashtable "gnus-util" widget-button-press "wid-edit" t] 5)
#@328 Display current buffer with Gnus, in a new buffer.
If RAW, display a raw encoded MIME message.

The window layout for the preview buffer is controled by the variables
`special-display-buffer-names', `special-display-regexps', or
`gnus-buffer-configuration' (the first match made will be used),
or the `pop-to-buffer' function.
(defalias 'mml-preview #[(&optional raw) "\306\203	�\307\202\n�\310\311 P!\212p\312 \313 \314\214\315 \210\316\317!)!\206)�>>\320 \210\321\322!\203:�	B\214~\210	q\210\323 \210\324\n!\210)\325 \210\313 ?\205S�??\326\327\313 \203a�@\202c�A!!\210)\330\331\332B!\333Q\334\335#\203y�\336\333!\210\337B\340 \210\341 \210)\203\237�\342\343!\203\277�\344 C\323 \210\345 \210Cc\210)\202\277�>@\334\211DEF\346\347!\210\350G\206\267�\351\352!GH\353 \210-\354\334!\210\355\356!\210\357\356\360\334\335$\210\335I\361\362\363\"\210\361\364\365\"\210\361\366\367\"\210\361J\370\"\210eb\210.\371\311	!!\204\321\372!\203\373:\236\203pK\374\373!)\207\375	!\207" [raw mml-preview-buffer buf message-options message-this-is-mail message-this-is-news generate-new-buffer "*Raw MIME preview of " "*MIME preview of " buffer-name message-mail-p message-news-p gnus-setup-posting-charset message-narrow-to-headers-or-head message-fetch-field "Newsgroups" message-options-set-recipient boundp gnus-buffers erase-buffer insert-buffer-substring mml-preview-insert-mail-followup-to message-generate-headers copy-sequence re-search-forward "^" regexp-quote "\n" nil t replace-match "" message-sort-headers mml-to-mime fboundp set-buffer-multibyte buffer-string mm-disable-multibyte run-hooks gnus-article-decode-hook "dummy" gnus-make-hashtable 5 gnus-article-prepare-display use-local-map gnus-make-local-hook kill-buffer-hook add-hook #[nil "\301!\207" [gnus-article-mime-handles mm-destroy-parts] 2] local-set-key "q" #[nil "\300\301!\207" [kill-buffer nil] 2 nil nil] "=" #[nil "\300 \207" [delete-other-windows] 1 nil nil] "
" #[nil "\300`!\207" [widget-button-press] 2 nil nil] #[(event) "\301\302!\"\207" [event widget-button-press widget-event-point] 3 nil "@e"] mm-special-display-p gnus-buffer-configuration mml-preview gnus-configure-windows pop-to-buffer message-posting-charset message-deletable-headers message-required-news-headers message-required-mail-headers mail-header-separator s gnus-original-article-buffer gnus-article-prepare-hook gnus-newsgroup-charset gnus-newsrc-hashtb gnus-newsgroup-name buffer-read-only gnus-mouse-2 gnus-message-buffer] 5 (#$ . 37846) "P"])
#@36 Validate the current MML document.
(defalias 'mml-validate #[nil "\300 \207" [mml-parse] 1 (#$ . 40382) nil])
#@19 Tweak a MML part.
(defalias 'mml-tweak-part #[(cont) "\302\236A\306\211\203�\307\n\"A\206�\310\n!\202V�\f\203V�\f\305\236A\206'�\311\211\f\203U�\312\f\211
@@)
\"\203L�\f\211
@A)\306\211\f\202+�\fA\211\f\204.�*	\203a�	!\210\202c�\210\211\f\203\214�\313\f\211
@@)!\203\203�\f\211
@A)!\210\fA\211\f\204k�+\207" [cont func tweak mml-tweak-function-alist mml-tweak-type-alist type nil assoc intern "text/plain" string-match eval alist x mml-tweak-sexp-alist] 4 (#$ . 40498)])
#@41 Tweak attached files as external parts.
(defalias 'mml-tweak-externalize-attachments #[(cont) "\302	@\303=\205*�\304	\236A?\205*�\305	\236\211\205*�\306	\236A\307\232?\205*�	\310\240\210\311\240)\207" [filename-cons cont nil part buffer filename nofile "yes" external name] 2 (#$ . 41006)])
(provide 'mml)

${this.title}

Code Editor : mml.elc