Bug: multipart in mixed part

Bug: multipart in mixed part

[Shenghuo ZHU]

When a multipart is included in a multipart/mixed, pgnus 0.36 can not
display and destroy the mime parts.

A patch is attached.

Another bug still exists. When a multipart/alternative is the second
part of a multipart/mixed, gnus-mime-display-alternative will delete
the first part. 

-- 
Shenghuo

:- cut -------------------------------------------------------------
--- ChangeLog	1998/10/21 03:18:45	1.1
+++ ChangeLog	1998/10/21 04:07:09
@@ -1,3 +1,14 @@
+Tue Oct 20 23:37:43 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-art.el (gnus-mime-display-mixed): Multipart in
+	mixed part.
+
+Tue Oct 20 23:36:43 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-sum.el (gnus-summary-exit): Use mm-destroy-parts.
+	
+	* gnus-sum.el (gnus-summary-exit-no-update): Ditto.
+
 Tue Oct 20 16:22:51 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
 	* mm-uu.el (mm-uu-dissect): Create pseudo multipart head.

--- gnus-art.el	1998/10/21 03:17:46	1.1
+++ gnus-art.el	1998/10/21 04:09:12
@@ -2377,7 +2377,11 @@
 (defun gnus-mime-display-mixed (handles)
   (let (handle)
     (while (setq handle (pop handles))
-      (gnus-mime-display-single handle))))
+      (if (stringp (car handle))
+	  (if (equal (car handle) "multipart/alternative")
+	      (gnus-mime-display-alternative (cdr handle))
+	    (gnus-mime-display-mixed (cdr handle)))
+	(gnus-mime-display-single handle)))))
 
 (defun gnus-mime-display-single (handle)
   (let (display)

--- gnus-sum.el	1998/10/21 03:35:25	1.1
+++ gnus-sum.el	1998/10/21 03:42:57
@@ -5125,7 +5125,7 @@
       (when (gnus-buffer-live-p gnus-article-buffer)
 	(save-excursion
 	  (set-buffer gnus-article-buffer)
-	  (mapcar 'mm-destroy-part gnus-article-mime-handles)))
+	  (mm-destroy-parts gnus-article-mime-handles)))
       ;; If we have several article buffers, we kill them at exit.
       (unless gnus-single-article-buffer
 	(gnus-kill-buffer gnus-article-buffer)
@@ -5174,7 +5174,7 @@
       (when (gnus-buffer-live-p gnus-article-buffer)
 	(save-excursion
 	  (set-buffer gnus-article-buffer)
-	  (mapcar 'mm-destroy-part gnus-article-mime-handles)))
+	  (mm-destroy-parts gnus-article-mime-handles)))
       ;; If we have several article buffers, we kill them at exit.
       (unless gnus-single-article-buffer
 	(gnus-kill-buffer gnus-article-buffer)