# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1273823301 0
# Node ID b7c1f69ad104a8386c90676ca15187203a63819c
# Parent  e53bb6f016b343393c21cbc832f2c4a8cb4160ed
Synch with Gnus trunk.
(gnus-summary-save-article): Don't bother to re-fetch article unless
 decoding article to be saved.

diff -r e53bb6f016b3 -r b7c1f69ad104 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri May 14 07:46:03 2010 +0000
+++ b/lisp/gnus/ChangeLog	Fri May 14 07:48:21 2010 +0000
@@ -1,3 +1,8 @@
+2010-05-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-sum.el (gnus-summary-save-article): Don't bother to re-fetch
+	article unless decoding article to be saved.
+
 2010-05-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mml1991.el (mml1991-mailcrypt-encrypt, mml1991-gpg-encrypt)
diff -r e53bb6f016b3 -r b7c1f69ad104 lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Fri May 14 07:46:03 2010 +0000
+++ b/lisp/gnus/gnus-sum.el	Fri May 14 07:48:21 2010 +0000
@@ -11664,12 +11664,8 @@
 	    (gnus-message 1 "Article %d is unsaveable" article))
 	;; This is a real article.
 	(save-window-excursion
-	  (let ((gnus-display-mime-function (when decode
-					      gnus-display-mime-function))
-		(gnus-article-prepare-hook (when decode
-					     gnus-article-prepare-hook)))
-	    (gnus-summary-select-article t t nil article)
-	    (gnus-summary-goto-subject article)))
+	  (gnus-summary-select-article decode decode nil article)
+	  (gnus-summary-goto-subject article))
 	(with-current-buffer save-buffer
 	  (erase-buffer)
 	  (insert-buffer-substring (if decode