(rfc2047-decode): Treat the ascii coding-system as raw-text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9b0467..61e34f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * dgnushack.el: Autoload customize-set-variable for XEmacs.
 
        * rfc2047.el (rfc2047-encodable-p): Don't move point.
+       (rfc2047-decode): Treat the ascii coding-system as raw-text.
 
 2004-05-25  Teodor Zlatanov  <tzz@lifelogs.com>
 

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 34683c3..c063c80 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -810,9 +810,8 @@ If your Emacs implementation can't decode CHARSET, return nil."
             (memq 'gnus-unknown mail-parse-ignored-charsets))
        (setq cs (mm-charset-to-coding-system mail-parse-charset)))
     (when cs
-      (when (and (eq cs 'ascii)
-                mail-parse-charset)
-       (setq cs mail-parse-charset))
+      (when (eq cs 'ascii)
+       (setq cs (or mail-parse-charset 'raw-text)))
       (mm-decode-coding-string
        (cond
        ((char-equal ?B encoding)