(gnus-summary-show-article): Use with-current-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2728f62..cb2bfdd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-06  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-sum.el (gnus-summary-show-article): Use with-current-buffer.
+
 2004-10-05  Jesper Harder  <harder@ifa.au.dk>
 
        * nnsoup.el (nnsoup-read-active-file): Use dolist, mapc or last

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 334b08e..4b13eac 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8737,8 +8737,7 @@ strokes are `C-u g'."
           (or (cdr (assq arg gnus-summary-show-article-charset-alist))
               (mm-read-coding-system
                "View as charset: " ;; actually it is coding system.
-               (save-excursion
-                 (set-buffer gnus-article-buffer)
+               (with-current-buffer gnus-article-buffer
                  (mm-detect-coding-region (point) (point-max))))))
          (gnus-newsgroup-ignored-charsets 'gnus-all))
       (gnus-summary-select-article nil 'force)