Mercurial > emacs

diff lisp/mail/rmailedit.el @ 6726:d6bc6057d197

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Karl Heuer <kwzh@gnu.org>
date Thu, 07 Apr 1994 07:26:49 +0000
parents 6ff74185a672
children cc7cd83ccf3f
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el	Thu Apr 07 07:18:20 1994 +0000
+++ b/lisp/mail/rmailedit.el	Thu Apr 07 07:26:49 1994 +0000
@@ -51,7 +51,9 @@
       (setq mode-line-modified (default-value 'mode-line-modified))
     (setq mode-line-format (default-value 'mode-line-format)))
   (if (rmail-summary-exists)
-      (rmail-summary-disable))
+      (save-excursion
+	(set-buffer rmail-summary-buffer)
+	(rmail-summary-disable)))
   (run-hooks 'text-mode-hook 'rmail-edit-mode-hook))
 
 (defun rmail-edit-current-message ()
@@ -74,7 +76,9 @@
   "Finish editing message; switch back to Rmail proper."
   (interactive)
   (if (rmail-summary-exists)
-      (rmail-summary-enable))
+      (save-excursion
+	(set-buffer rmail-summary-buffer)
+	(rmail-summary-enable)))
   ;; Make sure buffer ends with a newline.
   (save-excursion
     (goto-char (point-max))