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. |
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 |