;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:46:32 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/metamail.el ;;; emacs version 19.28.90.26. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/metamail.el' was compiled for Emacs 19")) #@25 *Metamail program name. (defvar metamail-program-name "metamail" (#$ . -485)) #@114 *Environment variables passed to `metamail'. It must ba a list of strings that have the format ENVVARNAME=VALUE. (defvar metamail-environment (quote ("KEYHEADS=*")) (#$ . -570)) #@70 *Switches for `metamail' program. -z is required to remove zap file. (defvar metamail-switches (quote ("-m" "emacs" "-x" "-d" "-z")) (#$ . -754)) #@221 Process current buffer through `metamail'. Optional 1st argument BUFFER specifies a buffer to be filled (nil means current). Optional 2nd argument NODISPLAY non-nil means buffer is not redisplayed as output is inserted. (defalias 'metamail-buffer #[(&optional buffer nodisplay) "ed \n$" [metamail-region buffer nodisplay] 5 (#$ . 907) nil]) #@221 Process current region through 'metamail'. Optional 1st argument BUFFER specifies a buffer to be filled (nil means current). Optional 2nd argument NODISPLAY non-nil means buffer is not redisplayed as output is inserted. (defalias 'metamail-region #[(beg end &optional buffer nodisplay) "p! %\n\nq p=-|1ed|\f \" ? C\"&)֏," [nil make-temp-name "/tmp/metamail" metafile buffer-read-only curbuf write-region beg end nomessage buffer append metamail-environment process-environment apply call-process metamail-program-name t nodisplay metamail-switches error (delete-file metafile) ((error))] 9 (#$ . 1257) "r"]) (provide (quote metamail))