2001-09-27 07:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	From Daiki Ueno  <ueno@unixuser.org>

	* gnus-sum.el (gnus-summary-show-article): The arglist of
	detect-coding-region is incompatible.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe3c795..fd8061c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-27 07:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       From Daiki Ueno  <ueno@unixuser.org>
+
+       * gnus-sum.el (gnus-summary-show-article): The arglist of
+       detect-coding-region is incompatible.
+
 2001-09-26 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
        From Katsuhiro Hermit Endo <hermit@koka-in.org>
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 4ab0498..5aaf6b0 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7821,7 +7821,10 @@ without any article massaging functions being run."
                "View as charset: "
                (save-excursion
                  (set-buffer gnus-article-buffer)
-                 (detect-coding-region (point) (point-max) t)))))
+                 (let ((coding-systems
+                        (detect-coding-region (point) (point-max))))
+                   (or (car-safe coding-systems)
+                       coding-systems))))))
          (gnus-newsgroup-ignored-charsets 'gnus-all))
       (gnus-summary-select-article nil 'force)
       (let ((deps gnus-newsgroup-dependencies)