Mercurial > emacs

changeset 11377:2de0b88cc028

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-hist-put-headers-into-history): Add save-excursion around entire function.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Apr 1995 23:01:05 +0000
parents 44f6ea27bac4
children 9020ac98e9d3
files lisp/mail/mail-hist.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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)