(mail-hist-put-headers-into-history):

Add save-excursion around entire function.

diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el
index 6a80398fd46aef6363dd03a18802df8a012f42cc..e0608a4cefd76539bfe7ef1c9cd1225e51437b66 100644 (file)
--- a/lisp/mail/mail-hist.el
+++ b/lisp/mail/mail-hist.el
@@ -210,19 +210,19 @@ message.
 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)))))
 \f
 (defun mail-hist-previous-input (header)