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

Add save-excursion around entire function.

1 files changed, 7 insertions, 7 deletions

diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el
index 6a80398fd46..e0608a4cefd 100644
--- 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)))))
 
 (defun mail-hist-previous-input (header)