# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765703609 0
# Node ID d6bc6057d1979b59d4dfded98cd1e839129bbff4
# Parent  e044bd05a1da21e94c657383dc59cd55260c2a7c
Fix previous change.

diff -r e044bd05a1da -r d6bc6057d197 lisp/mail/rmailedit.el
--- 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))
diff -r e044bd05a1da -r d6bc6057d197 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Thu Apr 07 07:18:20 1994 +0000
+++ b/lisp/mail/rmailsum.el	Thu Apr 07 07:26:49 1994 +0000
@@ -531,18 +531,14 @@
 
 ;; Summary features need to be disabled during edit mode.
 (defun rmail-summary-disable ()
-  (save-excursion
-    (set-buffer rmail-summary-buffer)
-    (use-local-map text-mode-map)
-    (remove-hook 'post-command-hook 'rmail-summary-rmail-update)
-    (setq revert-buffer-function nil)))
+  (use-local-map text-mode-map)
+  (remove-hook 'post-command-hook 'rmail-summary-rmail-update)
+  (setq revert-buffer-function nil))
 
 (defun rmail-summary-enable ()
-  (save-excursion
-    (set-buffer rmail-summary-buffer)
-    (use-local-map rmail-summary-mode-map)
-    (add-hook 'post-command-hook 'rmail-summary-rmail-update)
-    (setq revert-buffer-function 'rmail-update-summary)))
+  (use-local-map rmail-summary-mode-map)
+  (add-hook 'post-command-hook 'rmail-summary-rmail-update)
+  (setq revert-buffer-function 'rmail-update-summary))
 
 ;; Show in Rmail the message described by the summary line that point is on,
 ;; but only if the Rmail buffer is already visible.