;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\316%\207" [custom-declare-group metamail nil "Metamail interface for Emacs." :group mail processes custom-declare-variable metamail-program-name funcall function #[0 "\300\207" ["metamail"] 1 #1=""] "Metamail program name." :type string metamail-mailer-name #[0 "\300\207" ["emacs"] 1 #1#] "Mailer name set to MM_MAILER environment variable."] 8) #@239 Environment variables passed to `metamail'. It must be a list of strings that have the format ENVVARNAME=VALUE. It is not expected to be altered globally by `set' or `setq'. Instead, change its value temporary using `let' or `let*' form. (defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1") (#$ . 552)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable metamail-switches funcall function #[0 "\300\207" [("-x" "-d" "-z")] 1 ""] "Switches for `metamail' program.\n`-z' is required to remove zap file.\nIt is not expected to be altered globally by `set' or `setq'.\nInstead, change its value temporary using `let' or `let*' form.\n`-m MAILER' argument is automatically generated from the\n`metamail-mailer-name' variable." :type (repeat (string :tag "Switch"))] 6) #@103 Interpret a header part of a MIME message in current buffer. Its body part is not interpreted at all. (defalias 'metamail-interpret-header #[0 "\212\302\303 \304\"eb\210\305\306\302\307#\210\310c\210`\311e\302\211\312%\210eb\210\305\313\302\314#\205+\315\316!*\262)\207" [buffer-read-only metamail-switches nil append ("-c" "text/plain" "-E" "7bit") search-forward "\n\n" move "\n" metamail-region nodisplay "\n\n\n" t delete-char -1] 7 (#$ . 1355) nil]) #@338 Interpret a body part of a MIME message in current buffer. Optional argument VIEWMODE specifies the value of the EMACS_VIEW_MODE environment variable (defaulted to 1). Optional argument NODISPLAY non-nil means buffer is not redisplayed as output is inserted. Its header part is not interpreted at all. (fn &optional VIEWMODE NODISPLAY) (defalias 'metamail-interpret-body #[512 "\212\301\211eb\210\302\303\301\304#\210`\214e}\210\305\306!\206\307\262\305\310!\206\"\311\262)\312\313\314\315\257\"\316d\301%)\266\203)\207" [metamail-switches nil search-forward "\n\n" t mail-fetch-field "Content-Type" "text/plain" "Content-Transfer-Encoding" "7bit" append "-b" "-c" "-E" metamail-region] 12 (#$ . 1822) "p"]) #@364 Process current buffer through `metamail'. Optional argument VIEWMODE specifies the value of the EMACS_VIEW_MODE environment variable (defaulted to 1). Optional argument BUFFER specifies a buffer to be filled (nil means current). Optional argument NODISPLAY non-nil means buffer is not redisplayed as output is inserted. (fn &optional VIEWMODE BUFFER NODISPLAY) (defalias 'metamail-buffer #[768 "\300ed%\207" [metamail-region] 9 (#$ . 2556) "p"]) #@372 Process current region through `metamail'. Optional argument VIEWMODE specifies the value of the EMACS_VIEW_MODE environment variable (defaulted to 1). Optional argument BUFFER specifies a buffer to be filled (nil means current). Optional argument NODISPLAY non-nil means buffer is not redisplayed as output is inserted. (fn BEG END &optional VIEWMODE BUFFER NODISPLAY) (defalias 'metamail-region #[1282 "p\306\307\310!\311\312\247\203\202\313\"C\212\306\314  \306\315%\210)\203,q\210\306p=\203=|\210\202Aed|\210\316\n #\317\320\321 \306\322 ?\316\323\206[\324D\nC#&\210*\3251o\326!0\202q\210\306*\207" [buffer-read-only selective-display process-environment metamail-environment coding-system-for-read metamail-program-name nil make-temp-file "metamail" format "EMACS_VIEW_MODE=%d" 1 write-region nomessage append undecided apply call-process t "-m" "emacs" (error) delete-file metamail-switches metamail-mailer-name] 19 (#$ . 3014) "r\np"]) (provide 'metamail)