(message-kill-to-signature): Fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4eb9564..fd04301 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-07  Jesper Harder  <harder@ifa.au.dk>
+
+       * message.el (message-kill-to-signature): Fix.
+
 2003-05-06  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-sum.el (gnus-auto-goto-ignores): Docstring fix.

diff --git a/lisp/message.el b/lisp/message.el
index b374ae5..255e7ea 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2618,7 +2618,7 @@ With the prefix argument FORCE, insert the header anyway."
   (let ((point (point)))
     (message-goto-signature)
     (unless (eobp)
-      (forward-line -2))
+      (end-of-line -1))
     (kill-region point (point))
     (unless (bolp)
       (insert "\n"))))