diff options
| author | Richard M. Stallman <[email protected]> | 2002-05-10 01:02:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-05-10 01:02:26 +0000 |
| commit | de971ad1a174f22c75b3b01276c86d03b3793215 (patch) | |
| tree | 58ef7384bbcd316076eb6eb79a2ab7d99a253478 /lisp | |
| parent | 4dd0c271726eeac8d20decbd9f2dfe23878315cf (diff) | |
(rmail-show-message): Catch error in check-coding-system.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 81da56a6f8..e6dd92671e 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) |