Commit 0732dfa5 authored by Karl Heuer's avatar Karl Heuer
Browse files

(rmail-summary-disable): New function.

(rmail-summary-enable): New function.
(rmail-summary-mode): Call rmail-summary-enable.
parent c35fb216
......@@ -515,7 +515,6 @@ Commands for sorting the summary:
(setq major-mode 'rmail-summary-mode)
(setq mode-name "RMAIL Summary")
(use-local-map rmail-summary-mode-map)
(setq truncate-lines t)
(setq buffer-read-only t)
(set-syntax-table text-mode-syntax-table)
......@@ -526,11 +525,25 @@ Commands for sorting the summary:
(make-local-variable 'rmail-summary-redo)
(setq rmail-summary-redo nil)
(make-local-variable 'revert-buffer-function)
(setq revert-buffer-function 'rmail-update-summary)
(make-local-variable 'post-command-hook)
(add-hook 'post-command-hook 'rmail-summary-rmail-update)
(run-hooks 'rmail-summary-mode-hook))
;; 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)))
(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)))
;; Show in Rmail the message described by the summary line that point is on,
;; but only if the Rmail buffer is already visible.
;; This is a post-command-hook in summary buffers.
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