changeset 4724:04714985ce20

(rmail-forward): Insert the text right after the header separator.
author Richard M. Stallman <rms@gnu.org>
date Wed, 15 Sep 1993 22:59:12 +0000
parents 6a3f5f51897b
children 126cf4bdfd35
files lisp/mail/rmail.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))))