From: Kenichi Handa Date: Thu, 14 Oct 2010 04:23:36 +0000 (+0900) Subject: mail/rmail.el (rmail-show-message-1): Catch an error of base64-decode-region and... X-Git-Tag: emacs-pretest-23.2.90~61 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9650fc61909f4b0b142770b269d1905a41aa672d;p=emacs.git mail/rmail.el (rmail-show-message-1): Catch an error of base64-decode-region and just show an error message (bug#7165). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 793bb4e17e9..f6d3555975e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-10-14 Kenichi Handa + * mail/rmail.el (rmail-show-message-1): Catch an error of + base64-decode-region and just show an error message (bug#7165). + * ps-mule.el (ps-mule-font-spec-list): Delete it. Not used anymore. (ps-mule-begin-job): Fix for the case that only ENCODING is set in diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index fa0b7bef207..3ab87fa21f7 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2742,7 +2742,9 @@ The current mail message becomes the message displayed." nil t 'unibyte) (message "Malformed MIME quoted-printable message"))) ((and (string= character-coding "base64") is-text-message) - (base64-decode-region (point-min) (point-max))) + (condition-case err + (base64-decode-region (point-min) (point-max)) + (error (message "%s" (cdr err))))) ((eq character-coding 'uuencode) (error "uuencoded messages are not supported yet")) (t))