X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-bodies.el;h=695451ddc45aaace585793ed93755d62b2e37635;hb=abc687f25eb2159d5a04eb481b57396158265054;hp=5a70f33d95fa94c218dacad18ac0c0f7da534a56;hpb=ff79efac756f360c9a48b292b4619699fe19d057;p=gnus diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el index 5a70f33d9..695451ddc 100644 --- a/lisp/mm-bodies.el +++ b/lisp/mm-bodies.el @@ -1,7 +1,6 @@ ;;; mm-bodies.el --- Functions for decoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1998-2011 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko @@ -198,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))