between header and body (to fix problem in Emacs).
(set-buffer gnus-original-article-buffer)
(mime-entity-set-header-start-internal entity (point-min))
(mime-entity-set-body-end-internal entity (point-max))
(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))
(if (re-search-forward "^$" nil t)
(progn
(mime-entity-set-header-end-internal entity (match-end 0))