X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Frfc2047.el;h=559c2a867a171f25b7993c5f9b9b8d9a501ed412;hb=779dd81d09cb6fa76e6a0fd64147099b7cf0119d;hp=130af04a55c569c23250aae558b8bfffc06ebc70;hpb=f364f80c0429d2cd8d0cafb70692773dbeeb4452;p=elisp%2Fgnus.git-

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 130af04..559c2a8 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))