;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:48 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/mml.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; 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!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\307\"\210\305\315\307\"\207" [require mm-util mm-bodies mm-encode mm-decode autoload message-make-message-id "message" gnus-setup-posting-charset "gnus-msg" gnus-add-minor-mode "gnus-ems" message-fetch-field message-posting-charset] 3) #@338 *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 (#$ . -980)) (byte-code "\304\302!\204C\305!\306\307\310 #\210\306\311\312 #\210\306\313\314 #\210\306\315\316 #\210\306\317\316 #\210\306\320\321 #\210\306\322\321 #\210\306\323\321 #\210\306\324\321 #\210 )\302 B\304\207" [emacs-lisp-mode-syntax-table table mml-syntax-table current-load-list boundp copy-syntax-table modify-syntax-entry 92 "/" 60 "(" 62 ")" 64 "w" 47 61 " " 42 59 39] 4) #@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 (#$ . 1761)) #@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 (#$ . 2098)) #@129 A function called before generating a mime part. The function is called with one parameter, which is the part to be generated. (defvar mml-generate-mime-preprocess-function nil (#$ . 2427)) #@121 A function called after generating a mime part. The function is called with one parameter, which is the generated part. (defvar mml-generate-mime-postprocess-function nil (#$ . 2625)) (byte-code "\303\300!\204\304\300 B\303\302!\204\305\302 B\305\207" [mml-generate-default-type current-load-list mml-buffer-list boundp "text/plain" nil] 2) (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 mapcar kill-buffer] 3]) #@46 Parse the current buffer as an MML document. (defalias 'mml-parse #[nil "eb\210\302 \303\216\304 !\210\305 *\207" [table mml-syntax-table syntax-table ((set-syntax-table table)) set-syntax-table mml-parse-1] 2 (#$ . 3235)]) #@46 Parse the current buffer as an MML document. (defalias 'mml-parse-1 #[nil "\306\211\211\211\211\211\211\211\211%&'m\204\307\310!\204\307\311!\2032\312 \313 \244'B'\202\307\314!\203H\312 \305\315 BC\244'B'\202\307\316!\204T\307\317!\203_\312 &\306\306\202h\320\321D&\322\322\300&\236A`%\315&@\323=!?\205\203\324%`\"\204\273\306\f>\203\273\325(>\204\233\326\327!\203\267\302(>\206\245\326\330!\211\203\262\331\306\f\"\202\273\306\202\273\332\333!\210\204\316&@\323=\204\316\fG\334W\203\350 \203\331\335\336 \"\203&\305 BC\244'B'\202\337&%`\n$) \203\f\340(>\204\f\326\341\342)G\"!\204\f\332\343!\210)'\244')\202m\204\344y\210'\237. \207" [raw no-markup-p use-ascii warn charsets contents nil looking-at "<#/multipart" "<#multipart" mml-read-tag mml-parse-1 "<#external" mml-read-part "<#part" "<#mml" part (type . "text/plain") t mml mm-find-mime-charset-region unknown-encoding y-or-n-p "Message contains characters with unknown encoding. Really send?" "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 "Warning: Your message contains more than %d parts. Really send? " "Edit your message to use only one charset" 1 point tag struct mml-confirmation-set nstruct] 9 (#$ . 3466)]) (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\311\311\202\225\310=\203a\311\311\311\202\225\312\313\314 \206t\f\206t \206t`\"BC\"B \206\212\f\206\212 \206\212`\311\311\311g\315>\203\241`T\202\301g\316=\203\270o\204\270`Sf\316=\203\270`\202\301g\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 "\304\211\211\211\305u\210\306`\307\310!\210`\"\311\304w\210\312\313!\204O\306`\307\310!\210`\"\314\304w\210\306`\307\310!\210`\"\315\316\"\203@\317\310\"\320 !B B\311\304w\210\202\321\225b\210\320\n! \237,B\207" [val elem name contents nil 2 buffer-substring-no-properties forward-sexp 1 " \n" looking-at ">[ ]*\n?" "= \n" string-match "^\"\\(.*\\)\"$" match-string intern 0] 4 (#$ . 5609)]) #@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\202db\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 buffer-substring-no-properties "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)." match-string 2 "multipart"] 5 (#$ . 6094)]) (byte-code "\304\300!\204\305\300 B\304\302!\204\306\302 B\304\303!\204 \307\303 B\305\207" [mml-boundary current-load-list mml-base-boundary mml-multipart-number boundp nil "-=-=" 0] 2) #@60 Generate a MIME message based on the current MML document. (defalias 'mml-generate-mime #[nil "\303 \211\2055\304\305\306!!\307\216r\nq\210 @:\203* G\310U\203*\311 @!\210\2022\311\312\313D \244!\210\314 +*\207" [mml-multipart-number cont #1=#:temp-buffer mml-parse get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) 1 mml-generate-mime-1 multipart (type . "mixed") buffer-string] 4 (#$ . 7022)]) (defalias 'mml-generate-mime-1 #[(cont) "\214``}\210\203  !\210 @\306=\204 @\307=\203h\310 \236A\311\211\211\211\211@\302 \236A\2064\312\204\313\n\314\"@\315\235\203\316\317\320!!A\321\216rAq\210\322 \236A\203c\323\322 \236A!\210\202\260\303 \236A\211\203|\324 \236A\325\232\204|\326 !\210\202\260 @\307=\203\214\327 \236Ac\210\202\260\214``}\210\327 \236Ac\210eb\210\330\331\311\332#\203\257\333\224\334\\\333\224\335\\|\210\202\232) @\307=\203\326BCT\211C!\312DE\336 \210*F\337PF\340 )\202\370\313\n\314\"@\341\230\203\355F\337PF\340 )\202\370\342 \343\f\305 \236A\"\344 @+\202U\311G\316\317\320!!H\345\216rHq\210\322 \236A\203\"\323\322 \236A!\210\202L\303 \236A\211\203F\324 \236A\325\232\204FIJ\326 \311\211\211\211\332&\210)\202L\327 \236Ac\210\346\n!\344 @,\347 \n\f $\210\350c\210@c\210.\202\214 @\351=\203\352c\210\353 \354\"\355 \236A-K-\203\310\356-!\211-;\203\232\357\360\361-\"\362\"\210\202\310\357\360\361\363\334-8!\"\360\364-A@\"\360\365\366\334-8!\"#\210\357\367-@\370\235\203\304\371\202\305\372P!\210K\203\322\373 \374\"\210*\375c\210\376\302 \236A\350\261\210\377\201O \350\261\210\201P\305 \236A\206\365\201Q\261\210\375c\210\327 \236Ac\210\350c\210\202\214 @\201R=\203\203\302 \236A\206\201S\211\201T\232\203)\201U\202*\312D\201V\nL\"\211M\203BMA !\210\202\201W !E\201X\201Y\nE#c\210 AA \203s\201ZE\350\261\210\201[ \211A@!\210\202Y\201ZE\201\\\261\210)+\202\214\201]\201^ \"\210N\205\225N !)\207" [mml-generate-mime-preprocess-function cont type filename charset encoding part mml raw nil "text/plain" split-string "/" ("text" "message") get-buffer-create generate-new-buffer-name " *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-to-mime "" mm-body-7-or-8 "message" mm-encode-body mm-body-encoding buffer-string ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) mm-encode-buffer mml-insert-mime-headers "\n" external "Content-Type: message/external-body" mml-parameter-string (expiration size permission) name 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" mml-insert-parameter-string (expiration size permission) "\n\n" "Content-Type: " "Content-ID: " coded #1# mml-boundary-function mml-multipart-number mml-generate-default-type mml-boundary mm-7bit-chars default-enable-multibyte-characters #2# mm-binary-coding-system coding-system-for-read parameters mml-generate-multipart-alist handler mml-generate-mime-postprocess-function message-make-message-id "Content-Transfer-Encoding: " "binary" multipart "mixed" "digest" "message/rfc822" assoc mml-compute-boundary format "Content-Type: multipart/%s; boundary=\"%s\"\n" "\n--" mml-generate-mime-1 "--\n" error "Invalid element: %S"] 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 (#$ . 10688)]) (defalias 'mml-compute-boundary-1 #[(cont) "\306 @\307=\203d\310\311\312!!\313\216r\nq\210\314 \236A\203&\315\314 \236A!\210\202E\300 \236A\211\203?\316 \236A\317\232\204?\320!\210\202E\321 \236Ac\210eb\210\322\323\324 !P\306\325#\203`\f T\211!\326\327\306\"\210+\202r @\330=\203r\331\332 AA\"\210)\325\207" [filename cont #1=#:temp-buffer mml-boundary mml-boundary-function mml-multipart-number nil part get-buffer-create generate-new-buffer-name " *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 contents re-search-forward "^--" regexp-quote t throw not-unique multipart mapcar mml-compute-boundary-1] 4]) (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]) (defalias 'mml-insert-mime-headers #[(cont type charset encoding) "\306\211\211\307 \310\"\f\204\n\204 \232\204B\f:\203#\311\312!\210\313 \261\210\f\2036\314\315\316\317\f!\"\261\210\n\203?\320 \321\"\210\322c\210\307 \323\"\301 \236A\211\204T\n\203i\324 \206Z\325\261\210\n\203f\320 \326\"\210\322c\210\327=\204w\330\331\"c\210\300 \236A\211\205\207\332\333!\322\261+\207" [description disposition parameters cont charset type nil mml-parameter-string (name access-type expiration size permission) error "Can't encode a part with several charsets." "Content-Type: " "; " mail-header-encode-parameter "charset" symbol-name mml-insert-parameter-string (name access-type expiration size permission) "\n" (filename creation-date modification-date read-date) "Content-Disposition: " "inline" (filename creation-date modification-date read-date) 7bit format "Content-Transfer-Encoding: %s\n" "Content-Description: " mail-encode-encoded-word-string mml-generate-default-type 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\nG\314U?\2059\n+\207" [type value string types cont "" nil filename file-name-nondirectory "; " mail-header-encode-parameter symbol-name 0] 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]) (byte-code "\301B\302B\301\207" [current-load-list ange-ftp-name-format efs-path-regexp] 2) (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 (#$ . 13768)]) #@68 Translate the current buffer (which should be a message) into MML. (defalias 'mime-to-mml #[nil "\214\301 \210\302ed\"\210)\303\304!eb\210\305\306\307\304#\210`d|\210@;\203(\310!\210\202-\310\304\"\210\311!\210)\214\301 \210\312\313!\210\312\314!\210\312\315!)\207" [handles message-narrow-to-head mail-decode-encoded-word-region mm-dissect-buffer t search-forward "\n\n" nil mml-insert-mime mm-destroy-parts message-remove-header "Content-Type" "MIME-Version" "Content-Transfer-Encoding"] 4 (#$ . 13973)]) #@48 Translate the current buffer from MML to MIME. (defalias 'mml-to-mime #[nil "\302 \210\214\303 \210\304 *\207" [message-default-charset mail-parse-charset message-encode-message-body message-narrow-to-headers-or-head mail-encode-encoded-word-buffer] 1 (#$ . 14493)]) (defalias 'mml-insert-mime #[(handle &optional no-markup) "\306\211\211 @;\204U \307 \211@;\203 @\202 A@@)\310\"@)\311\232\211\204U\212\312\313!\211q\210\314 !\210 \211@;\203E @\202I A@@)\315\232\211\203T\316 \210)\203c\317 \306\320\211$\210\202\204\f\203~ \211@;\203t @\202x A@@)\321\232\204\204\317 \n#\210\203\224\322 !\210db\210\323c\202\304 @;\203\245\324\325 A\"\210\326c\202\304\n\203\302\327 !\330 A@\305\"\331 \"c\210*db\202\304\332c+\207" [mmlp buffer textp handle no-markup charset nil split-string "/" "text" mml-generate-new-buffer " *mml*" mm-insert-part "message/rfc822" mime-to-mml mml-insert-mml-markup t "text/plain" insert-buffer "<#/mml>\n" mapcar mml-insert-mime "<#/multipart>\n" mm-get-part mail-content-type-get mm-decode-string "<#/part>\n" text] 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@\202A@@)\310\"A@)\311\261\207 \203B\312\211@;\2037@\202;A@@)\261\210\202X\313\211@;\203P@\202TA@@)\261\210\314A@A\3158A\"\316\211\203 @\317\320\n@!\321\nA\322\261\210 A\211\204i*\3158\203\216\323\3158@\261\210\f\203\232\324\325\f!\322\261\210 \203\241\326c\210\3278\203\257\330\3278\322\261\210\311c\207" [handle mmlp elem #1=#:--dolist-temp--88926 buffer nofile "<#multipart type=" split-string "/" ">\n" "<#mml type=" "<#part type=" append 4 nil " " symbol-name "=\"" "\"" " disposition=" " buffer=\"" buffer-name " nofile=yes" 5 " description=\""] 7 (#$ . 15583)]) #@34 Insert PARAMETERS in a nice way. (defalias 'mml-insert-parameter #[(&rest parameters) "\304\211\203,\n@\305c\210`\306 \261\210i\307V\203$ b\210\310c\210\304\210)\nA\211\204*\304\207" [parameters param #1=#:--dolist-temp--88927 point nil ";" " " 71 "\n "] 3 (#$ . 16349)]) (byte-code "\304\302!\204E\305 \305 \306 \307\310#\210\306 \311\312#\210\306 \313\314#\210\306 \315\316#\210\306 \317\320#\210\306 \321\322#\210\306 \323\324#\210\306 \325\326#\210\306\327 #\210*\302 B\304\207" [main map mml-mode-map current-load-list boundp make-sparse-keymap define-key "f" mml-attach-file "b" mml-attach-buffer "e" mml-attach-external "q" mml-quote-region "m" mml-insert-multipart "p" mml-insert-part "v" mml-validate "P" mml-preview "\355"] 4) #@2  (defvar mml-menu nil (#$ . 17110)) (easy-menu-do-define 'mml-menu mml-mode-map "" '("MML" ("Attach" ["File" mml-attach-file t] ["Buffer" mml-attach-buffer t] ["External" mml-attach-external t]) ("Insert" ["Multipart" mml-insert-multipart t] ["Part" mml-insert-part t]) ["Quote" mml-quote-region t] ["Validate" mml-validate t] ["Preview" mml-preview t])) #@29 Minor mode for editing MML. (defvar mml-mode nil (#$ . 17471)) #@46 Minor mode for editing MML. \{mml-mode-map} (defalias 'mml-mode #[(&optional arg) "\304\301!\204\f ?\202\305!\306VL\205#\307\301\310\n#\210\311 \n\"\210\312\313!\207" [arg mml-mode mml-mode-map mml-menu make-local-variable prefix-numeric-value 0 gnus-add-minor-mode " MML" easy-menu-add run-hooks mml-mode-hook] 4 (#$ . 17540) "P"]) (defalias 'mml-minibuffer-read-file #[(prompt) "\302\303\211\304$\305 !\203\306\307 \"\210\310 !\204\306\311 \"\210\312 !\204(\306\313 \"\210 )\207" [prompt file read-file-name nil 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]) #@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 (#$ . 18741) "r"]) #@48 Insert an MML tag described by NAME and PLIST. (defalias 'mml-insert-tag #[(name &rest plist) "9\203 \304!\305\261\210 \2038 \211A@ \211A@\n\2034\306\307\n\"\203-\310\n!\311\312 \n#c\210*\202\313c\207" [name plist value key symbol-name "<#" string-match "[\"'\\~/*;() \n]" prin1-to-string format " %s=%s" ">\n"] 4 (#$ . 19018)]) #@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 (#$ . 19370)]) #@325 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. (defalias 'mml-attach-file #[(file &optional type description) "\303\304\300\305 \306\307\302\n& \207" [type file description mml-insert-empty-tag part filename disposition "attachment"] 10 (#$ . 19609) (let* ((file (mml-minibuffer-read-file "Attach file: ")) (type (mml-minibuffer-read-type file)) (description (mml-minibuffer-read-description))) (list file type description))]) #@95 Attach a buffer to the outgoing MIME message. See `mml-attach-file' for details of operation. (defalias 'mml-attach-buffer #[(buffer &optional type description) "\303\304\300\301 \305\306\302\n& \207" [type buffer description mml-insert-empty-tag part disposition "attachment"] 10 (#$ . 20320) (let* ((buffer (read-buffer "Attach buffer: ")) (type (mml-minibuffer-read-type buffer "text/plain")) (description (mml-minibuffer-read-description))) (list buffer type description))]) #@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) "\303\304\300\305 \306\307\302\n& \207" [type file description mml-insert-empty-tag external name disposition "attachment"] 10 (#$ . 20807) (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 ""))]) #@89 Display current buffer with Gnus, in a new buffer. If RAW, don't highlight the article. (defalias 'mml-preview #[(&optional raw) "p\306\214\307 \210\310\311!)!\206\312\313\n\203\314\202\315\316 P!!\210\317 \210\320 !\210\321\322\323 !\324Q\325\326#\203:\327\324!\210\330 \210\n\203d\331\332!\203r\333 \317 \210\334\335!\204]\331\332!\203]\332\325!\210\fc\210)\202r@\336\337!\210\340#\341 \210*\342 \210\326$eb*\207" [message-posting-charset buf raw mail-header-separator s gnus-newsgroup-charset gnus-setup-posting-charset message-narrow-to-headers-or-head message-fetch-field "Newsgroups" switch-to-buffer get-buffer-create "*Raw MIME preview of " "*MIME preview of " buffer-name erase-buffer insert-buffer re-search-forward "^" regexp-quote "\n" nil t replace-match mml-to-mime fboundp set-buffer-multibyte buffer-string featurep xemacs run-hooks gnus-article-decode-hook "dummy" gnus-article-prepare-display fundamental-mode gnus-newsgroup-name buffer-read-only] 4 (#$ . 21824) "P"]) #@36 Validate the current MML document. (defalias 'mml-validate #[nil "\300 \207" [mml-parse] 1 (#$ . 22837) nil]) (provide 'mml)