;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:44 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/metamail.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`metamail.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'metamail nil "Metamail interface for Emacs." :group 'mail :group 'hypermedia :group 'processes) #@25 *Metamail program name. (custom-declare-variable 'metamail-program-name '"metamail" '(#$ . -742) :type 'string :group 'metamail) #@53 *Mailer name set to MM_MAILER environment variable. (custom-declare-variable 'metamail-mailer-name '"emacs" '(#$ . -877) :type 'string :group 'metamail) #@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 '("KEYHEADS=*" "MM_QUIET=1") (#$ . -1037)) #@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. (custom-declare-variable 'metamail-switches ''("-x" "-d" "-z") '(#$ . -1355) :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 (#$ . 1783) 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 %\210)\324=\205JTHd\306\223,\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 rmail-mode major-mode rmail-message-vector rmail-current-message] 7 (#$ . 2252) "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 (#$ . 3098) "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 (#$ . 3575) "r\np"]) (provide 'metamail)