# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 748133952 0
# Node ID 04714985ce208c20c2542904fe64b5c4d525f669
# Parent  6a3f5f51897b63311914565e82fe2287e68a9c3a
(rmail-forward): Insert the text right after the header separator.

diff -r 6a3f5f51897b -r 04714985ce20 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Sep 15 05:25:16 1993 +0000
+++ b/lisp/mail/rmail.el	Wed Sep 15 22:59:12 1993 +0000
@@ -1829,7 +1829,8 @@
 			       (current-buffer)
 			       rmail-current-message)))
 	  (save-excursion
-	    (goto-char (point-max))
+	    ;; Insert after header separator--before signature if any.
+	    (search-forward-regexp (concat "^" mail-header-separator))
 	    (forward-line 1)
 	    (insert-buffer forward-buffer))))))