Re: gnus-summary-toggle-header fails for body-less, boundary-less articles

[ShengHuo ZHU <zsh@cs.rochester.edu>]

[-- Attachment #1: Type: text/plain, Size: 854 bytes --]

prj@po.cwru.edu (Paul Jarc) writes:

> For an article which has no body and no empty line marking the end of
> the header, gnus-summary-toggle-header fails in two ways.  This line
> finds the character position before the end of the buffer, instead of
> the one at the end:
> 	  (setq e (1- (or (search-forward "\n\n" nil t) (point-max))))
> This is easy enough to fix:
>           (setq e (search-forward "\n\n" nil t)
>                 e (if e (1- e) (point-max)))
> But it also fails to delete the header, so the added header:
> 	(when (search-forward "\n\n" nil t)
> 	  (delete-region (point-min) (1- (point))))
> This doesn't try to do anything for the no-boundary case, so I'm
> wondering if that's intentional.  Anyone know?  Or should it just
> delete all the way to (point-max) in this case?

Does the attached patch fix the problem?

ShengHuo


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-sum.el.diff --]
[-- Type: text/x-patch, Size: 743 bytes --]

--- gnus-sum.el.~6.185.~	Mon Feb 18 08:46:11 2002
+++ gnus-sum.el	Tue Feb 19 15:21:54 2002
@@ -8180,13 +8180,13 @@
 		  (article-narrow-to-head)
 		  (gnus-article-hidden-text-p 'headers))))
 	(goto-char (point-min))
-	(when (search-forward "\n\n" nil t)
-	  (delete-region (point-min) (1- (point))))
-	(goto-char (point-min))
+	(search-forward "\n\n" nil 'move)
+	(delete-region (point-min) (point))
 	(save-excursion
 	  (set-buffer gnus-original-article-buffer)
 	  (goto-char (point-min))
-	  (setq e (1- (or (search-forward "\n\n" nil t) (point-max)))))
+	  (search-forward "\n\n" nil 'move)
+	  (setq e (point)))
 	(insert-buffer-substring gnus-original-article-buffer 1 e)
 	(save-restriction
 	  (narrow-to-region (point-min) (point))