From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 7 Apr 1994 07:26:49 +0000 (+0000)
Subject: Fix previous change.
X-Git-Tag: emacs-19.34~9126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56b257136fce59b6d3178211f1c7cdfc7f899181;p=emacs.git

Fix previous change.
---

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 9d084d0aeeb..5725ce4f64d 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -51,7 +51,9 @@ to return to regular RMAIL:
       (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 @@ to return to regular RMAIL:
   "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 --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index a8428e065b5..3584c9cfad2 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -531,18 +531,14 @@ Commands for sorting the summary:
 
 ;; 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.