;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/metamail.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\313\314\304\301&\210\307\315\316\317\313\314\304\301&\207" [custom-declare-group metamail nil "Metamail interface for Emacs." :group mail processes custom-declare-variable metamail-program-name "metamail" "Metamail program name." :type string metamail-mailer-name "emacs" "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") (#$ . 955))
#@287 Switches for `metamail' program.
`-z' is required to remove zap file.
It is not expected to be altered globally by `set' or `setq'.
Instead, change its value temporary using `let' or `let*' form.
`-m MAILER' argument is automatically generated from the
`metamail-mailer-name' variable.
(custom-declare-variable 'metamail-switches ''("-x" "-d" "-z") '(#$ . 1270) :type '(repeat (string :tag "Switch")) :group 'metamail)
#@103 Interpret a header part of a MIME message in current buffer.
Its body part is not interpreted at all.
(defalias 'metamail-interpret-header #[nil "\212\303\304	\305\"eb\210\306\307\303\310#\210\311c\210`\312e\n\303\211\313%\210eb\210\306\314\303\315#\205,\316\317!,\207" [buffer-read-only metamail-switches end nil append ("-c" "text/plain" "-E" "7bit") search-forward "\n\n" move "\n" metamail-region nodisplay "\n\n\n" t delete-char -1] 6 (#$ . 1696) nil])
#@303 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.
(defalias 'metamail-interpret-body #[(&optional viewmode nodisplay) "\212\306\211eb\210\307\310\306\311#\210`\214e}\210\312\313!\206\314\312\315!\206$\316)\317\320\321\n\322	\257\"\323d\f\306
%-\207" [end encoding contype metamail-switches viewmode nodisplay nil search-forward "\n\n" t mail-fetch-field "Content-Type" "text/plain" "Content-Transfer-Encoding" "7bit" append "-b" "-c" "-E" metamail-region] 7 (#$ . 2165) "p"])
#@322 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.
(defalias 'metamail-buffer #[(&optional viewmode buffer nodisplay) "\303ed	\n%\207" [viewmode buffer nodisplay metamail-region] 6 (#$ . 2913) "p"])
#@322 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.
(defalias 'metamail-region #[(beg end &optional viewmode buffer nodisplay) "p\306\307\310!\311\312\247\203\202\313\"C\212\306\314\n\306\315%\210)\203.q\210\306\fp=\203?|\210\202Ced|\210\316	#\317\320\321\306\322?\316 \323!\206b\324D\nC#&\210*\325\326\327\217-\207" [viewmode option-environment metafile buffer-read-only curbuf selective-display 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 metafile) ((error)) beg end buffer process-environment metamail-environment coding-system-for-read metamail-program-name nodisplay metamail-switches metamail-mailer-name] 10 (#$ . 3390) "r\np"])
(provide 'metamail)