/[emacs]/emacs/lisp/mail/metamail.el
ViewVC logotype

Diff of /emacs/lisp/mail/metamail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by fx, Sun Nov 12 00:22:02 2000 UTC revision 1.14.18.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 111  Its header part is not interpreted at al Line 111  Its header part is not interpreted at al
111        ;; Find Content-Type and Content-Transfer-Encoding from the header.        ;; Find Content-Type and Content-Transfer-Encoding from the header.
112        (save-restriction        (save-restriction
113          (narrow-to-region (point-min) end)          (narrow-to-region (point-min) end)
114          (setq contype          (setq contype
115                (or (mail-fetch-field "Content-Type") "text/plain"))                (or (mail-fetch-field "Content-Type") "text/plain"))
116          (setq encoding          (setq encoding
117                (or (mail-fetch-field "Content-Transfer-Encoding") "7bit")))                (or (mail-fetch-field "Content-Transfer-Encoding") "7bit")))
118        ;; Interpret the body part only.        ;; Interpret the body part only.
119        (let ((metamail-switches          ;Process body part only.        (let ((metamail-switches          ;Process body part only.
# Line 153  redisplayed as output is inserted." Line 153  redisplayed as output is inserted."
153          (buffer-read-only nil)          (buffer-read-only nil)
154          (metafile (make-temp-file "metamail"))          (metafile (make-temp-file "metamail"))
155          (option-environment          (option-environment
156           (list (format "EMACS_VIEW_MODE=%d"           (list (format "EMACS_VIEW_MODE=%d"
157                         (if (numberp viewmode) viewmode 1)))))                         (if (numberp viewmode) viewmode 1)))))
158      (save-excursion      (save-excursion
159        ;; Gee!  Metamail does not ouput to stdout if input comes from        ;; Gee!  Metamail does not ouput to stdout if input comes from

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.14.18.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26