Skip to content

GitLab

Commit 9ac2e4e5 authored by Mark D. Baushke's avatar Mark D. Baushke
Browse files

* mh-mime.el (mh-mime-display, mh-mm-inline-message): Fix use of mm- 

functions for text=flowed. (SF #1273521)
parent 0814ca04
Hide whitespace changes
Inline Side-by-side
Showing with 15 additions and 3 deletions
lisp/mh-e/ChangeLog
View file @ 9ac2e4e5
2006-01-16 Mark D. Baushke <mdb@gnu.org>
* mh-mime.el (mh-mime-display, mh-mm-inline-message): Fix use of
mm- functions for proper text=flowed handling. (SF #1273521)
(Patch contributed by Katsumi Yamaoka <yamaoka@jpl.org>.)
2006-01-15 Bill Wohler <wohler@newt.com>
* mh-e.el (mh-limit-map, mh-help-messages): Change keybinding of
......
lisp/mh-e/mh-mime.el
View file @ 9ac2e4e5
......@@ -921,7 +921,10 @@ parsed and then displayed."
;; If needed dissect the current buffer
(if pre-dissected-handles
(setq handles pre-dissected-handles)
(setq handles (or (mm-dissect-buffer nil) (mm-uu-dissect)))
(if (setq handles (mm-dissect-buffer nil))
(when (fboundp 'mm-uu-dissect-text-parts)
(mm-uu-dissect-text-parts handles))
(setq handles (mm-uu-dissect)))
(setf (mh-mime-handles (mh-buffer-data))
(mm-merge-handles handles
(mh-mime-handles (mh-buffer-data))))
......@@ -1477,8 +1480,11 @@ decoding the same message multiple times."
(mh-mime-display
(or (gethash handle (mh-mime-handles-cache (mh-buffer-data)))
(setf (gethash handle (mh-mime-handles-cache (mh-buffer-data)))
(let ((handles (or (mm-dissect-buffer nil)
(mm-uu-dissect))))
(let ((handles (mm-dissect-buffer nil)))
(if handles
(when (fboundp 'mm-uu-dissect-text-parts)
(mm-uu-dissect-text-parts handles))
(setq handles (mm-uu-dissect)))
(setf (mh-mime-handles (mh-buffer-data))
(mm-merge-handles
handles (mh-mime-handles (mh-buffer-data))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment