;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon Aug 16 14:52:45 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/metamail.el ;;; emacs version 19.18.5. ;;; 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 "This file was compiled for Emacs 19")) (defvar metamail-program-name "metamail" "\ *Metamail program name.") (defvar metamail-environment (quote ("KEYHEADS=*")) "\ *Environment variables passed to `metamail'. It must ba a list of strings that have the format ENVVARNAME=VALUE.") (defvar metamail-switches (quote ("-m" "emacs" "-x" "-d" "-z")) "\ *Switches for `metamail' program. -z is required to remove zap file.") (defalias 'metamail-buffer #[(&optional buffer nodisplay) "ed \n$" [metamail-region buffer nodisplay] 5 "\ 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." nil]) (defalias 'metamail-region #[(beg end &optional buffer nodisplay) "p! %\n\nq p=-|1ed|  \" ? 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 "\ 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." "r"]) (provide (quote metamail))