Mercurial > emacs
diff lisp/mail/rmail.el @ 45218:4c51a687cf5c
(rmail-show-message): Catch error in check-coding-system.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 10 May 2002 01:02:26 +0000 |
parents | 30db00c75dbf |
children | 68f66e6dd200 |
line wrap: on
line diff
--- 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)