From a03ae20dc626510a7e05d5dd8cb7e853d70f2b49 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 3 Feb 2010 21:10:21 -0800 Subject: [PATCH] * mail/rmail.el (rmail-show-message-1): Handle malformed quoted-printable text. (Bug#5441) --- lisp/ChangeLog | 3 +++ lisp/mail/rmail.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dbd40d088e8..f81a3d16913 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-02-04 Glenn Morris + * 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 --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 1dbfceb315b..a737b99c29e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2727,8 +2727,10 @@ The current mail message becomes the message displayed." (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) -- 2.39.2