From: yamaoka Date: Thu, 8 Jan 2004 00:18:19 +0000 (+0000) Subject: Synch to No Gnus 200401080012. X-Git-Tag: t-gnus-6_17_4-quimby-~1150 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=591c896f505eb1fc21463d0cb89c2f6dcf277741;p=elisp%2Fgnus.git- Synch to No Gnus 200401080012. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e25fc3..f606aaa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-01-08 Jesper Harder + + * gnus-art.el (gnus-mime-view-all-parts) + (gnus-article-part-wrapper, gnus-article-view-part): Use + with-current-buffer. + 2004-01-07 Teodor Zlatanov * spam.el (spam-disable-spam-split-during-ham-respool) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index b5419f7..3868945 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4298,8 +4298,7 @@ General format specifiers can also be used. See Info node (defun gnus-mime-view-all-parts (&optional handles) "View all the MIME parts." (interactive) - (save-current-buffer - (set-buffer gnus-article-buffer) + (with-current-buffer gnus-article-buffer (let ((handles (or handles gnus-article-mime-handles)) (mail-parse-charset gnus-newsgroup-charset) (mail-parse-ignored-charsets @@ -4697,8 +4696,7 @@ If no internal viewer is available, use an external viewer." (funcall (cdr action-pair))))) (defun gnus-article-part-wrapper (n function) - (save-current-buffer - (set-buffer gnus-article-buffer) + (with-current-buffer gnus-article-buffer (when (> n (length gnus-article-mime-handle-alist)) (error "No such part")) (gnus-article-goto-part n) @@ -4764,8 +4762,7 @@ N is the numerical prefix." (defun gnus-article-view-part (&optional n) "View MIME part N, which is the numerical prefix." (interactive "P") - (save-current-buffer - (set-buffer gnus-article-buffer) + (with-current-buffer gnus-article-buffer (or (numberp n) (setq n (gnus-article-mime-match-handle-first gnus-article-mime-match-handle-function))) (when (> n (length gnus-article-mime-handle-alist))