From de971ad1a174f22c75b3b01276c86d03b3793215 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 10 May 2002 01:02:26 +0000 Subject: [PATCH] (rmail-show-message): Catch error in check-coding-system. --- lisp/mail/rmail.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 81da56a6f82..e6dd92671e1 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2391,8 +2391,12 @@ If summary buffer is currently displayed, update current message there also." (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) -- 2.39.5