From a12d8380d7b7a0c4c1a8289c8bf4428bfe0a96bc Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Thu, 27 Sep 2001 11:27:00 +0000 Subject: [PATCH] 2001-09-27 07:00:00 ShengHuo ZHU From Daiki Ueno * gnus-sum.el (gnus-summary-show-article): The arglist of detect-coding-region is incompatible. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-sum.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fe3c79559..fd8061c7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-09-27 07:00:00 ShengHuo ZHU + From Daiki Ueno + + * gnus-sum.el (gnus-summary-show-article): The arglist of + detect-coding-region is incompatible. + 2001-09-26 18:00:00 ShengHuo ZHU From Katsuhiro Hermit Endo diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 4ab0498e0..5aaf6b093 100644 --- 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) -- 2.25.1