From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 19 May 2011 23:58:51 +0000 (+0000)
Subject: mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading whitespace in base6... 
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=baa48a2d567525640b6ec7a8d228f60313efc138;p=gnus

mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading whitespace in base64 data lines.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef5250d25..61bfa87c2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading
+	whitespace in base64 data lines.
+
 2011-05-18  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* gnus-registry.el (gnus-registry-user-format-function-M):
diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index 9952f410f..695451ddc 100644
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -197,7 +197,8 @@ If TYPE is `text/plain' CRLF->LF translation may occur."
 	       (while (re-search-forward "^[\t ]*\r?\n" nil t)
 		 (delete-region (match-beginning 0) (match-end 0)))
 	       (goto-char (point-max))
-	       (when (re-search-backward "^[A-Za-z0-9+/]+=*[\t ]*$" nil t)
+	       (when (re-search-backward "^[\t ]*[A-Za-z0-9+/]+=*[\t ]*$"
+					 nil t)
 		 (forward-line))
 	       (point))))
 	   ((memq encoding '(nil 7bit 8bit binary))