(mm-set-buffer-multibyte): New function.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7d86ddc..e31324b 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2008-03-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * mm-util.el (mm-set-buffer-multibyte): New function.
+
        * gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p):
        Prefer fboundp to functionp so it works with macros as well.
 

diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index 8e625c9..510a8c9 100644 (file)
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -105,6 +105,7 @@
      (multibyte-string-p . ignore)
      (insert-byte . insert-char)
      (multibyte-char-to-unibyte . identity)
+     (set-buffer-multibyte . ignore)
      (special-display-p
       . (lambda (buffer-name)
          "Returns non-nil if a buffer named BUFFER-NAME gets a special frame."