;ELC ;;; Compiled by jmorzins@kamp-krusty.mit.edu on Mon Oct 3 10:37:20 2005 ;;; from file /afs/sipb/contrib/emacs/packages/mh-e-7.82/mh-mime.el ;;; in Emacs version 21.4.1 ;;; with bytecomp version 2.85.4.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 "`mh-mime.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\307\"\210\305\311\312\"\210\305\313\314\"\210\305\315\316\"\210\305\317\320\"\210\305\321\322\"\210\305\323\324\"\210\305\325\324\"\210\305\326\324\"\210\305\327\324\"\210\305\330\324\"\210\305\331\332\"\207" [require cl mh-comp gnus-util mh-gnus autoload gnus-article-goto-header "gnus-art" article-emphasize gnus-get-buffer-create "gnus" gnus-eval-format "gnus-spec" widget-convert-button "wid-edit" message-options-set-recipient "message" mml-unsecure-message "mml-sec" mml-minibuffer-read-file "mml" mml-minibuffer-read-description mml-insert-empty-tag mml-to-mime mml-attach-file rfc2047-decode-region "rfc2047"] 3) #@266 Add a directive to insert a MIME part from a file, using mhn or gnus. If the variable `mh-compose-insertion' is set to 'mhn, then that will be used. If it is set to 'gnus, then that will be used instead. Optional argument INLINE means make it an inline attachment. (defalias 'mh-compose-insertion #[(&optional inline) "\302\232\203 \203\303\304!\207\303 \207\305\306!\207" [mh-compose-insertion inline gnus mh-mml-attach-file "inline" call-interactively mh-mhn-compose-insertion] 2 (#$ . 1345) "P"]) #@469 Add a MIME directive to forward a message, using mhn or gnus. If the variable `mh-compose-insertion' is set to 'mhn, then that will be used. If it is set to 'gnus, then that will be used instead. Optional argument DESCRIPTION is a description of the attachment. Optional argument FOLDER is the folder from which the forwarded message should come. Optional argument MESSAGE is the message to forward. If any of the optional arguments are absent, they are prompted for. (defalias 'mh-compose-forward #[(&optional description folder message) "\304\232\203\f\305 \n #\207\306 \n #\207" [mh-compose-insertion description folder message gnus mh-mml-forward-message mh-mhn-compose-forw] 4 (#$ . 1857) (list (read-string "Forw Content-description: ") (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) (read-string (format "Messages%s: " (if (numberp mh-sent-from-msg) (format " [%d]" mh-sent-from-msg) ""))))]) #@213 Extra arguments to have \[mh-edit-mhn] pass to the "mhn" command. The arguments are passed to mhn if \[mh-edit-mhn] is given a prefix argument. Normally default arguments to mhn are specified in the MH profile. (defvar mh-mhn-args nil (#$ . 2781)) #@73 Regexp matching valid media types used in MIME attachment compositions. (defvar mh-media-type-regexp (byte-code "\300\301\302\"\303P\207" [regexp-opt ("text" "image" "audio" "video" "application" "multipart" "message") t "/[-.+a-zA-Z0-9]+"] 3) (#$ . 3036)) (byte-code "\301B\301\207" [current-load-list mh-have-file-command] 2) #@107 Return t if 'file' command is on the system. 'file -i' is used to get MIME type of composition insertion. (defalias 'mh-have-file-command #[nil "\302\301!\204(\303\304\305\211#\210\306\307!\205'\307\310!\205'\311\312\310\313\211\211\314\315\316\317\"&! \207" [mh-progs mh-have-file-command boundp load "executable" t fboundp executable-find "file" zerop call-process nil "-i" "-b" expand-file-name "inc"] 11 (#$ . 3373)]) #@269 Substitutions to make for Content-Type returned from file command. The first element is the Content-Type returned by the file command. The second element is a regexp matching the file name, usually the extension. The third element is the Content-Type to replace with. (defvar mh-file-mime-type-substitutions '(("application/msword" ".xls" "application/ms-excel") ("application/msword" ".ppt" "application/ms-powerpoint") ("text/plain" ".vcf" "text/x-vcard")) (#$ . 3808)) #@131 Return possibly changed CONTENT-TYPE on the FILENAME. Substitutions are made from the `mh-file-mime-type-substitutions' variable. (defalias 'mh-file-mime-type-substitute #[(content-type filename) "\306\211 \307\211 \203> @@ @\310\234 \230\2035\311\f\f\"\2035 @\312\234\306\211 \202\f A\211 \204 -\207" [mh-file-mime-type-substitutions content-type case-fold-search answer match type nil t 1 string-match 2 subst filename] 6 (#$ . 4287)]) #@92 Return MIME type of FILENAME from file command. Returns nil if file command not on system. (defalias 'mh-file-mime-type #[(filename) "\304 \204\305\207\306!\203\307!\204\305\207\212\310 !\211q\210\311\216\312\313\305\314\305\315\316\317!&\210eb\210\320 \305\321#\205=\322\323\324!\"+\207" [filename mh-temp-buffer tmp-buffer mh-media-type-regexp mh-have-file-command nil file-exists-p file-readable-p get-buffer-create ((kill-buffer tmp-buffer)) call-process "file" (t nil) "-b" "-i" expand-file-name re-search-forward t mh-file-mime-type-substitute match-string 0] 10 (#$ . 4754)]) #@65 Legal MIME content types. See documentation for \[mh-edit-mhn]. (defvar mh-mime-content-types '(("application/mac-binhex40") ("application/msword") ("application/octet-stream") ("application/pdf") ("application/pgp-keys") ("application/pgp-signature") ("application/pkcs7-signature") ("application/postscript") ("application/rtf") ("application/vnd.ms-excel") ("application/vnd.ms-powerpoint") ("application/vnd.ms-project") ("application/vnd.ms-tnef") ("application/wordperfect5.1") ("application/wordperfect6.0") ("application/zip") ("audio/basic") ("audio/mpeg") ("image/gif") ("image/jpeg") ("image/png") ("message/delivery-status") ("message/external-body") ("message/partial") ("message/rfc822") ("text/enriched") ("text/html") ("text/plain") ("text/rfc822-headers") ("text/richtext") ("text/x-vcard") ("text/xml") ("video/mpeg") ("video/quicktime")) (#$ . 5356)) #@32 Legal MIME access-type values. (defvar mh-access-types '(("anon-ftp") ("file") ("ftp") ("gopher") ("http") ("local-file") ("mail-server") ("mailto") ("news") ("nntp") ("propspero") ("telnet") ("tftp") ("url") ("wais")) (#$ . 6232)) #@421 Add a directive to insert a MIME message part from a file. This is the typical way to insert non-text parts in a message. Arguments are FILENAME, which tells where to find the file, TYPE, the MIME content type, DESCRIPTION, a line of text for the Content-Description field. ATTRIBUTES is a comma separated list of name=value pairs that is appended to the Content-Type field of the attachment. See also \[mh-edit-mhn]. (defalias 'mh-mhn-compose-insertion #[(filename type description attributes) "\304 \n $\207" [filename type description attributes mh-mhn-compose-type] 5 (#$ . 6471) (let ((filename (read-file-name "Insert contents of: "))) (list filename (or (mh-file-mime-type filename) (completing-read "Content-Type: " (if (fboundp 'mailcap-mime-types) (mapcar 'list (mailcap-mime-types)) mh-mime-content-types))) (read-string "Content-Description: ") (read-string "Content-Attributes: " (concat "name=\"" (file-name-nondirectory filename) "\""))))]) #@233 Insert a mhn directive to insert a file. The file specified by FILENAME is encoded as TYPE. An optional DESCRIPTION is used as the Content-Description field, optional set of ATTRIBUTES and an optional COMMENT can also be included. (defalias 'mh-mhn-compose-type #[(filename type &optional description attributes comment) "\305 \210\306\261\210 \203\307 \261\210\n\203\310\n\311\261\210\312c\210 \203% c\210\313\314\f!\261\210\315c\207" [type attributes comment description filename beginning-of-line "#" "; " " (" ")" " [" "] " expand-file-name "\n"] 3 (#$ . 7437)]) #@363 Add a directive for a MIME anonymous ftp external body part. This directive tells MH to include a reference to a message/external-body part retrievable by anonymous FTP. Arguments are HOST and FILENAME, which tell where to find the file, TYPE, the MIME content type, and DESCRIPTION, a line of text for the Content-description header. See also \[mh-edit-mhn]. (defalias 'mh-mhn-compose-anon-ftp #[(host filename type description) "\304\305 \n %\207" [host filename type description mh-mhn-compose-external-type "anon-ftp"] 6 (#$ . 8022) (list (read-string "Remote host: ") (read-string "Remote filename: ") (completing-read "External Content-Type: " (if (fboundp 'mailcap-mime-types) (mapcar 'list (mailcap-mime-types)) mh-mime-content-types)) (read-string "External Content-Description: "))]) #@362 Add a directive to include a MIME reference to a compressed tar file. The file should be available via anonymous ftp. This directive tells MH to include a reference to a message/external-body part. Arguments are HOST and FILENAME, which tell where to find the file, and DESCRIPTION, a line of text for the Content-description header. See also \[mh-edit-mhn]. (defalias 'mh-mhn-compose-external-compressed-tar #[(host filename description) "\303\304 \305\n\306\307&\207" [host filename description mh-mhn-compose-external-type "anon-ftp" "application/octet-stream" "type=tar; conversions=x-compress" "mode=image"] 8 (#$ . 8826) (list (read-string "Remote host: ") (read-string "Remote filename: ") (read-string "Tar file Content-description: "))]) #@469 Add a directive to include a MIME reference to a remote file. The file should be available via anonymous ftp. This directive tells MH to include a reference to a message/external-body part. Arguments are ACCESS-TYPE, HOST and FILENAME, which tell where to find the file and TYPE which is the MIME Content-Type. Optional arguments include DESCRIPTION, a line of text for the Content-description header, ATTRIBUTES, EXTRA-PARAMS, and COMMENT. See also \[mh-edit-mhn]. (defalias 'mh-mhn-compose-external-type #[(access-type host filename type &optional description attributes extra-params comment) "\306 \210\307\261\210 \203\310 \261\210\n\203\311\n\312\261\210\313c\210 \203% c\210\314c\210\315\f\310\261\210\316 \261\210\317\320!\261\210\321!\211\203L\322\323\261\210)\203X\310\261\210\324c\207" [type attributes comment description access-type host beginning-of-line "#@" "; " " (" ") " " [" "] " "access-type=" "site=" "; name=" file-name-nondirectory file-name-directory "; directory=\"" "\"" "\n" filename directory extra-params] 4 (#$ . 9584) (list (completing-read "Access Type: " mh-access-types) (read-string "Remote host: ") (read-string "Remote url-path: ") (completing-read "Content-Type: " (if (fboundp 'mailcap-mime-types) (mapcar 'list (mailcap-mime-types)) mh-mime-content-types)) (if current-prefix-arg (read-string "Content-description: ")) (if current-prefix-arg (read-string "Attributes: ")) (if current-prefix-arg (read-string "Extra Parameters: ")) (if current-prefix-arg (read-string "Comment: ")))]) #@311 Add a forw directive to this message, to forward a message with MIME. This directive tells MH to include the named messages in this one. Arguments are DESCRIPTION, a line of text for the Content-description header, and FOLDER and MESSAGES, which name the message(s) to be forwarded. See also \[mh-edit-mhn]. (defalias 'mh-mhn-compose-forw #[(&optional description folder messages) "\305 \210\306c\210\203\307\230\204c\210\310c\210 \203% \307\230\204%\311 \261\210\n\203A\n\307\230\204A`\311\n\261\210\312 `\313\314$\210)\202M\f\247\203M\311\315\f!\261\210\316c\207" [description folder messages start mh-sent-from-msg beginning-of-line "#forw [" "" "]" " " subst-char-in-region 44 32 int-to-string "\n"] 5 (#$ . 11144) (list (read-string "Forw Content-description: ") (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) (read-string (format "Messages%s: " (if (numberp mh-sent-from-msg) (format " [%d]" mh-sent-from-msg) ""))))]) #@1098 Format the current draft for MIME, expanding any mhn directives. Process the current draft with the mhn program, which, using directives already inserted in the draft, fills in all the MIME components and header fields. This step is performed automatically when sending the message, but this function may be called manually before sending the draft as well. The `\[mh-revert-mhn-edit]' command undoes this command. The arguments in the list `mh-mhn-args' are passed to mhn if this function is passed an optional prefix argument EXTRA-ARGS. For assistance with creating mhn directives to insert various types of components in a message, see \[mh-mhn-compose-insertion] (generic insertion from a file), \[mh-mhn-compose-anon-ftp] (external reference to file via anonymous ftp), \[mh-mhn-compose-external-compressed-tar] (reference to compressed tar file via anonymous ftp), and \[mh-mhn-compose-forw] (forward message). The value of `mh-edit-mhn-hook' is a list of functions to be called, with no arguments, after performing the conversion. The mhn program is part of MH version 6.8 or later. (defalias 'mh-edit-mhn #[(&optional extra-args) "\303 \210\304 \210\305\306!\210\307\310!\203\311\312\313\205 \n$\210\202,\311\314\315\n\"\316\205) \n$\210\317\320\211\"\210\305\321!\210\322\323!\207" [extra-args mh-mhn-args buffer-file-name mh-mhn-quote-unescaped-sharp save-buffer message "mhn editing..." mh-variant-p nmh mh-exec-cmd-error nil "mhbuild" format "mhdraft=%s" "mhn" revert-buffer t "mhn editing...done" run-hooks mh-edit-mhn-hook] 5 (#$ . 12111) "*P"]) #@229 Quote `#' characters that haven't been quoted for `mhbuild'. If the `#' character is present in the first column, but it isn't part of a MHN directive then `mhbuild' gives an error. This function will quote all such characters. (defalias 'mh-mhn-quote-unescaped-sharp #[nil "\212eb\210\300\301\302\303#\205!\304 \210\305`\306 \"\204\307c\210\306 b\210\202)\207" [re-search-forward "^#" nil t beginning-of-line mh-mhn-directive-present-p line-end-position "#"] 4 (#$ . 13693)]) #@138 Undo the effect of \[mh-edit-mhn] by reverting to the backup file. Optional non-nil argument NOCONFIRM means don't ask for confirmation. (defalias 'mh-revert-mhn-edit #[(noconfirm) "\204\305\306!\210\307\310\211\203(\311\312!\n@\313!\314R\211!\204(\nA\211\204\n\2041\305\315\"\210 \204B\316\317\320 \"!\204B\305\321!\210\310\322 \210\323 !\210)\324\310!*\207" [buffer-file-name backup-file backup-strings noconfirm buffer-read-only error "Buffer does not seem to be associated with any file" ("," "#") nil file-exists-p file-name-directory file-name-nondirectory ".orig" "Backup file for %s no longer exists!" yes-or-no-p format "Revert buffer from file %s? " "Revert not confirmed" erase-buffer insert-file-contents after-find-file] 6 (#$ . 14182) "*P"]) #@185 Check if the text between BEGIN and END might be a MHN directive. The optional argument BEGIN defaults to the beginning of the buffer, while END defaults to the the end of the buffer. (defalias 'mh-mhn-directive-present-p #[(&optional begin end) "\204e \204\fd\212\302\303\215)\207" [begin end --cl-block-\(quote\ search-for-mhn-directive\)-- (byte-code "b\210\305\306 \307#\203A\310`\311 \"\211\312\232\204=\313\314\n\"\203&\315\316\307\"\210\202=\317\n\320\"@\211\203<\313\f \"\203<\315\316\307\"\210))\202\321\207" [begin end s first-token mh-media-type-regexp re-search-forward "^#" t buffer-substring-no-properties line-end-position "" string-match "^forw[ \n]+" throw --cl-block-\(quote\ search-for-mhn-directive\)-- split-string "[ ;@]" nil] 5)] 2 (#$ . 14963)]) #@181 Compose MIME message from mml directives. This step is performed automatically when sending the message, but this function may be called manually before sending the draft as well. (defalias 'mh-mml-to-mime #[nil "\304\305!\210\203 \306 \210\307 p\310 \311\312\313\217+\207" [mh-gnus-pgp-support-flag modified-flag buffer saved-text require message message-options-set-recipient buffer-string buffer-modified-p err (mml-to-mime) ((error (byte-code "rq\210ed|\210 c\210\304\n!\210)\305\306 !!\207" [buffer saved-text modified-flag err set-buffer-modified-p error error-message-string] 3)))] 3 (#$ . 15759) nil]) #@116 Forward a message as attachment. The function will prompt the user for a DESCRIPTION, a FOLDER and MESSAGE number. (defalias 'mh-mml-forward-message #[(description folder message) "\306\232\203 \247\203 \202\307!@\211\250\203> \306\230\203.\310\311\312\f \313\314O\n$\315\"\202B\310\311\312\f \313\314O\n$\315 #\202B\316\317\n\")\207" [message mh-sent-from-msg msg description mh-user-path folder "" read-from-string mml-attach-file format "%s%s/%d" 1 nil "message/rfc822" error "The message number, %s is not a integer!"] 8 (#$ . 16382)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list mh-mml-cryptographic-method-history boundp nil] 2) #@39 Read the cryptographic method to use. (defalias 'mh-mml-query-cryptographic-method #[nil "\203 @\206\n\n\304\305\306 \"\307\310\311\310\301 &)\207\n\207" [current-prefix-arg mh-mml-cryptographic-method-history mh-mml-method-default def completing-read format "Method: [%s] " (("pgp") ("pgpmime") ("smime")) nil t] 8 (#$ . 17061)]) #@387 Attach a file to the outgoing MIME message. The file is not inserted or encoded until you send the message with `\[mh-send-letter]'. Message disposition is "inline" or "attachment" and is prompted for if DISPOSITION is nil. This is basically `mml-attach-file' from gnus, modified such that a prefix argument yields an `inline' disposition and Content-Type is determined automatically. (defalias 'mh-mml-attach-file #[(&optional disposition) "\306\307!\310!\206\311\312\313\314!\203\315\316\314 \"\202 \"\317 \f\206.\311\320\321\322\323\322\211\324&\325\326\302\n\327\304 \303 & ,\207" [file mh-mime-content-types type description disposition dispos mml-minibuffer-read-file "Attach file: " mh-file-mime-type completing-read "Content-Type: " fboundp mailcap-mime-types mapcar list mml-minibuffer-read-description "Disposition: [attachment] " (("attachment") ("inline")) nil t "attachment" mml-insert-empty-tag part filename] 10 (#$ . 17405)]) (byte-code "\301B\301\207" [current-load-list mh-identity-pgg-default-user-id] 2) #@218 Add directive to Encrypt/Sign an entire message. METHOD should be one of: "pgpmime", "pgp", "smime". MODE should be one of: "sign", "encrypt", "signencrypt", "none". IDENTITY is optionally the default-user-id to use. (defalias 'mh-secure-message #[(method mode &optional identity) "\204\306\307!\207\310\311\312E\313\314\315\316F \n\235\204 \306\317\320 \"!\210\f \235\204-\306\317\321\f\"!\210\322 \210\f\316\230?\205X\212eb\210\323\324!\210 \203P\325\326\303 \304\f\327 &\202W\325\326\303 \304\f%)*\207" [mh-gnus-pgp-support-flag valid-modes valid-methods method mode mh-identity-pgg-default-user-id error "Sorry. Your version of gnus does not support PGP/GPG" "pgpmime" "pgp" "smime" "sign" "encrypt" "signencrypt" "none" format "Sorry. METHOD \"%s\" is invalid." "Sorry. MODE \"%s\" is invalid" mml-unsecure-message mh-goto-header-end 1 mml-insert-tag secure sender] 8 (#$ . 18453)]) #@72 Remove any secure message directives. The IGNORE argument is not used. (defalias 'mh-mml-unsecure-message #[(&optional ignore) "\204\301\302!\207\303 \207" [mh-gnus-pgp-support-flag error "Sorry. Your version of gnus does not support PGP/GPG" mml-unsecure-message] 2 (#$ . 19359) "P"]) #@65 Add security directive to sign the entire message using METHOD. (defalias 'mh-mml-secure-message-sign #[(method) "\302\303 #\207" [method mh-identity-pgg-default-user-id mh-secure-message "sign"] 4 (#$ . 19655) (list (mh-mml-query-cryptographic-method))]) #@68 Add security directive to encrypt the entire message using METHOD. (defalias 'mh-mml-secure-message-encrypt #[(method) "\302\303 #\207" [method mh-identity-pgg-default-user-id mh-secure-message "encrypt"] 4 (#$ . 19918) (list (mh-mml-query-cryptographic-method))]) #@77 Add security directive to encrypt and sign the entire message using METHOD. (defalias 'mh-mml-secure-message-signencrypt #[(method) "\302\303 #\207" [method mh-identity-pgg-default-user-id mh-secure-message "signencrypt"] 4 (#$ . 20190) (list (mh-mml-query-cryptographic-method))]) #@69 Check if the current buffer has text which may be an MML directive. (defalias 'mh-mml-directive-present-p #[nil "\212eb\210\300\301\302\303#)\207" [re-search-forward "\\(<#part\\(.\\|\n\\)*>[ \n ]*<#/part>\\|^<#secure.+>$\\)" nil t] 4 (#$ . 20479)]) #@30 Free the decoded MIME parts. (defalias 'mh-mime-cleanup #[nil "\302p\"\303ed\"\210 \205\304 A@!\210\305p\")\207" [mh-globals-hash mime-data gethash remove-images mm-destroy-parts remhash] 3 (#$ . 20735)]) #@53 Free MIME data for externally displayed mime parts. (defalias 'mh-destroy-postponed-handles #[nil "\302p\"\211\203\303 A@!\210\304p\")\207" [mh-globals-hash mime-data gethash mm-destroy-parts remhash] 4 (#$ . 20951)]) #@301 Replacement for `mm-handle-set-external-undisplayer'. This is only called in recent versions of Gnus. The MIME handles are stored in data structures corresponding to MH-E folder buffer FOLDER instead of in Gnus (as in the original). The MIME part, HANDLE is associated with the undisplayer FUNCTION. (defalias 'mh-handle-set-external-undisplayer #[(folder handle function) "\306!\203-\307!\310 \233\n\240\210\310\233\311\240\210\212 q\210 \312p \"\211 A\f A@B\240,\207\310\233\n\240\207" [handle new-handle function folder #1=#:--arg1--2731 mh-globals-hash mm-keep-viewer-alive-p copy-sequence 3 nil gethash #2=#:--x--2729] 4 (#$ . 21181)]) #@119 Some mail programs don't put a MIME-Version header. I have seen this only in spam, so maybe we shouldn't fix this ;-) (defalias 'mh-add-missing-mime-version-header #[nil "\212eb\210\300\301\302\303#\210\214e`}\210\304\305!\205!\304\306!?\205!eb\210\307c*\207" [re-search-forward "\n\n" nil t message-fetch-field "content-type" "mime-version" "MIME-Version: 1.0\n"] 4 (#$ . 21838)]) #@108 Check if show buffer is small. This is used to decide if smileys and graphical emphasis will be displayed. (defalias 'mh-small-show-buffer-p #[nil "\302\303\301!\203( \203( \247\203 \202( <\203(\304\305 \"\206&\304\306 \"A\247?\2064\307\245\310 Y)\207" [max font-lock-maximum-size nil boundp assoc mh-show-mode t 8 buffer-size] 3 (#$ . 22229)]) #@30 Function to display smileys. (defalias 'mh-display-smileys #[nil "\205 \301 \205 \302ed\"\207" [mh-graphical-smileys-flag mh-small-show-buffer-p smiley-region] 3 (#$ . 22593)]) #@41 Function to display graphical emphasis. (defalias 'mh-display-emphasis #[nil "\205!\303 \205!\304\305!\211\205\305K\306\216\305\307M\210\212eb\210\310 ,\207" [mh-graphical-emphasis-flag #1=#:--letf-bound--2735 #2=#:--letf-save--2734 mh-small-show-buffer-p fboundp article-goto-body ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# article-goto-body fmakunbound] 2)) #[nil "\300\207" [nil] 1] article-emphasize] 3 (#$ . 22779)]) (byte-code "\301B\306\301!\204\f\307\310B\306\310!\204T\311 \312 !\313Y\204&\314\n\f\"\210\315\n\316\317#\210 \320\211 \203O @\315\n \211!A@) @#\210 A\211 \2045*\n)\321B\306\321!\204a\322\323B\306\323!\204n\324\325B\306\325!\204{\320\326B\306\326!\204\210\327\330B\306\330!\204\225\331\332B\306\332!\204\242\333\334B\306\334!\204\314\311 \312 !\313Y\204\274\314\n\f\"\210\315\n\335\336#\210\315\n\337\317#\210\n)\320\207" [current-load-list mh-mime-button-commands map emacs-version mh-show-mode-map c boundp ((mh-press-button " " "Toggle Display")) mh-mime-button-map make-sparse-keymap string-to-number 21 set-keymap-parent define-key [mouse-2] mh-push-button nil mh-mime-button-line-format-alist ((84 long-type 115) (100 description 115) (112 index 115) (101 dots 115)) mh-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n" mh-mime-security-button-pressed mh-mime-security-button-line-format "%{%([[%t:%i]%D]%)%}\n" mh-mime-security-button-end-line-format "%{%([[End of %t]%D]%)%}\n" mh-mime-security-button-line-format-alist ((116 type 115) (105 info 115) (100 details 115) (68 pressed-details 115)) mh-mime-security-button-map " " mh-press-button [mouse-2] #:--dolist-temp--2736 x] 5) #@79 Default to use for `mh-mime-save-parts-default-directory'. Set from last use. (defvar mh-mime-save-parts-directory nil (#$ . 24484)) #@288 Store the MIME parts of the current message. If ARG, prompt for directory, else use that specified by the variable `mh-mime-save-parts-default-directory'. These directories may be superseded by mh_profile directives, since this function calls on mhstore or mhn to do the actual storing. (defalias 'mh-mime-save-parts #[(arg) "\306=\203 \307 \202\310\311!\306=\203 \202\n\312\313!\203#\314\202$\315 \2044\f\316\232\2044\f\311\232\203B \204B\317\320\316\211\311\316%\202g \204L\f\311\232\203] \203]\317\321\322 \"\323 \311\323%\202g\f;\203f\f\202g !\"#$!\323\232\203} \203} !\324!!\204\212\325\326!\202\307\f\316\232\203\223!\212\327%!q\210\330!!\210!\331 &\332\333\334\"'\"\316\311\316\335#$\336E!&\210\337 &V\205\306\340\213*,\207" [major-mode mh-show-folder-buffer mh-current-folder arg mh-mime-save-parts-default-directory mh-mime-save-parts-directory mh-show-mode mh-show-buffer-message-number mh-get-msg-num t mh-variant-p nmh "mhstore" "mhn" nil read-file-name "Store in directory: " format "Store in directory: [%s] " "" file-directory-p message "No directory specified" get-buffer-create cd mh-truncate-log-buffer apply call-process expand-file-name mh-list-to-string "-auto" buffer-size ((byte-code "\301!\210\302\303!\207" [mh-log-buffer switch-to-buffer-other-window sit-for 3] 2)) directory command folder msg mh-log-buffer initial-size mh-progs] 10 (#$ . 24624) "P"]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list gnus-newsgroup-charset gnus-newsgroup-name boundp nil] 2) #@99 Decode message based on charset. If message has been encoded for transfer take that into account. (defalias 'mh-decode-message-body #[nil "\303\211\211eb\210\304\305\303\306#\210\214e`}\210\307\310\311\217\312\n\301\"\313\314!);\203,\315!\n\2037\n@\316\232\205P\214\317 Td^d}\210\320 \205L\321\322!\227!\n@#)+\207" [cte charset ct nil re-search-forward "\n\n" t #1=#:G2737 (byte-code "\300\301\302\303\"!\207" [mail-header-parse-content-type message-fetch-field "Content-Type" t] 4) ((error)) mail-content-type-get message-fetch-field "Content-Transfer-Encoding" mail-header-strip "text/plain" mh-mail-header-end mm-decode-body intern gnus-strip-whitespace] 5 (#$ . 26213)]) #@48 Toggle whether MH-E should decode MIME or not. (defalias 'mh-toggle-mh-decode-mime-flag #[nil "?\301\302\303\"\210\304\305\306\"!\207" [mh-decode-mime-flag mh-show nil t message format "(setq mh-decode-mime-flag %s)"] 4 (#$ . 26909) nil]) #@47 Decode RFC2047 encoded message header fields. (defalias 'mh-decode-message-header #[nil "\205\f\302\303e\304 \")\207" [mh-decode-mime-flag buffer-read-only nil rfc2047-decode-region mh-mail-header-end] 3 (#$ . 27157)]) #@194 Display (and possibly decode) MIME handles. Optional argument, PRE-DISSECTED-HANDLES is a list of MIME handles. If present they are displayed otherwise the buffer is parsed and then displayed. (defalias 'mh-mime-display #[(&optional pre-dissected-handles) "\306\307 \310\311!\211\205\311K\312\216\311\313M\210eb\210\314\315\306\316#\204)db\210\315c\210\317\320\321\217.\207" [mh-show-folder-buffer raw-message-data folder handles #1=#:--letf-bound--2741 #2=#:--letf-save--2740 nil buffer-string fboundp mm-handle-set-external-undisplayer ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# mm-handle-set-external-undisplayer fmakunbound] 2)) #[(handle function) "\303 \n#\207" [folder handle function mh-handle-set-external-undisplayer] 4] search-forward "\n\n" t err (byte-code "\203 \202,\304\305!\206\306 \307p\n\"\211A\310 \307p\n\"A@\"\240\210) \204,\311 \210 \203Q @;\203; A\203Qeb\210\312\313\305\314#\204Idb\210`d|\210\315 !\207\316 \207" [pre-dissected-handles handles mh-globals-hash #3=#:--x--2743 mm-dissect-buffer nil mm-uu-dissect gethash mm-merge-handles mh-decode-message-body search-forward "\n\n" t mh-mime-display-part mh-signature-highlight] 7) ((error (byte-code "\302\303\304!\"\210ed|\210 c\207" [err raw-message-data message "Please report this error. The error message is:\n %s" error-message-string] 4)))] 5 (#$ . 27386)]) #@57 Decides the viewer to call based on the type of HANDLE. (defalias 'mh-mime-display-part #[(handle) "\204\302\207@;\204\303!\207@\304\232\203\305A!\207 \2032@\306\232\204.@\307\232\2032\310!\207\311A!\207" [handle mh-gnus-pgp-support-flag nil mh-mime-display-single "multipart/alternative" mh-mime-display-alternative "multipart/signed" "multipart/encrypted" mh-mime-display-security mh-mime-display-mixed] 2 (#$ . 28783)]) #@131 Choose among the alternatives, HANDLES the part that will be displayed. If no part is preferred then all the parts are displayed. (defalias 'mh-mime-display-alternative #[(handles) "\306!\307\307\n:\203#\n@\211 =\204 \fB\nA\211\202 \f\237+ \203; @;\203;\310 !\210\311 !\202^ \203[\214`m\203I`\202K`T}\210\312 !\210\311 !\210db)\202^\313!*\207" [handles preferred #1=#:G2745 x #2=#:G2746 others mm-preferred-alternative nil mh-mime-display-part mh-mime-maybe-display-alternatives mh-mime-display-single mh-mime-display-mixed] 3 (#$ . 29231)]) #@154 Show buttons for ALTERNATIVES. If `mh-mime-display-alternatives-flag' is non-nil then display buttons for alternative parts that are usually suppressed. (defalias 'mh-mime-maybe-display-alternatives #[(alternatives) "\205. \205.\304c\210\305c\210 \306\211\203+ @\307c\210\310\n\311\n!\306#\210 A\211\204*\304c\207" [mh-display-buttons-for-alternatives-flag alternatives x #1=#:--dolist-temp--2747 "\n----------------------------------------------------\n" "Alternatives:\n" nil "\n" mh-insert-mime-button mh-mime-part-index] 5 (#$ . 29802)]) #@54 Display the list of MIME parts, HANDLES recursively. (defalias 'mh-mime-display-mixed #[(handles) "\301\302\"\207" [handles mapcar mh-mime-display-part] 3 (#$ . 30360)]) #@208 Generate the button number for MIME part, HANDLE. Notice that a hash table is used to display the same number when buttons need to be displayed multiple times (for instance when nested messages are opened). (defalias 'mh-mime-part-index #[(handle) "\306\307\306p \"8\"\206*\307\306p \"8\306p \"\310\f\233\310\f8T\240)\311\n #+\207" [handle mh-globals-hash #1=#:--x--2748 #2=#:--h--2749 #3=#:--x--2753 #4=#:--store--2751 gethash 4 3 cl-puthash] 6 (#$ . 30538)]) #@140 Decide whether HANDLE is a "small" image that can be displayed inline. This is only useful if a Content-Disposition header is not present. (defalias 'mh-small-image-p #[(handle) "\306A@@ \"\211AA)@\307\211\205`\310\211@;\203$@\202(A@@)\311\"@)\312\232\205`\f!\205`\313!\314 !\211\205_A\206P\315 SW\205_@\206^\316 W**\207" [handle mh-mm-inline-media-tests x mm-inline-large-images media-test image assoc t split-string "/" "image" mm-get-image image-size window-height window-width size mh-max-inline-image-height mh-max-inline-image-width] 5 (#$ . 31014)]) #@60 Decide if HANDLE is a vcard that must be displayed inline. (defalias 'mh-inline-vcard-p #[(handle) "A@\302\303!\204\304\305!\205' :\205' @\306\232\205'\212\214~\210eb\210\307 *?)\207" [handle type featurep vcard fboundp vcard-pretty-print "text/x-vcard" mh-signature-separator-p] 2 (#$ . 31609)]) #@47 Display a leaf node, HANDLE in the MIME tree. (defalias 'mh-mime-display-single #[(handle) "\211@;\203 @\202A@@)\306!\3078@\310\232\3078@\311\232\2050\312!\2050\313!\211\206l\314!\206l ?\205l\n\206l\315\211@;\203T@\202XA@@)\316\"@)\317\232?\205l\312!\205l\313!\214`m\203w`\202y`T}\210\203\206 \320\232\204\315 \204\230\321c\210\322\323!\324#\210\202\315 \203\262\204\262\325!\204\253\325!\210\326!\210\202\315 \203\315\203\315\321c\210\322\323!\324#\210\327y\210\330!\210db.\207" [handle type small-image-flag attachmentp inlinep displayp mh-small-image-p 4 "attachment" "inline" mm-inlinable-p mm-inlined-p mh-inline-vcard-p split-string "/" "image" "application/pgp-signature" "\n" mh-insert-mime-button mh-mime-part-index nil mm-display-part mh-signature-highlight -1 mh-mm-display-part mh-gnus-pgp-support-flag mh-display-buttons-for-inline-parts-flag] 5 (#$ . 31919)]) #@160 Highlight message signature in HANDLE. The optional argument, HANDLE is a MIME handle if the function is being used to highlight the signature in a MIME part. (defalias 'mh-signature-highlight #[(&optional handle) "\204\304\202W\305\211@;\203@\202A@@)\306\"@)\307\232\203G\305\211@;\2036@\202:A@@)\306\"\211A@*\310\232\204K\304\202W\311 \312=\203V\313\202W\314\212db\210\315\n\316\317#\205w\320`d\"\321 \322\323#\210\321 \324\317#\210)\316*\207" [handle x regexp ov "^-- $" split-string "/" "text" "html" mh-mm-text-html-renderer lynx "^ --$" "^--$" re-search-backward nil t make-overlay overlay-put face mh-show-signature-face evaporate] 4 (#$ . 32863)]) #@160 Insert MIME button for HANDLE. INDEX is the part number that will be DISPLAYED. It is also used by commands like "K v" which operate on individual MIME parts. (defalias 'mh-insert-mime-button #[(handle index displayed) "\306!\203 \204\307!\210\310A@\311\"\206*\310\3128\313\"\206*\310A@\314\"\206*\315\211@;\2037@\202;A@@)\316\3178\206D\315! \204O\306!\203S\320\202T\321\322\211\211,- \323\324 \"\203q \325\225\322O - \315\232?\205\326 PP,\315\232\204\214\327\fPn\204\223\330c\210`\331./\332\3330!\334\335\3361\337\257\"#\210`\340\341 \n\342\343\344\3450\346\347& \210\350 \n\"\3222\2113\203\3373@2\3512\352\353#\2103A\2113\204\312. \322\207" [handle displayed end begin long-type dots mm-handle-displayed-p mm-display-part mail-content-type-get name 4 filename url "" mail-decode-encoded-word-string 5 " " "..." nil string-match ".*/" 0 "; " " --- " "\n" gnus-eval-format append gnus-local-map-property mh-callback mh-mm-display-part mh-part mh-data widget-convert-button link :mime-handle :action mh-widget-press-button :button-keymap :help-echo "Mouse-2 click or press RET (in show buffer) to toggle display" overlays-in overlay-put evaporate t description type mh-mime-button-line-format mh-mime-button-line-format-alist mh-mime-button-map index ov #1=#:--dolist-temp--2755] 13 (#$ . 33559)]) #@49 Toggle display of button for MIME part, HANDLE. (defalias 'mh-mm-display-part #[(handle) "\306 \210\307`\310\"`\311 \312\211\211\211$\212\313\216\314p\315\"\211%\203(\316%!\210 b\210\317&!\203`\307 \320\"\211\203B\321 @ A\"\210\322&!\210 \203Q @ A|\210)l?\205`\312y\210`|\202\214`\323y\210`|\210``}\210&&\324&\211&@;\203\201&@\202\206&A@@)\325\"@)\326\232\203\223\327c\210\330\331\332\217\333=\204\307&&\324&\211&@;\203\261&@\202\266&A@@)\325\"@)\326\232\203\307eb\210\334\323!\210&&\324&\211&@;\203\334&@\202\341&A@@)\325\"@)\335\232\203'\336=\203\365\337 \210\340 \210\341 \210\342&!\210eb\210\343 db\210\343 B\211).\n\207" [buffer-read-only region mail-parse-ignored-charsets mail-parse-charset window point beginning-of-line get-text-property mh-part selected-window nil ((byte-code "\305!\203\n\306!\210 b\210\307 \210\310\n \311\n!#\210 b\210\f\203)\312\313 \314 \315\fD#\210\305\207" [window point handle id region window-live-p select-window beginning-of-line mh-insert-mime-button mm-handle-displayed-p add-text-properties line-beginning-position line-end-position mh-region] 5)) get-buffer-window t select-window mm-handle-displayed-p mh-region remove-images mm-display-part 1 split-string "/" "image" "\n" #1=#:G2756 (mm-display-part handle) ((error)) inline delete-char "text" gnus mh-gnus-article-highlight-citation mh-display-smileys mh-display-emphasis mh-signature-highlight point-marker id win handle mh-highlight-citation-p] 8 (#$ . 34928)]) #@101 Press MIME button. If the MIME part is visible then it is removed. Otherwise the part is displayed. (defalias 'mh-press-button #[nil "\306`\307\"\306`\310\"\311 \312\313!\211\205\313K\314\216\313\315M\210\f\203/l\203/\316u\210\317\216\f\2058\f !. \207" [mh-mm-inline-media-tests mh-show-folder-buffer folder buffer-read-only function data get-text-property mh-data mh-callback nil fboundp mm-handle-set-external-undisplayer ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1=#:--letf-bound--2760 #2=#:--letf-save--2759 mm-handle-set-external-undisplayer fmakunbound] 2)) #[(handle function) "\303 \n#\207" [folder handle function mh-handle-set-external-undisplayer] 4] -1 ((set-buffer-modified-p nil)) mm-inline-media-tests #1# #2#] 6 (#$ . 36452) nil]) #@184 Click MIME button for EVENT. If the MIME part is visible then it is removed. Otherwise the part is displayed. This function is called when the mouse is used to click the MIME button. (defalias 'mh-push-button #[(event) "\212\211A@)\211@)\211A@)\211A@:\203! A@@\202$ A@)\306 \307\n!q\210\310 `\311\223\312 \311\313\216\314\n!\210 b\210\315`\316\"\315`\317\"\320\321!\211\205c\321K\322\216\321\323M\210\205u!.\207" [event position #1=#:event-window #2=#:event-position #3=#:original-window #4=#:original-position selected-window window-buffer make-marker nil buffer-modified-p ((byte-code "\303!\210 b\210 \304\211\223\210\305\n!\207" [#5=#:modified-flag #4# #3# set-buffer-modified-p nil select-window] 3)) select-window get-text-property mh-data mh-callback fboundp mm-handle-set-external-undisplayer ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#6=#:--letf-bound--2764 #7=#:--letf-save--2763 mm-handle-set-external-undisplayer fmakunbound] 2)) #[(handle func) "\303 \n#\207" [folder handle func mh-handle-set-external-undisplayer] 4] #5# buffer-read-only mh-show-folder-buffer mh-mm-inline-media-tests function data mm-inline-media-tests folder #6# #7#] 7 (#$ . 37242) "e"]) #@26 Save MIME part at point. (defalias 'mh-mime-save-part #[nil "\304`\305\"\211\205\306 \206\n!\307!\210 \211))\207" [data mh-mime-save-parts-directory default-directory mm-default-directory get-text-property mh-data file-name-as-directory mh-mm-save-part] 4 (#$ . 38482) nil]) #@38 Toggle display of the raw MIME part. (defalias 'mh-mime-inline-part #[nil "\306\307`\310\"\307`\311\"\312 !`\306\306 \203S\n\204S \204S\313 !\314\315 \316 \317#\210\320 \321y\210\322 \"\210\320 \314 \211b\210\316 \323 BD#\210)\202f \203f\n\204_ \203f\324 \210\325\326!\210\fb\210\327\306!.\207" [buffer-read-only data inserted-flag displayed-flag point start nil get-text-property mh-data mh-mime-inserted mm-handle-displayed-p mm-get-part add-text-properties line-beginning-position line-end-position (mh-mime-inserted t) point-marker 1 mm-insert-inline mh-region mh-press-button message "MIME part already inserted" set-buffer-modified-p end contents] 6 (#$ . 38771) nil]) #@34 View MIME PART-INDEX externally. (defalias 'mh-display-with-external-viewer #[(part-index) ":\203@\301\302\303#\207" [part-index mh-folder-mime-action #[nil "\306`\307\"\211\211@;\203 @\202 A@@)\310\311\312\n\313\"\"\211\211@@)\314\315 \2034\314\316 \"\2025\317\"\320 \321\211\211\211 &\321\322\323\"\203Z\324P\325\326!\211 \205e\326K!\327\216\326\330M\210\331\216\332\".\f\207" [part handle type methods x def get-text-property mh-data mapcar #[(x) "\301\302\"AC\207" [x assoc viewer] 3] mailcap-mime-info all format "Viewer: %s" "[%s] " "" completing-read nil string-match "^[^% ]+$" " %s" fboundp mm-handle-set-external-undisplayer ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1=#:--letf-bound--2768 #2=#:--letf-save--2767 mm-handle-set-external-undisplayer fmakunbound] 2)) #[(handle function) "\303 \n#\207" [folder handle function mh-handle-set-external-undisplayer] 4] ((set-buffer-modified-p nil)) mm-display-external prompt method mh-show-folder-buffer folder buffer-read-only #1# #2#] 9] nil] 4 (#$ . 39477) "P"]) #@54 Callback for widget, WIDGET. Parameter EL is unused. (defalias 'mh-widget-press-button #[(widget el) "\301\302\"b\210\303 \207" [widget widget-get :from mh-press-button] 3 (#$ . 40570)]) #@47 Display PGP encrypted/signed message, HANDLE. (defalias 'mh-mime-display-security #[(handle) "\214``}\210\303c\210\304!\210\305A!\210\303c\210 \304!\210)\306\307\310 \311 B#)\207" [handle mh-mime-security-button-end-line-format mh-mime-security-button-line-format "\n" mh-insert-mime-security-button mh-mime-display-mixed mm-set-handle-multipart-parameter mh-region point-min-marker point-max-marker] 5 (#$ . 40764)]) #@54 Toggle display of detailed security info for HANDLE. (defalias 'mh-mime-security-show-details #[(handle) "\304\305\306@#\211\205E\304`\307\"?\304`\310\"\311u\210\304`\310\"\n=\203(\311u\210\202\312u\210\214``}\210\313!\210)`\314`d\310\n$\206@d|\210\311y*)\207" [handle details mh-mime-security-button-line-format mh-mime-security-button-pressed get-text-property 0 gnus-details mh-button-pressed mh-line-format -1 nil mh-insert-mime-security-button text-property-not-all] 7 (#$ . 41193)]) #@48 Callback from security button for part HANDLE. (defalias 'mh-mime-security-press-button #[(handle) "\306\307\310@#\203 \311!\207\306\307\312@#\313`\n@b\210\n@\nA|\210r\306\307\314@#q\210\315\315\316A\"\211A=\204E\317A!\210 \241\210,\320!\210 b*\207" [handle point region mm-verify-option mm-decrypt-option new get-text-property 0 gnus-info mh-mime-security-show-details mh-region nil buffer known mm-possibly-verify-or-decrypt mm-destroy-parts mh-mime-display-security] 5 (#$ . 41698)]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\305B\304\207" [current-load-list mm-verify-function-alist mm-decrypt-function-alist boundp nil pressed-details] 2) #@42 Display buttons for PGP message, HANDLE. (defalias 'mh-insert-mime-security-button #[(handle) "\306\307\301@#\310\311 \n\"8\206\310\311 \"8\206\312\211@\313\232\203'\314\202(\315\316Q\306\307\317@#\2065\320/\306\307\321@#0\3221\3222\32230\203T\3230P\202U\32404\203a0\202b\3241n\204k\323c\210`2\32556\326\3277!\3304\331\332\3335\334\257\"#\210`3\335\33623\337\340\341\3427\343\344& \210\34523\"\3228\2119\203\3009@8\3468\347\350#\2109A\2119\204\253*/\351\232\205\352@\313\232\203\323\352\202\324\353\211\353\232\203\337\354\202\340\324:\355\356\f :$*.\207" [handle protocol mm-verify-function-alist mm-decrypt-function-alist crypto-type type get-text-property 0 2 assoc "Unknown" "multipart/signed" " Signed" " Encrypted" " Part" gnus-info "Undecided" gnus-details nil "\n" "" gnus-eval-format append gnus-local-map-property mh-button-pressed mh-callback mh-mime-security-press-button mh-line-format mh-data widget-convert-button link :mime-handle :action mh-widget-press-button :button-keymap :help-echo "Mouse-2 click or press RET (in show buffer) to see security details." overlays-in overlay-put evaporate t "Failed" "verification" "decryption" "(passphrase may be incorrect)" message "%s %s failed %s" info details pressed-details begin end mh-mime-security-button-pressed mh-mime-security-button-line-format mh-mime-security-button-line-format-alist mh-mime-security-button-map ov #1=#:--dolist-temp--2769 warning] 14 (#$ . 42394)]) #@128 Display message, HANDLE. The function decodes the message and displays it. It avoids decoding the same message multiple times. (defalias 'mh-mm-inline-message #[(handle) "` \306\212\214 \211}\210\307!!\210\310\311!\312\311p\"\"8\"\206^!#\312\311p\"\"8$\313\306!\2067\314 %\311p\"\"\211&A\315%\311p\"\"A@\"\240\210)%)'\316#'$#+!\210eb\210\317 \210\f\203v\320e \n#\210eb\210\202y\321 \210\322 \210\323 \210(\324=\203\211\325 \210eb\210\326c\210\327 \210\330 \210\331!\233\332\306\333\334\335\336\337 \340 EFE\240.\207" [mh-clean-message-header-flag mh-invisible-header-fields-compiled visible-headers invisible-headers clean-message-header b nil mm-insert-part mh-mime-display gethash 2 mm-dissect-buffer mm-uu-dissect mm-merge-handles cl-puthash mh-show-xface mh-clean-msg-header mh-start-of-uncleaned-message mh-decode-message-header mh-show-addr gnus mh-gnus-article-highlight-citation "\n------- Forwarded Message\n\n" mh-display-smileys mh-display-emphasis 3 lambda let (buffer-read-only) (if (fboundp 'remove-specifier) (mapcar (lambda (prop) (remove-specifier (face-property 'default prop) (current-buffer))) '(background background-pixmap foreground))) delete-region point-min-marker point-max-marker handle mh-globals-hash #1=#:--x--2770 #2=#:--h--2771 handles #3=#:--x--2775 #4=#:--store--2773 mh-highlight-citation-p] 10 (#$ . 43905)]) (provide 'mh-mime)