# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1020992546 0
# Node ID 4c51a687cf5c069f63d0f978a8909a531f264014
# Parent  4383b69f181b962acc53d0641c4d38581e96f08a
(rmail-show-message): Catch error in check-coding-system.

diff -r 4383b69f181b -r 4c51a687cf5c lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri May 10 01:01:30 2002 +0000
+++ b/lisp/mail/rmail.el	Fri May 10 01:02:26 2002 +0000
@@ -2391,8 +2391,12 @@
 	      (goto-char (point-min))
 	      (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
 		  (let ((coding-system (intern (match-string 1))))
-		    (check-coding-system coding-system)
-		    (setq buffer-file-coding-system coding-system))
+		    (condition-case nil
+			(progn
+			  (check-coding-system coding-system)
+			  (setq buffer-file-coding-system coding-system))
+		      (error 
+		       (setq buffer-file-coding-system nil))))
 		(setq buffer-file-coding-system nil)))))
 	;; Clear the "unseen" attribute when we show a message.
 	(rmail-set-attribute "unseen" nil)