X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Frfc2047.el;h=44c9395eb35d08a01641bf4ce6c3b4a281f59ba1;hb=c90b4759d05c1fd2e7934cd4a0a1eea37f33fe86;hp=fe0ec46478f80ff615ecef7083beaf08d953c11e;hpb=749c9a2ad425156109d43c6e29d85db686427563;p=gnus

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index fe0ec4647..44c9395eb 100644
--- 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)))
-	  ((mm-coding-system-p cs))
+	  ((setq cs (mm-coding-system-p cs)))
 	  ((and charset
 		(listp mail-parse-ignored-charsets)
 		(memq 'gnus-unknown mail-parse-ignored-charsets))