From: yamaoka <yamaoka>
Date: Tue, 16 May 2000 07:30:00 +0000 (+0000)
Subject: * message.el (message-forward, message-indent-citation): Replace the use of
X-Git-Tag: t-gnus-6_14_4-02~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ce1b9b57b4ca7fdfe678f6b1eb8fbaa80a940ae0;p=elisp%2Fgnus.git-

* message.el (message-forward, message-indent-citation): Replace the use of
`eolp' with `bolp' for detecting the start of the line.
---

diff --git a/ChangeLog b/ChangeLog
index 059e3f5..4dd8a73 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-05-16  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/message.el (message-forward) Replace the use of `eolp' with
+	`bolp' for detecting the start of the line.
+	(message-indent-citation): Ditto.
+
 2000-05-10   Daiki Ueno  <ueno@unixuser.org>
 
 	* lisp/gnus-bbdb.el (gnus-bbdb/pop-up-bbdb-buffer): Don't bind
diff --git a/lisp/message.el b/lisp/message.el
index bc15862..57b6b44 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2261,7 +2261,7 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line."
       (message-delete-line))
     ;; Delete blank lines at the end of the buffer.
     (goto-char (point-max))
-    (unless (eolp)
+    (unless (bolp)
       (insert "\n"))
     (while (and (zerop (forward-line -1))
 		(looking-at "$"))
@@ -4908,7 +4908,7 @@ Optional NEWS will use news to forward instead of mail."
 	(message-goto-body)
       (goto-char (point-max)))
     ;; Make sure we're at the start of the line.
-    (unless (eolp)
+    (unless (bolp)
       (insert "\n"))
     ;; Narrow to the area we are to insert.
     (narrow-to-region (point) (point))