[Emacs-diffs] /srv/bzr/emacs/trunk r104288: mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading whitespace in base64 data lines.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104288
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-20 00:03:51 +0000
message:
  mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading whitespace 
in base64 data lines.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mm-bodies.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-18 22:16:26 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-20 00:03:51 +0000
@@ -1,3 +1,8 @@
+2011-05-19  Katsumi Yamaoka  <address@hidden>
+
+       * mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading
+       whitespace in base64 data lines.
+
 2011-05-18  Teodor Zlatanov  <address@hidden>
 
        * gnus-registry.el (gnus-registry-user-format-function-M):

=== modified file 'lisp/gnus/mm-bodies.el'
--- a/lisp/gnus/mm-bodies.el    2011-01-25 04:08:28 +0000
+++ b/lisp/gnus/mm-bodies.el    2011-05-20 00:03:51 +0000
@@ -197,7 +197,8 @@
               (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))