From d01520798d8b2a442e248f0457d0e5793872e874 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 14 Sep 2000 03:08:29 +0000
Subject: [PATCH] Synch with Gnus.

---
 lisp/ChangeLog     |   11 +++++++++++
 lisp/gnus-sum.el   |    6 ++++--
 lisp/mm-partial.el |    3 +--
 3 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9864d83..95aaf54 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2000-09-13 21:41:25  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-art.el (gnus-article-setup-buffer): Set
+	gnus-article-mime-handles to nil.
+	* gnus-sum.el (gnus-summary-exit): Ditto.
+	(gnus-summary-exit-no-update): Ditto.
+	(gnus-summary-show-article): Ditto.
+	(gnus-summary-save-parts): Use gnus-article-mime-handles if
+	dissected.
+	* mm-partial.el (mm-partial-find-parts): Remove redundancy.
+
 2000-09-13 16:59:33  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus-sum.el (gnus-summary-sort): Sort loose threads too.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 83d8b3d..a86eedd 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9331,10 +9331,12 @@ If REVERSE, save parts that do not match TYPE."
       (gnus-summary-select-article))
     (save-excursion
       (set-buffer gnus-article-buffer)
-      (let ((handles (or (mm-dissect-buffer) (mm-uu-dissect))))
+      (let ((handles (or gnus-article-mime-handles
+			 (mm-dissect-buffer) (mm-uu-dissect))))
 	(when handles
 	  (gnus-summary-save-parts-1 type dir handles reverse)
-	  (mm-destroy-parts handles))))))
+	  (unless gnus-article-mime-handles ;; Don't destroy this case.
+	    (mm-destroy-parts handles)))))))
 
 (defun gnus-summary-save-parts-1 (type dir handle reverse)
   (if (stringp (car handle))
diff --git a/lisp/mm-partial.el b/lisp/mm-partial.el
index 4d60a85..27189c9 100644
--- a/lisp/mm-partial.el
+++ b/lisp/mm-partial.el
@@ -36,7 +36,7 @@
   (let ((headers (save-excursion
 		   (set-buffer gnus-summary-buffer)
 		   gnus-newsgroup-headers))
-	phandles handles  header)
+	phandles header)
     (while (setq header (pop headers))
       (unless (eq (aref header 0) art)
 	(mm-with-unibyte-buffer
@@ -44,7 +44,6 @@
 					    gnus-newsgroup-name)
 	  (when (search-forward id nil t)
 	    (let ((nhandles (mm-dissect-buffer)) nid)
-	      (setq handles gnus-article-mime-handles)
 	      (if (consp (car nhandles))
 		  (mm-destroy-parts nhandles)
 		(setq nid (cdr (assq 'id 
-- 
1.7.10.4