Bug: gnus-article-treat-body-boundary, gnus-with-article-headers

[Reiner Steib <4.uce.03.r.s@nurfuerspam.de>]

Hi,

when I set `gnus-treat-body-boundary' to t, the boundary isn't placed
after the headers, but after the first paragraph of the article body.

I don't know whether it's a bug in `gnus-article-treat-body-boundary',
`gnus-with-article-headers', `article-narrow-to-head' or something
else.  When I add "(sit-for 3)" in `gnus-article-treat-body-boundary'
as shown below, I see that the article buffer doesn't contain the
headers (as expected), but the first paragraph of the article.

Any ideas?  (I couldn't locate the code where the gnus-treat-*
functions are called.)

Bye, Reiner.

(defun gnus-article-treat-body-boundary ()
  "Place a boundary line at the end of the headers."
  (interactive)
  (when (and gnus-body-boundary-delimiter
	     (> (length gnus-body-boundary-delimiter) 0))
    (gnus-with-article-headers
      (sit-for 3) ;; <============================================== ADDED
      (goto-char (point-max))
      (let ((start (point)))
	(insert "X-Boundary: ")
	(gnus-add-text-properties start (point) '(invisible t intangible t))
	(insert (let (str)
		  (while (>= (1- (window-width)) (length str))
		    (setq str (concat str gnus-body-boundary-delimiter)))
		  (substring str 0 (1- (window-width))))
		"\n")
	(gnus-put-text-property start (point) 'gnus-decoration 'header)))))
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/