2001-07-30 12:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-mime-save-part-and-strip): Save
	gnus-article-mime-handles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44a5673..475e71c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-30 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-mime-save-part-and-strip): Save
+       gnus-article-mime-handles.
+
 2001-07-29  Simon Josefsson  <jas@extundo.com>
 
        * mail-source.el (top-level): Require message for message-directory.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a2d3328..5c8c9bf 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3318,7 +3318,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
   (interactive)
   (gnus-article-check-buffer)
   (let* ((data (get-text-property (point) 'gnus-data))
-        file param)
+        file param
+        (handles gnus-article-mime-handles))
     (if (mm-multiple-handles gnus-article-mime-handles)
        (error "This function is not implemented"))
     (setq file (and data (mm-save-part data)))
@@ -3349,7 +3350,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                 (mbl mml-buffer-list))
             (setq mml-buffer-list nil)
             (insert-buffer gnus-original-article-buffer)
-            (mime-to-mml gnus-article-mime-handles)
+            (mime-to-mml ',handles)
             (setq gnus-article-mime-handles nil)
             (let ((mbl1 mml-buffer-list))
               (setq mml-buffer-list mbl)