From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Mar 2004 17:03:51 +0000 (+0000)
Subject: (rmail-convert-to-babyl-format):
X-Git-Tag: ttn-vms-21-2-B4~7360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c25d9847fd8d3f7e631d4dafc64c70e8db009eb4;p=emacs.git

(rmail-convert-to-babyl-format):
Specify t for UNIBYTE when calling mail-unquote-printable-region.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4090749d83e..c890ae6e6a0 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1733,7 +1733,7 @@ It returns t if it got any new messages."
 		   (if quoted-printable-header-field-end
 		       (save-excursion
 			 (unless
-			     (mail-unquote-printable-region header-end (point) nil t)
+			     (mail-unquote-printable-region header-end (point) nil t t)
 			   (message "Malformed MIME quoted-printable message"))
 			 ;; Change "quoted-printable" to "8bit",
 			 ;; to reflect the decoding we just did.
@@ -1880,7 +1880,7 @@ It returns t if it got any new messages."
 		 (if quoted-printable-header-field-end
 		     (save-excursion
 		       (unless
-			   (mail-unquote-printable-region header-end (point) nil t)
+			   (mail-unquote-printable-region header-end (point) nil t t)
 			 
 			 (message "Malformed MIME quoted-printable message"))
 		       ;; Change "quoted-printable" to "8bit",
@@ -1917,7 +1917,10 @@ It returns t if it got any new messages."
 		   (goto-char (point-min))
 		   (while (search-forward "\n\^_" nil t); single char
 		     (replace-match "\n^_")))); 2 chars: "^" and "_"
-	       (or (bolp) (newline)) ; in case we lost the final newline.
+	       ;; This is for malformed messages that don't end in newline.
+	       ;; There shouldn't be any, but some users say occasionally
+	       ;; there are some.
+ 	       (or (bolp) (newline))
 	       (insert ?\^_)
 	       (setq last-coding-system-used nil)
 	       (or rmail-enable-mime