bug#7165: 24.0.50; rmail error "Invalid base64 data"

[Kenichi Handa]

While reading mails by rmail, I encountered "Invalid base64
data" error, and couldn't delete the message causing that
error.

This bug is very similar to bug#5441.  But unlike
mail-unquote-printable-region, base64-decode-region doesn't
have NOERROR arg and we have to use condition-case.  I
suggest this patch (to emacs-23).

=== modified file 'lisp/mail/rmail.el'
--- lisp/mail/rmail.el  2010-08-20 07:11:35 +0000
+++ lisp/mail/rmail.el  2010-10-06 07:22:53 +0000
@@ -2742,7 +2742,9 @@
                                                 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))

---
Kenichi Handa
handa@m17n.org