diff options
Diffstat (limited to 'lisp/mail/metamail.el')
| -rw-r--r-- | lisp/mail/metamail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index 9c0b806bfca..7cfc4312a79 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1993, 1996 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Id: metamail.el,v 1.13 1999/10/15 15:45:02 monnier Exp $ +;; Version: $Id: metamail.el,v 1.14 2000/11/12 00:22:02 fx Exp $ ;; Keywords: mail, news, mime, multimedia ;; This file is part of GNU Emacs. @@ -111,9 +111,9 @@ Its header part is not interpreted at all." ;; 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. @@ -153,7 +153,7 @@ redisplayed as output is inserted." (buffer-read-only nil) (metafile (make-temp-file "metamail")) (option-environment - (list (format "EMACS_VIEW_MODE=%d" + (list (format "EMACS_VIEW_MODE=%d" (if (numberp viewmode) viewmode 1))))) (save-excursion ;; Gee! Metamail does not ouput to stdout if input comes from |