X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-bodies.el;h=5d4e132dbedf48be976456a87e9e9b053a2147df;hb=4d7daccb67849f981443aa0c6214baab34c38dd3;hp=ebadc4d46361493f4c17dc7be25604d86342d065;hpb=5a0e36bb41c19e9cff675d61c407727d833a40ee;p=elisp%2Fgnus.git-

diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index ebadc4d..5d4e132 100644
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -276,8 +276,11 @@ use the supplied charset unconditionally."
 	      (mm-decode-coding-region (point-min) (point-max)
 					      coding-system)
 	    (mm-decode-coding-region-safely (point-min) (point-max)
-					    coding-system))))
-      (setq buffer-file-coding-system last-coding-system-used))))
+					    coding-system)))
+	(setq buffer-file-coding-system
+	      (if (boundp 'last-coding-system-used)
+		  last-coding-system-used
+		coding-system))))))
 
 (defun mm-decode-coding-region-safely (start end coding-system)
   "Decode region between START and END with CODING-SYSTEM.