From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 10 Aug 1994 07:02:35 +0000 (+0000)
Subject: (rmail-forward): Anchor `mail-header-separator' on both
X-Git-Tag: emacs-19.34~7347
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99c3d92677accaf23d67dabafbdabf726aaf1815;p=emacs.git

(rmail-forward): Anchor `mail-header-separator' on both
sides to match whole line, not just initial substring.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 79649a935b6..cb2c36adc03 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2009,7 +2009,7 @@ see the documentation of `rmail-resend'."
 	    ;; 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))))))