;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\"\316
d\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)