[Emacs-diffs] /srv/bzr/emacs/trunk r99443: * mail/rmail.el (rmail-show-message-1): Handle malformed

[Glenn Morris]

------------------------------------------------------------
revno: 99443
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-02-03 21:10:21 -0800
message:
  * mail/rmail.el (rmail-show-message-1): Handle malformed
  quoted-printable text.  (Bug#5441)
modified:
  lisp/ChangeLog
  lisp/mail/rmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-04 05:05:37 +0000
+++ b/lisp/ChangeLog    2010-02-04 05:10:21 +0000
@@ -1,5 +1,8 @@
 2010-02-04  Glenn Morris  <address@hidden>
 
+       * mail/rmail.el (rmail-show-message-1): Handle malformed
+       quoted-printable text.  (Bug#5441)
+
        * mail/mail-utils.el (mail-unquote-printable-region): Doc fix.
 
        * simple.el (visual-line-mode): Capitalize lighter.

=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el        2010-01-23 12:38:02 +0000
+++ b/lisp/mail/rmail.el        2010-02-04 05:10:21 +0000
@@ -2727,8 +2727,10 @@
            (insert-buffer-substring mbox-buf body-start end)
            (cond
             ((string= character-coding "quoted-printable")
-             (mail-unquote-printable-region (point-min) (point-max)
-                                             nil nil 'unibyte))
+             ;; See bug#5441.
+             (or (mail-unquote-printable-region (point-min) (point-max)
+                                                nil t 'unibyte)
+                 (message "Malformed MIME quoted-printable message")))
             ((and (string= character-coding "base64") is-text-message)
              (base64-decode-region (point-min) (point-max)))
             ((eq character-coding 'uuencode)