Synch with Gnus trunk.

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0b7eaf7ed721883a004aa9a40b1731da2023626c..395cca72a939dcf71da71ef1f7f2349c81831c92 100644 (file)
--- 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 3a2c944ed2f996738194822feb108a343045881c..3626d0bd9043d696c4eec3c8fc66e7811eef9807 100644 (file)
--- 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