(rfc2047-charset-to-coding-system): Recognize us-ascii as a MIME charset.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b01520..a2c024f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-12-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * rfc2047.el (rfc2047-charset-to-coding-system): Recognize
+       us-ascii as a MIME charset.
+
        * mm-bodies.el (mm-decode-content-transfer-encoding): Protect
        against the case where the 2nd arg TYPE is nil.
 

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index d9652da..fe0ec46 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -802,11 +802,11 @@ If your Emacs implementation can't decode CHARSET, return nil."
            (memq 'gnus-all mail-parse-ignored-charsets)
            (memq charset mail-parse-ignored-charsets))
     (setq charset mail-parse-charset))
-  (let ((cs (mm-coding-system-p (mm-charset-to-coding-system charset))))
+  (let ((cs (mm-charset-to-coding-system charset)))
     (cond ((eq cs 'ascii)
           (setq cs (or (mm-charset-to-coding-system mail-parse-charset)
                        'raw-text)))
-         (cs)
+         ((mm-coding-system-p cs))
          ((and charset
                (listp mail-parse-ignored-charsets)
                (memq 'gnus-unknown mail-parse-ignored-charsets))