From d567e92ffa261e0cc01b7644d2c3a7e2241a579d Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 14 May 2010 07:48:21 +0000 Subject: [PATCH] Synch with Gnus trunk. (gnus-summary-save-article): Don't bother to re-fetch article unless decoding article to be saved. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-sum.el | 8 ++------ 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 + + * 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 * 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 -- 2.39.5