;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\"\210\306\311\312\"\210\306\313\310\"\210\306\314\310\"\210\306\315\316\"\210\306\317\310\"\210\306\320\321\"\210\306\322\310\"\210\306\323\310\"\210\306\324\310\"\210\306\325\310\"\210\326\327\330\331\332DD\333\334\335\336\337\340\341& \210\326\342\330\331\343DD\344\334\335\336\345\340\341& \210\326\346\330\331\347DD\350\334\351\336\352\353\354\355\356\357\360\361\362\363\364\365\366\f\257\361\362\367\370\355\371\353\357\372\354\355\364\365\361\357\373\364\374\375\257\257\257\361\362\376\364\365\377\257\257F\262\340\341& \210\326\201@\330\331\201ADD\201B\334\201C\336\201D\340\341& \210\326\201E\330\331\201FDD\201G\334\201C\336\201D\340\341& \207" [require mm-util mm-bodies mm-encode mm-decode mml-sec autoload message-make-message-id "message" gnus-completing-read "gnus-util" message-fetch-field 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 custom-declare-variable mml-content-type-parameters funcall function #[0 "\300\207" [(name access-type expiration size permission format)] 1 #1=""] "A list of acceptable parameters in MML tag.\nThese parameters are generated in Content-Type header if exists." :version "22.1" :type (repeat (symbol :tag "Parameter")) :group message mml-content-disposition-parameters #[0 "\300\207" [(filename creation-date modification-date read-date)] 1 #1#] "A list of acceptable parameters in MML tag.\nThese parameters are generated in Content-Disposition header if exists." (repeat (symbol :tag "Parameter")) mml-content-disposition-alist #[0 "\300\207" [((text (rtf . "attachment") (t . "inline")) (t . "attachment"))] 1 #1#] "Alist of MIME types or regexps matching file names and default dispositions.\nEach element should be one of the following three forms:\n\n (REGEXP . DISPOSITION)\n (SUPERTYPE (SUBTYPE . DISPOSITION) (SUBTYPE . DISPOSITION)...)\n (TYPE . DISPOSITION)\n\nWhere REGEXP is a string which matches the file name (if any) of an\nattachment, SUPERTYPE, SUBTYPE and TYPE should be symbols which are a\nMIME supertype (e.g., text), a MIME subtype (e.g., plain) and a MIME\ntype (e.g., text/plain) respectively, and DISPOSITION should be either\nthe string \"attachment\" or the string \"inline\". The value t for\nSUPERTYPE, SUBTYPE or TYPE matches any of those types. The first\nmatch found will be used." "23.1" (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) mml-insert-mime-headers-always #[0 "\300\207" [t] 1 #1#] "If non-nil, always put Content-Type: text/plain at top of empty parts.\nIt is necessary to work against a bug in certain clients." "24.1" boolean mml-enable-flowed #[0 "\300\207" [t] 1 #1#] "If non-nil, enable format=flowed usage when encoding a message.\nThis is only performed when filling on text/plain with hard\nnewlines in the text."] 35)#@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 (#$ . 3457))#@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 (#$ . 3784))#@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)) (#$ . 4055))#@69 If non-nil, local-file attachments are generated as external parts. (defvar mml-externalize-attachments nil (#$ . 4391)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mml-generate-multipart-alist funcall function #[0 "\300\207" [nil] 1 ""] "Alist of multipart generation functions.\nEach entry has the form (NAME . FUNCTION), where\nNAME is a string containing the name of the part (without the\nleading \"/multipart/\"),\nFUNCTION is a Lisp function which is called to generate the part.\n\nThe Lisp function has to supply the appropriate MIME headers and the\ncontents of this part." :group message :type (alist :key-type string :value-type function)] 8) (defvar mml-syntax-table (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210\302\316\315#\210\302\317\315#\210\302\320\315#\210\207" [emacs-lisp-mode-syntax-table copy-syntax-table modify-syntax-entry 92 "/" 60 "(" 62 ")" 64 "w" 47 61 " " 42 59 39] 5))#@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 (#$ . 5426))#@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 (#$ . 5762))#@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" (#$ . 6090)) (defvar mml-buffer-list nil)#@13 (fn NAME) (defalias 'mml-generate-new-buffer #[257 "\301!\211B\207" [mml-buffer-list generate-new-buffer] 4 (#$ . 6599)]) (defalias 'mml-destroy-buffers #[0 "\302\303\304 \302\")\207" [kill-buffer-hook mml-buffer-list nil mapc kill-buffer] 4])#@46 Parse the current buffer as an MML document. (defalias 'mml-parse #[0 "\212eb\210\301 p\302\303#\216\304!\210\305 )\266\202)\207" [mml-syntax-table syntax-table make-closure #[0 "r\300q\210\302\301!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table mml-parse-1] 6 (#$ . 6855)])#@46 Parse the current buffer as an MML document. (defalias 'mml-parse-1 #[0 "\302\211\211\211\211\211\211\211\211m\204I\303\304!\204I\303\305!\203\274\302\306 \307\236A\310\302\311\312\"\"\313\236A\314\236A\315\236A\316\236A\317\236A\302\212\320\321\302\322#\203K\323\202L\324)\262\n\212b\210\320\325!)\210\326\224\326\225|\210\327\230\203j\327D\202\210\330\230\203v\330D\202\210\331\230\203\204\327\330F\202\210\332\333\"\262\334\335 \336\f\205\226\337 D\334\336\311\340\"\"\f\205\247\341  \205\257\342F$#\210b\266 \202 \303\343!\203\317\306 \344 \244 B\262 \202 \303\345!\203\345\306 \346\347 BC\244 B\262 \202 \303\350!\204\361\303\351!\203\376\306 \262\302\262\302\262\202 \352\353\354BD\262\322\262\322\262\355\236A\262`\262\347@\356=!\262\211\203&\302\202?\357\236\2039\360\357 \236A\227!C\202?\361`#\262\211\203w\362\236A\203w\363\364\322\"r\211q\210\365\366\"\216\367\302!\210c\210\370\360\362 \236A!\353 \236A\"\210\371 *\262\210\211\204\316\302>\203\316\372 >\204\232\373\372!\204\232\374\375!\203\310\376\372\322\"\203\310\377 >\206\262\373\377!\206\262\374\201@!\205\262\376\377\322\"\211\262\203\302\310\302\"\262\202\316\302\262\202\316\332\201A!\210\211\204\343@\356=\204\343G\201BW\203\203\363\201C\201D\"\203 \346BC\244 B\262 \202 \201E`$\203?\201F >\204?\373\201F!\204?\374\201G\201HG\"!\2039\376\201F\322\"\204?\332\201I!\210\211\n\244\262\n\210\202 m\204R\201Jy\210\237\207" [mm-hack-charsets mml-confirmation-set nil looking-at "<#/multipart" "<#secure" mml-read-tag keyfile delq mapcar #[257 "\211\242\300=\205 \211A\207" [certfile] 3 "\n\n(fn TAG)"] recipients sender tag-location mode method re-search-forward "<#/?\\(multipart\\|part\\|external\\|mml\\)." t "multipart" "part" "<#secure[^\n]*>\n" 0 "sign" "encrypt" "signencrypt" error "Unknown secure mode %s" apply mml-insert-tag append "keyfile" #[257 "\300D\207" ["certfile"] 3 "\n\n(fn CERTFILE)"] "recipients" "sender" "<#multipart" mml-parse-1 "<#external" contents mml-read-part "<#part" "<#mml" part type "text/plain" raw mml charset intern mm-find-mime-charset-region data-encoding generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte mm-decode-content-transfer-encoding buffer-string unknown-encoding message-options-get y-or-n-p "Message contains characters with unknown encoding. Really send? " message-options-set use-ascii "Use ASCII as charset? " "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" 1] 30 (#$ . 7142)])#@45 (fn ORIG-TAG BEG END &optional USE-ASCII) (defalias 'mml-parse-singlepart-with-multiple-charsets #[1027 "\212\214}\210eb\210\300\301 !\206\211\205\302\303\211\211\211\211m\204\311\300\301 !\262\302=\204\224\2033\203:=\203F\303\262\303\262\303\262\202\224\302=\203[\262\303\262\303\262\303\262\202\224\304\n\305\306\f\206q\206q\206q`\"BC\"B\262\211\206\206\206\206\206\206`\262 \262\303\262\303\262\303\262g\307>\203\241`T\262\202\303g\310=\203\271o\204\271`Sf\310=\203\271`\262\202\303g\310=\203\303`T\262\311u\210\202`U\204\340\304\n\305\306\f`\"BC\"B\262\266\206*\207" [mm-mime-charset mm-charset-after us-ascii nil append contents buffer-substring-no-properties (32 9) 10 1] 16 (#$ . 9989)])#@37 Read a tag and return the contents. (defalias 'mml-read-tag #[0 "`\300\211\211\211\301u\210\302`\303\304!\210`\"\262\305\300w\210\306\307!\204P\302`\303\304!\210`\"\262\310\300w\210\302`\303\304!\210`\"\262\311\312\"\203@\313!\262\314!BB\262\305\300w\210\202\315\225b\210\316BB\262\314!\237B\207" [nil 2 buffer-substring-no-properties forward-sexp 1 " \n" looking-at ">[ ]*\n?" "= \n" string-match "\\`\"" read intern 0 tag-location] 9 (#$ . 10764)])#@18 (fn START END) (defalias 'mml-buffer-substring-no-properties-except-some #[514 "\300\"\301\302\303\304$\211\262\203'\305ZZT\303\304%\210\211T\262\202\262\306\307\301$\211\262\203N\305ZZT\307\310\307\"%\210\211T\262\202*\207" [buffer-substring-no-properties nil text-property-any hard t put-text-property text-property-not-all display get-text-property] 12 (#$ . 11242)])#@174 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. (fn &optional MML) (defalias 'mml-read-part #[256 "`\300\301\302!\203 \300y\210\203H\211\303V\2038m\2048\304\305\306\307#\2032\211\300\224\203+\310\202,\300\\\262\202db\210\202\311\303V\203D`\202F\303\224\"\207\304\312\306\307#\203q\311\303\224\"\300\224\203b\313\314!\315\232\203g\303\224b\210\207\301\302!\203v\300y\210\207\311db\"\207" [1 looking-at "[ ]*\n" 0 re-search-forward "<#\\(/\\)?mml." nil t -1 mml-buffer-substring-no-properties-except-some "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)." match-string 2 "multipart"] 7 (#$ . 11653)]) (defvar mml-boundary nil) (defvar mml-base-boundary "-=-=") (defvar mml-multipart-number 0) (defvar mml-inhibit-compute-boundary nil)#@264 Generate a MIME message based on the current MML document. MULTIPART-TYPE defaults to "mixed", but can also be "related" or "alternate". If CONTENT-TYPE (and there's only one part), override the content type detected. (fn &optional MULTIPART-TYPE CONTENT-TYPE) (defalias 'mml-generate-mime #[512 "\302  \205\204@:\203)G\303U\203)\203)\304@A\236\211\203(\211\241\210\210\305\306!\2035\307\310\"\262\311\312\313\"r\211q\210\314\315\"\216\316\317!\210@:\203]G\303U\203]\320@!\210\202z@\321=\203k\320!\210\202z\320\321\304\206t\322BD\244!\210 \262\323 *\262)\207" [mml-multipart-number message-options mml-parse 1 type fboundp libxml-parse-html-region mapcar mml-expand-all-html-into-multipart-related generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil mml-generate-mime-1 multipart "mixed" buffer-string] 10 (#$ . 12524)])#@13 (fn CONT) (defalias 'mml-expand-all-html-into-multipart-related #[257 "\211@\300=\203\301\236A\302\232\203\303!\207\211@\304=\2032\211A\211:\2030\211\305@!\240\210\211A\262\202\210\207\207" [part type "text/html" mml-expand-html-into-multipart-related multipart mml-expand-all-html-into-multipart-related] 5 (#$ . 13475)])#@13 (fn CONT) (defalias 'mml-expand-html-into-multipart-related #[257 "\302\303\304\305\306\"r\211q\210\307\310\"\216\311 \210\312\236Ac\210eb\210\313 p\307\314#\216\315!\210\316\317\302\306#\203\337\320\224b\210`\321\211\322`\323 \210`\"88`\324\325A@\236A!\326! >\204X\327\330\331D\"\210\211\303H\204\332\326! >\204m\327\330\331D\"\210\211\332HG\320U\204\332\333\326! >\204\206\327\330\331D\"\210\332H!\203\332b\210\334\326! >\204\240\327\330\331D\"\210\332H\306#\203\332\335\336 \"\337\340P\306\211#\210\211\326! >\204\306\327\330\331D\"\210\332H\341\342\"E\nB\262\n\210T\262\266\202()\266\203$\312\236\343 \241\210\344\345\346BDC\244\262\237\211\203#\211@\347\350\351\352A@\3218\"\353\354@\355QBC\"BBC\244\262A\266\202\202\371\210*\207" [mml-syntax-table cl-struct-url-tags nil 1 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-enable-multibyte contents syntax-table #[0 "r\300q\210\302\301!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table re-search-forward ""] 16 (#$ . 13817)]) (autoload 'image-property "image")#@24 (fn FILE-NAME IMAGE) (defalias 'mml--possibly-alter-image #[514 "\211\203\211:\203\211@\300=\203\301\302\"\203\303\304!\204\"\305BC\207\305B\306r\307\310!q\210\311\312!\210\313\304p\312D\312\314\315\316\301 \302\"!\211\317\267\202V\320\202W\321\202W\322\202W\323\202W\320\262\"\324\325\211&\210p)BD\207" [image image-property :rotation executable-find "exiftool" filename buffer mml-generate-new-buffer " *mml rotation*" set-buffer-multibyte nil call-process format "-Orientation#=%d" truncate #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 70 90 74 180 78 270 82)) 0 6 3 8 "-o" "-"] 15 (#$ . 15284)])#@13 (fn CONT) (defalias 'mml-generate-mime-1 #[257 "\206\306\236\214``}\210\307!\210\211@\310=\204\211@\311=\203f\312\236A\313\236A\314\236A\206=\211\203<\315!\206=\316\202=\317\320\236A\321!\322\211\211\323=\203V\322\262\322\262\202f\203f\324!\206d\325\227!\262\204\260\326\327\"@\330\235\203\260\331\332\333\"r\211q\210\334\335\"\216\336\n\236A\203\226\337\336 \236A!\210\202\347\203\260\340\n\236A\341\232\204\260\342!)\210\202\347 @\311=\203\302\343\n\236Ac\210\202\347\214``}\210\343\n\236Ac\210eb\210\344\345\322\333#\203\346\346\224\347\\\346\224\350\\|\210\202\321) @\311=\203\351\n!\317\352 \210\f\204\343\n\236\353 \241\210* \354P\355 )\262\202\224\326\327\"@\356\230\203) \354P\355 )\262\202\224\322@A\203i\317\230\203i\306\n\236A\357\230\204i\360\n\236\203S\360\n\236A\361\230\203i\362ed\363\333$\211@\203i\364 \210\360\n\236?\262)\204u\365\230\204~\366!\262\202\211\367BBB\366 )\262\370\371\f\236A\"\262\353 *\266\202\372 %\210\373c\210\211c\266 \202 \331\332\333\"r\211q\210\334\374\"\216\375\322!\210\336\n\236A\203\331r\336\n\236Aq\210\353 )c\210\202+\203\340\n\236A\341\232\204C\342\322\211\211\211\333&)\210\204+\324\376 !!\262\202+\343\n\236A\377!\203'\375\333!\210\211c\210 \204*\366!\262\210\202+\211c\210\210\371\n\236A\211\262\203<\325\227!\262\201G\"\262\201H\353 \201I\"*\266\202\372 \322%\210\373\261\266 \202 \211@\201J=\203c\201Kc\210\201L\201M\"\201N\236A\201O\236A\203\363\201P!\262;\203\253\201Q\201R\201S\"\201T\"\210\202\363\201Q\201R\201S\201U\3478!\"\201R\201VA@\"\201R\201W\201X\3478!\"#\210\201Q\201Y@\201Z\235\203\355\201[\202\360\201\\P!\210\211\203\201Q\201R\201]\"\201^\"\210\203\201_\201`\"\210\201ac\210\201b\314\236A\2062\2031\315!\2062\316\2022\317\373\261\210\201c\201d \373\261\210\201e\371\236A\206N\201f\261\210\201ac\210\343\236Ac\210\373c\266\202 \211@\201g=\203\314\236A\206v\201h\211\201i\232\203\204\201j\202\205\317\201kD\"\211\203\231\211A!\210\202\372\351!\360\201l #\201m\236A\203\274\360\201n\201m\236A\"\202\275\373\261\210\322\211A\262\242\211\262\203\355\211:\203\302\211A:\203\302\201o \373\261\210\201p!\210db\210\202\302\266\201o \201q\261)\210)\266\202 \201r\201s\"\210\201k\306\236AE\"\201k\201t\236AF\"\322\211\204)\205\237\201u\236A\211\262\203G\201v\201w\"\210\201v\201x\"\210\201y\236A\211\262\203\\\201v\201z\"\210\201{\206d@!\203\210\203\210@@\232\203\210\211\201|=\203\210A@\333\"\202\235\203\223A@!\210\205\235A@!\262\266\204*\207" [mm-use-ultra-safe-encoding coding-system-for-read mml-generate-default-type mml-boundary mml-inhibit-compute-boundary mm-7bit-chars sign mml-tweak-part part mml raw filename type mm-default-file-type "application/octet-stream" "text/plain" charset mm-charset-to-coding-system nil ascii mm-coding-system-to-mime-charset intern split-string "/" ("text" "message") generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] buffer insert-buffer-substring nofile "yes" mm-insert-file-contents contents re-search-forward "<#!+/?\\(part\\|multipart\\|external\\|mml\\|secure\\)" 0 2 3 mml-compute-boundary mml-to-mime buffer-string "" 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 mml-insert-mime-headers "\n" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte mm-find-buffer-file-coding-system multibyte-string-p use-hard-newlines mml-enable-flowed mm-coding-system-priorities mm-binary-coding-system mml-generate-multipart-alist mml-sign-alist mml-encrypt-alist mm-encode-buffer decode-coding-string us-ascii external "Content-Type: message/external-body" mml-parameter-string (expiration size permission) name url 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 sender message-options-set mml-sender message-sender recipients message-recipients mml-signencrypt-style combined] 17 (#$ . 15955)])#@66 Return a unique boundary that does not exist in CONT. (fn CONT) (defalias 'mml-compute-boundary #[257 " T\211! \204\3042\305!0\203 \n)\207" [mml-boundary-function mml-multipart-number mml-boundary mml-inhibit-compute-boundary not-unique mml-compute-boundary-1] 4 (#$ . 20757)])#@13 (fn CONT) (defalias 'mml-compute-boundary-1 #[257 "\211@\306>\203D\307\310\311\"r\211q\210\312\313\"\216\314 \210\311\315\316\211\317!,\210eb\210\320\321\322\f!P\316\311#\203? \nT\211!\323\324\316\"\210*\210\202R\211@\325=\203R\326\327AA\"\210\311\207" [mml-encrypt-alist mml-sign-alist mml-multipart-number mml-inhibit-compute-boundary mml-boundary mml-boundary-function (part mml) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-enable-multibyte 0 nil mml-generate-mime-1 re-search-forward "^--" regexp-quote throw not-unique multipart mapc mml-compute-boundary-1] 6 (#$ . 21050)])#@15 (fn NUMBER) (defalias 'mml-make-boundary #[257 "\301\302\246\303\"\304V\203\305\306\"\202\307Q\207" [mml-base-boundary make-string 60 61 17 format "%x" ""] 5 (#$ . 21721)])#@95 Return a default disposition name suitable to TYPE or FILENAME. (fn TYPE &optional FILENAME) (defalias 'mml-content-disposition #[513 "\301\211\211\204\206\203\206\211A\262\242\262@;\203.\203\302@\"\203A\262\202A:\203q\303\304\"\211\262@@\230\203\211A@\262A\262\204\211\203\211A\262\242\262@\305=\204j@\230\203LA\262\202L@\305=\204@\230\203A\262\202\206\213\306\207" [mml-content-disposition-alist nil string-match split-string "/" t "attachment"] 9 (#$ . 21909)])#@42 (fn CONT TYPE CHARSET ENCODING FLOWED) (defalias 'mml-insert-mime-headers #[1285 "\304\211\211\211\305 \"\262\204#\204#\204# \232\203#\n\203W:\203-\306\307!\210\310\261\210\203B\311\312\313\314\n!\"!\210\203J\311\315!\210\203T\316 \"\210\317c\210\320 \236A\211\262\203h\321\317\261\210\305 \"\262\322 \236A\211\262\204~\203\262\323\206\214\324 \325\f\236A\"\261\210\203\257\326 !\327\236A\211\203\250\325BAB\241\210\210\316 \"\266\317c\210\330=\204\277\331\332\"c\210\333 \236A\211\262\205\351\334\335\336\337\"r\211q\210\340\341\"\216\317\261\210\342ed\"\210\343 *\262\261\207" [mml-content-type-parameters mml-generate-default-type mml-insert-mime-headers-always mml-content-disposition-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" id "Content-ID: " disposition "Content-Disposition: " mml-content-disposition filename copy-sequence recipient-filename 7bit format "Content-Transfer-Encoding: %s\n" description "Content-Description: " generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mail-encode-encoded-word-region buffer-string] 14 (#$ . 22442)])#@19 (fn CONT TYPES) (defalias 'mml-parameter-string #[514 "\300\301\211\211A\262\242\211\262\2032\211\236A\211\262\203\211\302=\203$\303!\262\304\305\306!\"Q\262\202G\307U?\205;\207" ["" nil filename file-name-nondirectory "; " mail-header-encode-parameter symbol-name 0] 10 (#$ . 23811)])#@19 (fn CONT TYPES) (defalias 'mml-insert-parameter-string #[514 "\300\211\211A\262\242\211\262\205/\211\236A\211\262\203\211\301=\203#\302!\262\303\304\305!\"!\210\202\207" [nil filename file-name-nondirectory mml-insert-parameter mail-header-encode-parameter symbol-name] 8 (#$ . 24124)])#@13 (fn PATH) (defalias 'mml-parse-file-name #[257 "\301\300!\203\302@\"\203\303\304\"\303\305\"\305\225T\306OE\207\207" [ange-ftp-name-format boundp string-match match-string 1 2 nil] 6 (#$ . 24433)])#@63 Insert BUFFER at point and quote any MML markup. (fn BUFFER) (defalias 'mml-insert-buffer #[257 "\214``}\210\300!\210\301ed\"\210db)\207" [insert-buffer-substring mml-quote-region] 4 (#$ . 24647)])#@152 Translate the current buffer (which should be a message) into MML. If HANDLES is non-nil, use it instead reparsing the buffer. (fn &optional HANDLES) (defalias 'mime-to-mml #[256 "\214\301 \210\302\303ed\"*\210\211\204\304\302!\262eb\210\305\306\307\310#\203'`d|\210\2022n\203/\311\2020\306c\210\211@;\203?\312!\210\202D\312\302\"\210\313!\210\214\301 \210\314\315!\210\314\316!\210\314\317!\210\314\320!)\207" [rfc2047-quote-decoded-words-containing-tspecials message-narrow-to-head t mail-decode-encoded-word-region mm-dissect-buffer search-forward "\n\n" nil move "\n" mml-insert-mime mm-destroy-parts message-remove-header "Content-Type" "MIME-Version" "Content-Disposition" "Content-Transfer-Encoding"] 5 (#$ . 24853)]) (autoload 'message-encode-message-body "message")#@48 Translate the current buffer from MML to MIME. (defalias 'mml-to-mime #[0 "\214\300 \210\301\302!\203\303y\210\202\304 )\210\305 \207" [message-narrow-to-headers-or-head looking-at "From " 1 mail-encode-encoded-word-buffer message-encode-message-body] 2 (#$ . 25647)])#@35 (fn HANDLE &optional NO-MARKUP) (defalias 'mml-insert-mime #[513 "\300\211\211@;\204p\301\211@;\203\211@\262\202\211A@@\262\302\"@\262\303\232\211\262\204pr\304\305!\211\262q\210\306A@\307\"\310=\203K\311 \210\312@!\210\202o\313\314\"\210\211@;\203^\211@\262\202d\211A@@\262\315\232\211\262\203o\316 \210)\211\203~\317\300\320\211$\210\202\241\203\233\211@;\203\220\211@\262\202\226\211A@@\262\321\232\204\241\317#\210\211\203\257\312!\210db\210\322c\207@;\203\277\323\324A\"\210\325c\207\203\352\306A@\307\"`\310=\203\330\313!\210\202\341\326\327!\"c\210\330`\"\266db\207\331c\207" [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"] 10 (#$ . 25925)])#@85 Take a MIME handle and insert an MML tag. (fn HANDLE &optional BUFFER NOFILE MMLP) (defalias 'mml-insert-mml-markup #[1025 "@;\203;\300\301\211@;\203\211@\262\202\211A@@\262\302\"A@\262\261\210\303\304\305@#\211\2037\306\307\261\210\210\310c\207\211\203Z\311\211@;\203N\211@\262\202T\211A@@\262\261\210\202r\312\211@;\203i\211@\262\202o\211A@@\262\261\210\313A@A\3148A\"\211\203\234\211@\211A9\204\225\315\316@!\317A\307\261\210A\266\202\202}\210\3208\203\253\321\3208\307\261\210\3148\203\271\322\3148@\261\210\203\305\323\324!\307\261\210\203\314\325c\210\3268\203\332\327\3268\307\261\210\310c\207" ["<#multipart type=" split-string "/" get-text-property 0 start " start=\"" "\"" ">\n" "<#mml type=" "<#part type=" append 4 " " symbol-name "=\"" 7 " id=\"" " disposition=" " buffer=\"" buffer-name " nofile=yes" 5 " description=\""] 11 (#$ . 26942)])#@57 Insert PARAMETERS in a nice way. (fn &rest PARAMETERS) (defalias 'mml-insert-parameter #[128 "\300\211\211\205:\211@\301c\210`\262\302\261\210`\262b\210\300\210i\303V\2030b\210\304c\210Tb\210\2023b\210A\266\202\202\207" [nil ";" " " 76 "\n"] 7 (#$ . 27861)]) (defvar mml-mode-map (byte-code "\300\301\300\302\303\304\305\306\307\310\311\312\313\314\300\315\316\317\320\314\321&\322\300\315\323\317\324\314\325&\326\300\315\327\317\330\314\331&\332\300\315\333\317\334\314\335&\336\337\340\341\342\343\344\345\346\347\350\351\315\352\353\354\355\356&$\"\207" [define-keymap "C-c C-m" "C-s" mml-secure-message-sign "C-c" mml-secure-message-encrypt "C-e" mml-secure-message-sign-encrypt "C-p C-s" mml-secure-sign "C-p C-c" mml-secure-encrypt "s" "p" mml-secure-message-sign-pgpmime "o" mml-secure-message-sign-pgp mml-secure-message-sign-smime "S" mml-secure-sign-pgpmime mml-secure-sign-pgp mml-secure-sign-smime "c" mml-secure-message-encrypt-pgpmime mml-secure-message-encrypt-pgp mml-secure-message-encrypt-smime "C" mml-secure-encrypt-pgpmime mml-secure-encrypt-pgp mml-secure-encrypt-smime "C-n" 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] 39))#@2  (defvar mml-menu nil (#$ . 29173)) (easy-menu-do-define 'mml-menu mml-mode-map "" '("Attachments" ["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) (setq gnus-gcc-externalize-attachments (not gnus-gcc-externalize-attachments)) (message "gnus-gcc-externalize-attachments is `%s'." gnus-gcc-externalize-attachments)) :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 mark-active :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"]))#@85 Non-nil if MML mode is enabled. Use the command `mml-mode' to change this variable. (defvar mml-mode nil (#$ . 31567)) (make-variable-buffer-local 'mml-mode)#@699 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} This is a minor mode. If called interactively, toggle the `MML mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `mml-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'mml-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\203D\311\303!\203D\313\303!\210\314\n \"\315\316\203N\317\202O\320\"\210\321\322!\203r\304 \203c\211\304 \232\203r\323\324\325\203n\326\202o\327\330$\210\210\331 \210\207" [mml-mode local-minor-modes mml-dnd-protocol-alist dnd-protocol-alist current-message toggle 1 nil t boundp delq make-local-variable append run-hooks mml-mode-hook mml-mode-on-hook mml-mode-off-hook called-interactively-p any message "%s %sabled%s" "MML mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 31731) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar mml-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\314\315\316\317\320DD\321\322\323\324\325\326\327& \207" [mml-mode-map mml-mode-hook variable-documentation put "Hook run after entering or leaving `mml-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode mml-mode " MML" custom-declare-variable mml-default-directory funcall function #[0 "\207" [mm-default-directory] 1 ""] "The default directory where mml will find files.\nIf not set, `default-directory' will be used." :type (choice directory (const :tag "Default" nil)) :version "23.1" :group message] 10)#@15 (fn PROMPT) (defalias 'mml-minibuffer-read-file #[257 "\304\211\305\n\206 \304\306$\307!\203\310\311\"\210\312!\204$\310\313\"\210\314!\204/\310\315\"\210*\207" [completion-ignored-extensions buffer-file-name mml-default-directory default-directory 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"] 7 (#$ . 33971)])#@31 (fn NAME &optional DEFAULT) (defalias 'mml-minibuffer-read-type #[513 "\300\301!\210\302 \210\211\206\303!\206\304\305\306\307 \310\211\211&\211\311\232\204$\207\207" [require mailcap mailcap-parse-mimetypes mm-default-file-type "application/octet-stream" gnus-completing-read "Content type" mailcap-mime-types nil ""] 10 (#$ . 34412)])#@26 (fn &optional DEFAULT) (defalias 'mml-minibuffer-read-description #[256 "\300\301\"\302\303\"\203\304\262\207" [read-string "One line description: " string-match "\\`[ ]*\\'" nil] 5 (#$ . 34766)])#@40 (fn TYPE &optional DEFAULT FILENAME) (defalias 'mml-minibuffer-read-disposition #[769 "\204\n\300\"\262\301\302\303\304\305\211&\211\306\232\204\207\207" [mml-content-disposition gnus-completing-read "Disposition" ("attachment" "inline") t nil ""] 10 (#$ . 34976)])#@49 Quote the MML tags in the region. (fn BEG END) (defalias 'mml-quote-region #[514 "\212\214}\210eb\210\300\301\302\303#\205\304\224\305\\b\210\306c\210\202 *\207" [re-search-forward "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)" nil t 0 2 "!"] 6 (#$ . 35260) ["r" (mml-mode)]])#@71 Insert an MML tag described by NAME and PLIST. (fn NAME &rest PLIST) (defalias 'mml-insert-tag #[385 "9\203\n\302!\262\303\261\210\211\203O\211A\262\242\211A\262\242\211\203J\304\305\"\203C\306\307\310\"\311\216\312\313!*\210rq\210\314 +\262\315\316#c\210\266\202\317c\207" [standard-output print-escape-nonascii symbol-name "<#" string-match "[][\"'\\~/*;()<>= \n[:multibyte:]]" generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] nil prin1 buffer-string format " %s=%s" ">\n"] 8 (#$ . 35558)])#@77 Insert an empty MML tag described by NAME and PLIST. (fn NAME &rest PLIST) (defalias 'mml-insert-empty-tag #[385 "9\203\n\300!\262\301\302#\210\303\304\261\207" [symbol-name apply mml-insert-tag "<#/" ">\n"] 6 (#$ . 36126)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\313& \210\300\320\302\303\321DD\322\306\323\310\324\312\313& \207" [custom-declare-variable mml-dnd-protocol-alist funcall function #[0 "\300\207" [(("^file:///" . mml-dnd-attach-file) ("^file://" . dnd-open-file) ("^file:" . mml-dnd-attach-file))] 1 #1=""] "The functions to call when a drop in `mml-mode' is made.\nSee `dnd-protocol-alist' for more information. When nil, behave\nas in other buffers." :type (choice (repeat (cons (regexp) (function))) (const :tag "Behave as in other buffers" nil)) :version "22.1" :group message mml-dnd-attach-options #[0 "\300\207" [nil] 1 #1#] "Which options should be queried when attaching a file via drag and drop.\n\nIf it is a list, valid members are `type', `description' and\n`disposition'. `disposition' implies `type'. If it is nil,\ndon't ask for options. If it is t, ask the user whether or not\nto specify options." (choice (const :tag "None" nil) (const :tag "Query" t) (list :value (type description disposition) (set :inline t (const type) (const description) (const disposition)))) mml-attach-file-at-the-end #[0 "\300\207" [nil] 1 #1#] "If non-nil, \\[mml-attach-file] attaches files at the end of the message.\nIf nil, files are attached at point." boolean "29.1"] 10)#@851 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]' in Message mode, or `\[mail-send-and-exit]' or `\[mail-send]' in Mail mode. 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). Also see the `mml-attach-file-at-the-end' variable. If given a prefix interactively, no prompting will be done for the TYPE, DESCRIPTION or DISPOSITION values. Instead defaults will be computed and used. (fn FILE &optional TYPE DESCRIPTION DISPOSITION) (defalias 'mml-attach-file #[1025 "\303 \203 \205\n`\211\203db\210\304\305\306\307\310\n!\311\206\"\312\313 & \210 \314=\2040\315\211\205C\316 \204A\317\320\321!\"\210\211b\207" [mml-attach-file-at-the-end mail-user-agent mail-encode-mml message-in-body-p mml-insert-empty-tag part type filename substring-no-properties disposition "attachment" description message-user-agent t pos-visible-in-window-p message "The file \"%s\" has been attached at the end of the message" file-name-nondirectory] 15 (#$ . 37711) (byte-code "\301\302!\203\303!\206\304\202\305!?\205\306 \203&\307\"\202+\310\311#F\207" [current-prefix-arg mml-minibuffer-read-file "Attach file: " mm-default-file-type "application/octet-stream" mml-minibuffer-read-type mml-minibuffer-read-description mml-content-disposition mml-minibuffer-read-disposition nil] 8)])#@128 Attach a drag and drop file. Ask for type, description or disposition according to `mml-dnd-attach-options'. (fn URI ACTION) (defalias 'mml-dnd-attach-file #[514 "\301\302\"\211\205U\303!\205U\304\211\211\211\302=\205\"\305\306!?\205\"\307\310>\204/\311>\2034\312!\262\313>\203>\314 \262\311>\203L\315\304#\262\316$)\266\204\207" [mml-dnd-attach-options dnd-get-local-file-name t file-regular-p nil y-or-n-p "Use default type, disposition and description? " (type description disposition) type disposition mml-minibuffer-read-type description mml-minibuffer-read-description mml-minibuffer-read-disposition mml-attach-file] 13 (#$ . 39441)])#@192 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. (fn BUFFER &optional TYPE DESCRIPTION DISPOSITION) (defalias 'mml-attach-buffer #[1025 "\302 ?\205`\211\203db\210\303\304\305\306 \307\310 & \210\311=\204'\312\211\2058\313 \2046\314\315\"\210\211b\207" [mail-user-agent mail-encode-mml message-in-body-p mml-insert-empty-tag part type buffer disposition description message-user-agent t pos-visible-in-window-p message "The buffer \"%s\" has been attached at the end of the message"] 15 (#$ . 40120) (byte-code "\300\301!\302\303\"\304 \305\306\"F\207" [read-buffer "Attach buffer: " mml-minibuffer-read-type "text/plain" mml-minibuffer-read-description mml-minibuffer-read-disposition nil] 8)])#@166 Attach an external file into the buffer. FILE is an ange-ftp specification of the part location. TYPE is the MIME type to use. (fn FILE &optional TYPE DESCRIPTION) (defalias 'mml-attach-external #[769 "\302 ?\205`\211\203db\210\303\304\305\306\307\310\311\n& \210\312=\204%\313\211\2058\314 \2046\315\316\317!\"\210\211b\207" [mail-user-agent mail-encode-mml message-in-body-p mml-insert-empty-tag external type name disposition "attachment" description message-user-agent t pos-visible-in-window-p message "The file \"%s\" has been attached at the end of the message" file-name-nondirectory] 14 (#$ . 40935) (byte-code "\300\301!\302!\303 E\207" [mml-minibuffer-read-file "Attach external file: " mml-minibuffer-read-type mml-minibuffer-read-description] 6)])#@23 (fn &optional TYPE) (defalias 'mml-insert-multipart #[256 "\211\204\302\262\303\304\305#\210\306=\204\307\310y\207" [mail-user-agent mail-encode-mml "mixed" mml-insert-empty-tag "multipart" type message-user-agent t -1] 5 (#$ . 41721) (byte-code "\300 \203 \301\302\303\304\305$C\207\306\307!\207" [message-in-body-p gnus-completing-read "Multipart type" ("mixed" "alternative" "digest" "parallel" "signed" "encrypted") nil "mixed" error "Use this command in the message body"] 5)])#@23 (fn &optional TYPE) (defalias 'mml-insert-part #[256 "\302=\204\303\304\305\306\307\310%\210\212\304\311!)\207" [mail-user-agent mail-encode-mml message-user-agent t mml-insert-tag part type disposition "inline" /part] 7 (#$ . 42220) (byte-code "\300 \203\n\301\302!C\207\303\304!\207" [message-in-body-p mml-minibuffer-read-type "" error "Use this command in the message body"] 2)])#@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 #[0 "\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 (#$ . 42618)]) (defvar mml-preview-buffer nil) (autoload 'widget-button-press "wid-edit" nil t)#@349 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 controlled 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. (fn &optional RAW) (defalias 'mml-preview #[256 "\306\203 \307\202\n\310\311 P!\312\313!\210\212p \314=\n\315 \316 \317\214\320 \210\321\322!)!\206. \323 \210\324\325!\203>B\214~\210q\210\326 \210\327!)\210\330 \210\316 ?\205W@\203_\331\202aAA@\332\333\316 \203qB\202sC!!\210\211\204\217\334\335\336A!\337Q\340\341#\203\214\342\337!\210\331A\343 \210\344 *\210\203\251\345 \326 \210\346 \210\211c\266\202\326 @\340\211\211DEFG\347\350!\210\351H\206\315\352\353\354\206\310\355\356\357$\262HI\360 .\210\361\340!\210\362\363\364\340\341$\210\341J\365\366\367\"\210\365\370\371\"\210\365\372\373\"\210\365\374\375\"\210eb-\266\376\311!!\204 \324\377!\203 \201L?\236\203 pK\201M\201L!)\207\201N!\207" [mml-preview-buffer major-mode message-options message-this-is-mail message-this-is-news message-posting-charset generate-new-buffer "*Raw MIME preview of " "*MIME preview of " buffer-name require gnus-msg gnus-article-edit-mode 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 buffer-string mm-disable-multibyte run-hooks gnus-article-decode-hook "dummy" 5 make-hash-table :size 300 :test equal gnus-article-prepare-display use-local-map add-hook kill-buffer-hook #[0 "\301!\207" [gnus-article-mime-handles mm-destroy-parts] 2] local-set-key "q" #[0 "\300\301!\207" [kill-buffer nil] 2 nil nil] "=" #[0 "\300 \207" [delete-other-windows] 1 nil nil] " " #[0 "\300`!\207" [widget-button-press] 2 nil nil] [mouse-2] #[257 "\300\301!\"\207" [widget-button-press widget-event-point] 4 "\n\n(fn EVENT)" "@e"] special-display-p gnus-buffer-configuration message-deletable-headers mail-header-separator message-required-news-headers message-required-mail-headers gnus-displaying-mime gnus-original-article-buffer gnus-article-prepare-hook gnus-newsgroup-charset gnus-newsrc-hashtb gnus-newsgroup-name buffer-read-only gnus-message-buffer mml-preview gnus-configure-windows pop-to-buffer] 10 (#$ . 43141) "P"])#@36 Validate the current MML document. (defalias 'mml-validate #[0 "\300 \207" [mml-parse] 1 (#$ . 45773) nil])#@30 Tweak a MML part. (fn CONT) (defalias 'mml-tweak-part #[257 "\303\236A\304\203\305\"A\206\306!\262\202G \203G \307\236A\206&\310\203E\311@@\"\203>@A\262\304\262\202&A\262\202&\266\211\203O\211!\210\n\211\203j\312@@\313\"\203c\211@A!\210\211A\262\202P\266\207" [mml-tweak-function-alist mml-tweak-type-alist mml-tweak-sexp-alist tweak nil assoc intern type "text/plain" string-match eval t] 8 (#$ . 45886)])#@52 Tweak attached files as external parts. (fn CONT) (defalias 'mml-tweak-externalize-attachments #[257 "\300@\301=\205*\302\236A?\205*\303\236\211\262\205*\304\236A\305\232?\205*\306\240\210\211\307\240\207" [nil part buffer filename nofile "yes" external name] 4 (#$ . 46335)]) (provide 'mml)