# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797641265 0
# Node ID 2de0b88cc028985e77023b62c55ad4df8980f836
# Parent  44f6ea27bac4a9f222e85c3cee72e7d6ea6cf7ea
(mail-hist-put-headers-into-history):
Add save-excursion around entire function.

diff -r 44f6ea27bac4 -r 2de0b88cc028 lisp/mail/mail-hist.el
--- a/lisp/mail/mail-hist.el	Tue Apr 11 22:46:18 1995 +0000
+++ b/lisp/mail/mail-hist.el	Tue Apr 11 23:01:05 1995 +0000
@@ -210,19 +210,19 @@
 This function normally would be called when the message is sent." 
   (and
    mail-hist-keep-history
-   (progn
+   (save-excursion
      (goto-char (point-min))
      (while (mail-hist-forward-header 1)
        (mail-hist-add-header-contents-to-ring
         (mail-hist-current-header-name)))
      (let ((body-contents
             (save-excursion
-            (goto-char (point-min))
-            (re-search-forward
-	     (concat "^" (regexp-quote mail-header-separator) "$")
-	     nil)
-            (forward-line 1)
-            (buffer-substring (point) (point-max)))))
+	      (goto-char (point-min))
+	      (re-search-forward
+	       (concat "^" (regexp-quote mail-header-separator) "$")
+	       nil)
+	      (forward-line 1)
+	      (buffer-substring (point) (point-max)))))
        (mail-hist-add-header-contents-to-ring "body" body-contents)))))
 
 (defun mail-hist-previous-input (header)