From: yamaoka <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/cgi-bin/gitweb.cgi?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  <harder@ifa.au.dk>
+
+	* 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  <tzz@lifelogs.com>
 
 	* 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))