En/disable multibyte in article buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97372be..95077e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-04 10:31:24  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-show-article): En/disable multibyte.
+
 2000-05-03  Dave Love  <fx@gnu.org>
 
        * gnus-ems.el (gnus-article-xface-ring-internal)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7d239f5..27bcd68 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7187,8 +7187,16 @@ without any article massaging functions being run."
           (or (cdr (assq arg gnus-summary-show-article-charset-alist))
               (read-coding-system "Charset: ")))
          (gnus-newsgroup-ignored-charsets 'gnus-all))
+      (when (gnus-buffer-live-p gnus-article-buffer)
+       (save-excursion
+         (set-buffer gnus-article-buffer)
+         (mm-enable-multibyte)))
       (gnus-summary-select-article nil 'force)))
    ((not arg)
+    (when (gnus-buffer-live-p gnus-article-buffer)
+      (save-excursion
+       (set-buffer gnus-article-buffer)
+       (mm-enable-multibyte)))
     ;; Select the article the normal way.
     (gnus-summary-select-article nil 'force))
    (t
@@ -7207,7 +7215,11 @@ without any article massaging functions being run."
        (save-excursion
          (set-buffer gnus-article-buffer)
          (mm-destroy-parts gnus-article-mime-handles)))
-      (gnus-summary-select-article nil 'force))))
+      (gnus-summary-select-article nil 'force)
+      (when (gnus-buffer-live-p gnus-article-buffer)
+       (save-excursion
+         (set-buffer gnus-article-buffer)
+         (mm-disable-multibyte))))))
   (gnus-summary-goto-subject gnus-current-article)
   (gnus-summary-position-point))