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