;; Copyright (C) 1993, 1996 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
-;; Version: $Id: metamail.el,v 1.8 1997/07/25 05:59:39 rms Exp rms $
+;; 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:
-;; The latest version will be at:
-;; ftp://ftp.kyutech.ac.jp/pub/MultiMedia/mime/emacs-mime-tools.shar
-
-;; Note: Metamail does not have all options which is compatible with
-;; the environment variables. For that reason, matamail.el have to
+;; 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 are suppressed by "-q" option.
-
-;; The following definition is what I'm using with GNUS 4:
-;;(setq gnus-show-mime-method
-;; (function
-;; (lambda ()
-;; (metamail-interpret-header)
-;; (let ((metamail-switches ;Suppress header fields in a body.
-;; (append metamail-switches '("-q"))))
-;; (metamail-interpret-body)))))
+;; 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>.
;; Find Content-Type and Content-Transfer-Encoding from the header.
(save-restriction
(narrow-to-region (point-min) end)
- (setq contype
+ (setq contype
(or (mail-fetch-field "Content-Type") "text/plain"))
- (setq encoding
+ (setq encoding
(or (mail-fetch-field "Content-Transfer-Encoding") "7bit")))
;; Interpret the body part only.
(let ((metamail-switches ;Process body part only.
(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 (concat "EMACS_VIEW_MODE="
+ (list (format "EMACS_VIEW_MODE=%d"
(if (numberp viewmode) viewmode 1)))))
(save-excursion
;; Gee! Metamail does not ouput to stdout if input comes from
(provide 'metamail)
+;;; arch-tag: 52c0cb6f-d800-4776-9789-f0275cb5490e
;;; metamail.el ends here