Commit 56b25713 authored by Karl Heuer's avatar Karl Heuer

Fix previous change.

parent 9ed287b0
......@@ -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)
(set-buffer rmail-summary-buffer)
(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."
(if (rmail-summary-exists)
(set-buffer rmail-summary-buffer)
;; Make sure buffer ends with a newline.
(goto-char (point-max))
......@@ -531,18 +531,14 @@ Commands for sorting the summary:
;; Summary features need to be disabled during edit mode.
(defun rmail-summary-disable ()
(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)))
(setq revert-buffer-function nil))
(defun rmail-summary-enable ()
(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)))
(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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment