mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

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

Browse Source 
functions for text=flowed. (SF #1273521)
This commit is contained in:
Mark D. Baushke 2006-01-16 19:42:53 +00:00
parent 0814ca04ae
commit 9ac2e4e523
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mh-e/ChangeLog
View File

@ -1,3 +1,9 @@
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

12
lisp/mh-e/mh-mime.el
View File

@ -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))))