changeset 8506:07a5f6c2bc9f

(rmail-forward): Anchor `mail-header-separator' on both sides to match whole line, not just initial substring.
author Richard M. Stallman <rms@gnu.org>
date Wed, 10 Aug 1994 07:02:35 +0000
parents d3f7cadf8c95
children daeb611442e9
files lisp/mail/rmail.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))))