# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1265260221 28800
# Node ID ad4a4794a3d7a7632c69cb94e5d3536311321f5e
# Parent  da4ec7ca387c907bbbb95756d92499fba553fd8c
* mail/rmail.el (rmail-show-message-1): Handle malformed
quoted-printable text.  (Bug#5441)

diff -r da4ec7ca387c -r ad4a4794a3d7 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 03 21:05:37 2010 -0800
+++ b/lisp/ChangeLog	Wed Feb 03 21:10:21 2010 -0800
@@ -1,5 +1,8 @@
 2010-02-04  Glenn Morris  <rgm@gnu.org>
 
+	* 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.
diff -r da4ec7ca387c -r ad4a4794a3d7 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Feb 03 21:05:37 2010 -0800
+++ b/lisp/mail/rmail.el	Wed Feb 03 21:10:21 2010 -0800
@@ -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)