(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 (file)
--- 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))