# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1072784557 0
# Node ID 5100c8a09d67f423bd2c8449f8ac0277ab40e0cf
# Parent  125ebe493abebc05a48cb721e9afd652e1990ba7
(rmail-convert-to-babyl-format): Fix off-by-one
error in arguments to base64-decode-region.  Remove ^M characters
after decoding base64.

diff -r 125ebe493abe -r 5100c8a09d67 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Dec 30 10:59:36 2003 +0000
+++ b/lisp/mail/rmail.el	Tue Dec 30 11:42:37 2003 +0000
@@ -1836,9 +1836,12 @@
 		       (when
 			   (condition-case nil
 			       (progn
-				 (base64-decode-region header-end (point))
+				 (base64-decode-region (1+ header-end) (point))
 				 t)
 			     (error nil))
+			 (goto-char header-end)
+			 (while (search-forward "\r\n" (point-max) t)
+			   (replace-match "\n"))
 			 ;; Change "base64" to "8bit", to reflect the
 			 ;; decoding we just did.
 			 (goto-char base64-header-field-end)