changeset 108567:6c7b3dc7c246

Synch with Gnus trunk. (gnus-summary-save-article): Don't bother to re-fetch article unless decoding article to be saved.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 14 May 2010 07:49:16 +0000
parents dea8b4d40a70 (current diff) b7c1f69ad104 (diff)
children b2ed92d57b33
files
diffstat 2 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Fri May 14 16:30:39 2010 +0900
+++ b/lisp/gnus/ChangeLog	Fri May 14 07:49:16 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)
--- a/lisp/gnus/gnus-sum.el	Fri May 14 16:30:39 2010 +0900
+++ b/lisp/gnus/gnus-sum.el	Fri May 14 07:49:16 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