mail/rmail.el (rmail-show-message-1): Catch an error of base64-decode-region...

mail/rmail.el (rmail-show-message-1): Catch an error of base64-decode-region and just show an error message (bug#7165).

lisp/ChangeLog

 2010-10-14  Kenichi Handa  <handa@m17n.org>
 
+	* 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

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))