# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 828139205 0
# Node ID 9d170829f22709dcd3bb0b356de02cce6818f28c
# Parent  5a4b28f19b7570e605221580b2f24031f3aab8f7
(rmail-forward): Put the "end" line right after the
forwarded message; the signature goes after.

diff -r 5a4b28f19b75 -r 9d170829f227 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Mar 29 17:47:01 1996 +0000
+++ b/lisp/mail/rmail.el	Fri Mar 29 22:40:05 1996 +0000
@@ -2259,18 +2259,20 @@
 	    (insert "------- Start of forwarded message -------\n")
 	    ;; Quote lines with `- ' if they start with `-'.
 	    (let ((beg (point)) end)
+	      (setq end (point-marker))
+	      (set-marker-insertion-type end t)
 	      (insert-buffer-substring forward-buffer)
 	      (goto-char beg)
 	      (while (re-search-forward "^-" nil t)
 		(beginning-of-line)
 		(insert "- ")
 		(forward-line 1))
-	      (goto-char (point-max)))
-	    (let ((end (point)))
+	      (goto-char end)
 	      (skip-chars-backward "\n")
 	      (if (< (point) end)
 		  (forward-char 1))
-	      (delete-region (point) end))
+	      (delete-region (point) end)
+	      (set-marker end nil))
 	    (insert "------- End of forwarded message -------\n")
 	    (push-mark))))))