;;; metamail.el --- Metamail interface for GNU Emacs
-;; Copyright (C) 1993 Masanobu UMEDA
+;; Copyright (C) 1993, 1996 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
-;; Version: $Header: /home/gd/gnu/emacs/19.0/lisp/RCS/metamail.el,v 1.2 1996/01/05 00:07:09 kwzh Exp erik $
+;; Version: $Id: metamail.el,v 1.15 2003/02/04 13:14:00 lektu Exp $
;; Keywords: mail, news, mime, multimedia
;; This file is part of GNU Emacs.
;;; Commentary:
-;; LCD Archive Entry:
-;; metamail|Masanobu UMEDA|umerin@mse.kyutech.ac.jp|
-;; Metamail interface for GNU Emacs|
-;; $Date: 1996/01/05 00:07:09 $|$Revision: 1.2 $|~/misc/metamail.el.Z|
-
-;; Note: Metamail does not have all options which are compatible with
+;; Note: Metamail does not have all the options which are compatible with
;; the environment variables. For that reason, metamail.el has to
;; hack the environment variables. In addition, there is no way to
;; display all header fields without extra informative body messages
-;; which is suppressed by "-q" option.
+;; which are suppressed by the "-q" option.
;; The idea of using metamail to process MIME messages is from
;; gnus-mime.el by Spike <Spike@world.std.com>.
;;; Code:
-(defvar metamail-program-name "metamail"
- "*Metamail program name.")
+(defgroup metamail nil
+ "Metamail interface for Emacs."
+ :group 'mail
+ :group 'hypermedia
+ :group 'processes)
+
+(defcustom metamail-program-name "metamail"
+ "*Metamail program name."
+ :type 'string
+ :group 'metamail)
+
+(defcustom metamail-mailer-name "emacs"
+ "*Mailer name set to MM_MAILER environment variable."
+ :type 'string
+ :group 'metamail)
-(defvar metamail-environment '("KEYHEADS=*")
+(defvar metamail-environment '("KEYHEADS=*" "MM_QUIET=1")
"*Environment variables passed to `metamail'.
-It must ba a list of strings that have the format ENVVARNAME=VALUE.")
+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-switches '("-m" "emacs" "-x" "-d" "-z")
+(defcustom metamail-switches '("-x" "-d" "-z")
"*Switches for `metamail' program.
--z is required to remove zap file.")
+`-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."
+ :type '(repeat (string :tag "Switch"))
+ :group 'metamail)
+
+;;;###autoload
+(defun metamail-interpret-header ()
+ "Interpret a header part of a MIME message in current buffer.
+Its body part is not interpreted at all."
+ (interactive)
+ (save-excursion
+ (let* ((buffer-read-only nil)
+ (metamail-switches ;Inhibit processing an empty body.
+ (append metamail-switches '("-c" "text/plain" "-E" "7bit")))
+ (end (progn
+ (goto-char (point-min))
+ (search-forward "\n\n" nil 'move)
+ ;; An extra newline is inserted by metamail if there
+ ;; is no body part. So, insert a dummy body by
+ ;; itself.
+ (insert "\n")
+ (point))))
+ (metamail-region (point-min) end nil nil 'nodisplay)
+ ;; Remove an extra newline inserted by myself.
+ (goto-char (point-min))
+ (if (search-forward "\n\n\n" nil t)
+ (delete-char -1))
+ )))
-(defun metamail-buffer (&optional buffer nodisplay)
+;;;###autoload
+(defun metamail-interpret-body (&optional viewmode nodisplay)
+ "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."
+ (interactive "p")
+ (save-excursion
+ (let ((contype nil)
+ (encoding nil)
+ (end (progn
+ (goto-char (point-min))
+ (search-forward "\n\n" nil t)
+ (point))))
+ ;; Find Content-Type and Content-Transfer-Encoding from the header.
+ (save-restriction
+ (narrow-to-region (point-min) end)
+ (setq contype
+ (or (mail-fetch-field "Content-Type") "text/plain"))
+ (setq encoding
+ (or (mail-fetch-field "Content-Transfer-Encoding") "7bit")))
+ ;; Interpret the body part only.
+ (let ((metamail-switches ;Process body part only.
+ (append metamail-switches
+ (list "-b" "-c" contype "-E" encoding))))
+ (metamail-region end (point-max) viewmode nil nodisplay))
+ ;; Mode specific hack.
+ (cond ((eq major-mode 'rmail-mode)
+ ;; Adjust the marker of this message if in Rmail mode buffer.
+ (set-marker (aref rmail-message-vector (1+ rmail-current-message))
+ (point-max))))
+ )))
+
+;;;###autoload
+(defun metamail-buffer (&optional viewmode buffer nodisplay)
"Process current buffer through `metamail'.
-Optional 1st argument BUFFER specifies a buffer to be filled (nil
+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 2nd argument NODISPLAY non-nil means buffer is not
+Optional argument NODISPLAY non-nil means buffer is not
redisplayed as output is inserted."
- (interactive)
- (metamail-region (point-min) (point-max) buffer nodisplay))
+ (interactive "p")
+ (metamail-region (point-min) (point-max) viewmode buffer nodisplay))
-(defun metamail-region (beg end &optional buffer nodisplay)
+;;;###autoload
+(defun metamail-region (beg end &optional viewmode buffer nodisplay)
"Process current region through 'metamail'.
-Optional 1st argument BUFFER specifies a buffer to be filled (nil
+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 2nd argument NODISPLAY non-nil means buffer is not
+Optional argument NODISPLAY non-nil means buffer is not
redisplayed as output is inserted."
- (interactive "r")
+ (interactive "r\np")
(let ((curbuf (current-buffer))
(buffer-read-only nil)
- (metafile (make-temp-name "/tmp/metamail")))
+ (metafile (make-temp-file "metamail"))
+ (option-environment
+ (list (format "EMACS_VIEW_MODE=%d"
+ (if (numberp viewmode) viewmode 1)))))
(save-excursion
- ;; Gee! Metamail does not output to stdout if input comes from
+ ;; Gee! Metamail does not ouput to stdout if input comes from
;; stdin.
- (write-region beg end metafile nil 'nomessage)
+ (let ((selective-display nil)) ;Disable ^M to nl translation.
+ (write-region beg end metafile nil 'nomessage))
(if buffer
(set-buffer buffer))
(setq buffer-read-only nil)
;; all header fields. Metamail should have an optional argument
;; to pass such information directly.
(let ((process-environment
- (append metamail-environment process-environment)))
+ (append process-environment
+ metamail-environment option-environment))
+ (coding-system-for-read 'undecided))
(apply (function call-process)
metamail-program-name
nil
t ;Output to current buffer
(not nodisplay) ;Force redisplay
- (append metamail-switches (list metafile))))
+ (append metamail-switches
+ (list "-m" (or metamail-mailer-name "emacs"))
+ (list metafile))))
;; `metamail' may not delete the temporary file!
(condition-case error
(delete-file metafile)
(error nil))
)))
-;(defun metamail-region (beg end &optional buffer)
-; "Process current region through 'metamail'.
-;Optional argument BUFFER specifies a buffer to be filled (nil means current)."
-; (interactive "r")
-; (let ((curbuf (current-buffer))
-; (buffer-read-only nil)
-; (metafile (make-temp-name "/tmp/metamail")))
-; (save-excursion
-; (write-region (point-min) (point-max) metafile nil 'nomessage)
-; (if (eq curbuf
-; (if buffer (get-buffer buffer) (current-buffer)))
-; (delete-region (point-min) (point-max)))
-; (apply (function call-process)
-; metamail-program-name
-; nil
-; (or buffer t) ;BUFFER or current buffer
-; nil ;don't redisplay
-; (append metamail-switches (list metafile)))
-; )))
-
(provide 'metamail)
+;;; arch-tag: 52c0cb6f-d800-4776-9789-f0275cb5490e
;;; metamail.el ends here
HCoop / bpt / emacs.git / blobdiff