X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fmessage.el;h=95f10ce1e2bc37f7aa593acef2d5cd1f4a5b89a8;hp=519a7b90834e9499b63403959f7484dafe80ed04;hb=10742cf90b6627e4a7092cc16c7fd6a21940d623;hpb=2678a0ba884b889e4d9f743e95ac46949c756634

diff --git a/lisp/message.el b/lisp/message.el
index 519a7b908..95f10ce1e 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1121,7 +1121,8 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line."
 	(goto-char (point-max))))
     ;; Delete blank lines at the start of the buffer.
     (while (and (point-min)
-		(eolp))
+		(eolp)
+		(not (eobp)))
       (message-delete-line))
     ;; Delete blank lines at the end of the buffer.
     (goto-char (point-max))