From: morioka <morioka>
Date: Wed, 4 Nov 1998 06:59:16 +0000 (+0000)
Subject: (entity-buffer): Must move to (point-min) before search boundary
X-Git-Tag: chao-gnus-6_12_3~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b8f9c6dc6156cbe276afbe9a9d881a3945aa1219;p=elisp%2Fgnus.git-

(entity-buffer): Must move to (point-min) before search boundary
between header and body (to fix problem in Emacs).
---

diff --git a/lisp/mmgnus.el b/lisp/mmgnus.el
index 489065d..a2f5d2c 100644
--- a/lisp/mmgnus.el
+++ b/lisp/mmgnus.el
@@ -36,6 +36,7 @@
     (set-buffer gnus-original-article-buffer)
     (mime-entity-set-header-start-internal entity (point-min))
     (mime-entity-set-body-end-internal entity (point-max))
+    (goto-char (point-min))
     (if (re-search-forward "^$" nil t)
 	(progn
 	  (mime-entity-set-header-end-internal entity (match-end 0))