# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1078419831 0
# Node ID 3d87267bf32dd035171393c1e2f88d6a5b10421c
# Parent  94db0f6330b3b045f25984a1beb69e805a71d6c1
(rmail-convert-to-babyl-format):
Specify t for UNIBYTE when calling mail-unquote-printable-region.

diff -r 94db0f6330b3 -r 3d87267bf32d lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Mar 04 17:02:13 2004 +0000
+++ b/lisp/mail/rmail.el	Thu Mar 04 17:03:51 2004 +0000
@@ -1733,7 +1733,7 @@
 		   (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 @@
 		 (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 @@
 		   (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