;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Apr 19 14:23:16 1996
;;; from file /gd/gnu/emacs/19.0/lisp/metamail.el
;;; emacs version 19.30.98.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`metamail.el' was compiled for Emacs 19.29 or later"))


#@25 *Metamail program name.
(defvar metamail-program-name "metamail" (#$ . -475))
#@53 *Mailer name set to MM_MAILER environment variable.
(defvar metamail-mailer-name "emacs" (#$ . -559))
#@240 *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 (quote ("KEYHEADS=*" "MM_QUIET=1")) (#$ . -668))
#@288 *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.
(defvar metamail-switches (quote ("-x" "-d" "-z")) (#$ . -992))
#@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 "ЉАВД\"eb€ЕЖАЗ#€Иc€`	Кe	А‰Л%€eb€ЕМАН#…. ОП!,‡" [nil buffer-read-only append metamail-switches ("-c" "text/plain" "-E" "7bit") search-forward "\n\n" move "\n" end metamail-region nodisplay "\n\n\n" t delete-char -1] 6 (#$ . 1350) 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) "ЉА‰eb€БВАГ#€`Њe\f}€ЗИ!† ЙЗК!†& Л)МОПРЇ\"С\fdА%€)Х=…Q THdА“,‡" [nil search-forward "\n\n" t end encoding contype mail-fetch-field "Content-Type" "text/plain" "Content-Transfer-Encoding" "7bit" append metamail-switches "-b" "-c" "-E" metamail-region viewmode nodisplay major-mode rmail-mode rmail-message-vector rmail-current-message] 7 (#$ . 1742) "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) "Аed	\n%‡" [metamail-region viewmode buffer nodisplay] 6 (#$ . 2499) "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АБВ!Г\f§ѓ \f‚ ЕPC	ЉАКЛМ!…% САФ%€+ѓ@ q€А	p=ѓS |€‚W ed|€Ц#ЩЪ!ѓn ЫАК#€ЛМ!ѓ| ЭА#€ЮЯАа!?Ц\"г$†Џ еDC#&€)жзиЏ-‡" [nil make-temp-name "/tmp/metamail" "EMACS_VIEW_MODE=" viewmode 1 option-environment metafile buffer-read-only curbuf 2 featurep mule *junet* file-coding-system kanji-fileio-code selective-display write-region beg end nomessage buffer append process-environment metamail-environment boundp NEMACS define-program-kanji-code metamail-program-name define-program-coding-system apply call-process t nodisplay metamail-switches "-m" metamail-mailer-name "emacs" error (delete-file metafile) ((error))] 10 (#$ . 2970) "r\np"])
(provide (quote metamail))