2000-11-04 10:11:05 ShengHuo ZHU <zsh@cs.rochester.edu>

	* rfc2231.el (rfc2231-decode-encoded-string): Test mm-multibyte-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14b4056..71f0787 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-04 10:11:05  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * rfc2231.el (rfc2231-decode-encoded-string): Test mm-multibyte-p.
+
 2000-11-04 09:53:42  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nntp.el (nntp-decode-text): Delete bogus status lines.

diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el
index 5c80c9c..bc13517 100644 (file)
--- a/lisp/rfc2231.el
+++ b/lisp/rfc2231.el
@@ -147,7 +147,8 @@ These look like \"us-ascii'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\"."
             (string-to-number (buffer-substring (point) (+ (point) 2)) 16)
           (delete-region (1- (point)) (+ (point) 2)))))
       ;; Encode using the charset, if any.
-      (when (and (> (length elems) 1)
+      (when (and (mm-multibyte-p)
+                (> (length elems) 1)
                 (not (equal (intern (car elems)) 'us-ascii)))
        (mm-decode-coding-region (point-min) (point-max)
                                 (intern (car elems))))