Re: Gnus 5.10.6 problems with PGP/MIME (test cases)

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <b4mzmlwh8eg.fsf@jpl.org> Katsumi Yamaoka wrote:

> Bingo!  I found mh-mime.el uses the mm- functions directly and
> realized the mh-mime-display functions should be modified as
> follows:

A similar change seems to be required to mh-mm-inline-message as
well.  Here's a new patch:

--8<---------------cut here---------------start------------->8---
--- mh-mime.el~	2006-01-15 21:49:23 +0000
+++ mh-mime.el	2006-01-16 08:58:50 +0000
@@ -921,7 +921,10 @@
             ;; 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 @@
         (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))))
--8<---------------cut here---------------end--------------->8---