Synch with Gnus trunk.

(gnus-summary-save-article): Don't bother to re-fetch article unless
 decoding article to be saved.

2 files changed, 7 insertions, 6 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0b7eaf7ed72..395cca72a93 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 3a2c944ed2f..3626d0bd904 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -11664,12 +11664,8 @@ will not be marked as saved."
             (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