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

 decoding article to be saved.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 40eedf2..4b04871 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-sum.el b/lisp/gnus-sum.el
index 3a2c944..3626d0b 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/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