[Emacs-diffs] Changes to emacs/lisp/gnus/rfc2047.el

[Miles Bader]

Index: emacs/lisp/gnus/rfc2047.el
diff -u emacs/lisp/gnus/rfc2047.el:1.23 emacs/lisp/gnus/rfc2047.el:1.24
--- emacs/lisp/gnus/rfc2047.el:1.23     Sat Oct 22 09:02:45 2005
+++ emacs/lisp/gnus/rfc2047.el  Sat Dec 17 21:41:33 2005
@@ -831,11 +831,11 @@
            (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)
+         ((setq cs (mm-coding-system-p cs)))
          ((and charset
                (listp mail-parse-ignored-charsets)
                (memq 'gnus-unknown mail-parse-ignored-charsets))