X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=e7e40983255f63247420b0d3f7c53c47df663fba;hb=ca736d959c96aaa979f46d458340582e43dc735b;hp=df629354ad8b734eb1989d20a5d58f27d2dc9e6e;hpb=3de0177d63a2a36a513f6ae804c1cbbf66e67855;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index df62935..e7e4098 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3697,7 +3697,8 @@ value of the variable `gnus-show-mime' is non-nil."
   (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)))
@@ -3728,7 +3729,7 @@ value of the variable `gnus-show-mime' is non-nil."
 		(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)