(rfc2047-charset-to-coding-system): Don't check the coding system which

 mm-charset-to-coding-system returns for a given charset is valid.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8568302..b3447a6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-02-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * rfc2047.el (rfc2047-charset-to-coding-system): Don't check the
+       coding system which mm-charset-to-coding-system returns for a
+       given charset is valid.
+
 2006-02-16  Juanma Barranquero  <lekktu@gmail.com>
 
        * html2text.el (html2text-remove-tag-list):

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