# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776502155 0
# Node ID 07a5f6c2bc9f84ff9001994e4cb125912c1b2e6f
# Parent  d3f7cadf8c959d7bc30161467e1511e4c77d0dff
(rmail-forward): Anchor `mail-header-separator' on both
sides to match whole line, not just initial substring.

diff -r d3f7cadf8c95 -r 07a5f6c2bc9f lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Aug 10 06:38:39 1994 +0000
+++ b/lisp/mail/rmail.el	Wed Aug 10 07:02:35 1994 +0000
@@ -2009,7 +2009,7 @@
 	    ;; Insert after header separator--before signature if any.
 	    (goto-char (point-min))
 	    (search-forward-regexp
-	     (concat "^" (regexp-quote mail-header-separator)))
+	     (concat "^" (regexp-quote mail-header-separator) "$"))
 	    (forward-line 1)
 	    (insert-buffer forward-buffer))))))