X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-util.el;h=4012a7f5cdd8798036ea32f628ddb6135f96ac4a;hb=54953e859329102788f57e454326a722b089c0f4;hp=99766e6446fb636d11b681bc94e9f19aac03d5b2;hpb=477d2d1e18caaf92a73dbbcbfb1e87d3c104a10a;p=gnus

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 99766e644..4012a7f5c 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -1604,7 +1604,7 @@ gzip, bzip2, etc. are allowed."
 	(insert decomp)
 	(setq filename (file-name-sans-extension filename)))
       (goto-char (point-min))
-      (prog1
+      (unwind-protect
 	  (cond
 	   ((boundp 'set-auto-coding-function) ;; Emacs
 	    (if filename