From: Mark D. Baushke <mdb@gnu.org>
Date: Mon, 16 Jan 2006 19:42:53 +0000 (+0000)
Subject: * mh-mime.el (mh-mime-display, mh-mm-inline-message): Fix use of mm-
X-Git-Tag: emacs-pretest-22.0.90~4733
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ac2e4e5236f040aa935860d5816da809bbd19e9;p=emacs.git

* mh-mime.el (mh-mime-display, mh-mm-inline-message): Fix use of mm-
functions for text=flowed. (SF #1273521)
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 23a0a2041a5..8ecaf76b5ae 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -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
diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index 0f2396d1804..f2eadd878b0 100644
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -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))))