(rmail-forward): Anchor `mail-header-separator' on both

sides to match whole line, not just initial substring.

(rmail-forward): Anchor `mail-header-separator' on both
sides to match whole line, not just initial substring.
99c3d926 · Richard M. Stallman · 24675e99 · 99c3d926
Commit 99c3d926 authored Aug 10, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/mail/rmail.el lisp/mail/rmail.el +1 -1

No files found.
--- 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))))))