* mm-uu.el (mm-uu-dissect): Dissect all parts correctly.

* gnus-art.el (gnus-mime-display-single): Make sure there is an empty line
 between a part and a message part.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 046617a..dc83f6e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-03-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-uu.el (mm-uu-dissect): Dissect all parts correctly.
+
+       * gnus-art.el (gnus-mime-display-single): Make sure there is an
+       empty line between a part and a message part.
+
 2006-03-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * smiley.el: Add more test smileys.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index cd3bd17..edda828 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5125,6 +5125,13 @@ If displaying \"text/html\" is discouraged \(see
        (let ((id (1+ (length gnus-article-mime-handle-alist)))
              beg)
          (push (cons id handle) gnus-article-mime-handle-alist)
+         (when (and display
+                    (equal (mm-handle-media-supertype handle) "message"))
+           (insert-char
+            ?\n
+            (cond ((not (bolp)) 2)
+                  ((or (bobp) (eq (char-before (1- (point))) ?\n)) 0)
+                  (t 1))))
          (when (or (not display)
                    (not (gnus-unbuttonized-mime-type-p type)))
            (gnus-insert-mime-button

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 2877863..85df48b 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -573,7 +573,8 @@ value of `mm-uu-text-plain-type'."
        (t (goto-char (point-max))))
       (setq text-start (point))
       (while (re-search-forward mm-uu-beginning-regexp nil t)
-       (setq start-point (match-beginning 0))
+       (setq start-point (match-beginning 0)
+             entry nil)
        (let ((alist mm-uu-type-alist)
              (beginning-regexp (match-string 0)))
          (while (not entry)