;ELC   
;;; compiled by jwz@thalidomide on Wed Dec  1 01:08:15 1993
;;; from file /th/jwz/emacs19/lisp/packages/metamail.el
;;; emacs version 19.9 Lucid.
;;; bytecomp version 2.20; 20-oct-93.
;;; 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")))
    (error "This file was compiled for Emacs 19."))

(defvar metamail-program-name "metamail" "\
*Metamail program name.")
(defvar metamail-environment "KEYHEADS='*';export KEYHEADS;" "\
*Environment variables for Metamail.
It must be an emtpy string or a string terminated with ';'.")
(defvar metamail-switches '("-m" "emacs" "-x" "-d" "-z") "\
*Switches for Metamail program.
-z is required to remove zap file.")
(fset 'metamail-buffer #[(&optional buffer) "Аed	#‡" [metamail-region buffer] 4 "\
Process current buffer through 'metamail'.
Optional argument BUFFER specifies a buffer to be filled (nil means current)." nil])
(fset 'metamail-region #[(beg end &optional buffer) "pАБВ!ЉЖАЙ%€\n«„\nq€Аp=«€|€Є„ed|€ЛМНАО‰ПТУФТ#Т°D&,‡" [nil make-temp-name "/tmp/metamail" metafile buffer-read-only curbuf write-region beg end nomessage buffer apply call-process "/bin/sh" t "-c" metamail-environment metamail-program-name " " mapconcat identity metamail-switches] 14 "\
Process current region through 'metamail'.
Optional argument BUFFER specifies a buffer to be filled (nil means current)." "r"])
(provide 'metamail)