Mercurial > emacs

changeset 88287:c4875198e277

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-edit-map): Rewrite.
author Alex Schroeder <alex@gnu.org>
date Mon, 23 Jan 2006 23:17:58 +0000
parents 32c6e924fc14
children e664e2e2ae90
files lisp/mail/rmailsum.el
diffstat 1 files changed, 6 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Mon Jan 23 16:54:26 2006 +0000
+++ b/lisp/mail/rmailsum.el	Mon Jan 23 23:17:58 2006 +0000
@@ -1066,7 +1066,6 @@
     ;; Switch windows to the rmail buffer, or switch to it in this window.
     (pop-to-buffer local-rmail-buffer)))
 
-;;; mbox: ready
 (defun rmail-summary-expunge ()
   "Actually erase all deleted messages and recompute summary headers."
   (interactive)
@@ -1074,7 +1073,6 @@
   (rmail-expunge)
   (set-buffer rmail-summary-buffer))
 
-;;; mbox: ready
 (defun rmail-summary-expunge-and-save ()
   "Expunge and save RMAIL file."
   (interactive)
@@ -1084,7 +1082,6 @@
   (set-buffer rmail-summary-buffer)
   (set-buffer-modified-p nil))
 
-;;; mbox: ready
 (defun rmail-summary-get-new-mail (&optional file-name)
   "Get new mail and recompute summary headers.
 
@@ -1124,13 +1121,12 @@
     (end-of-buffer))
   (forward-line -1))
 
-(defvar rmail-summary-edit-map nil)
-(if rmail-summary-edit-map
-    nil
-  (setq rmail-summary-edit-map
-	(nconc (make-sparse-keymap) text-mode-map))
-  (define-key rmail-summary-edit-map "\C-c\C-c" 'rmail-cease-edit)
-  (define-key rmail-summary-edit-map "\C-c\C-]" 'rmail-abort-edit))
+(defvar rmail-summary-edit-map
+  (let ((map (nconc (make-sparse-keymap) text-mode-map)))
+    (define-key map "\C-c\C-c" 'rmail-cease-edit)
+    (define-key map "\C-c\C-]" 'rmail-abort-edit)
+    map)
+  "Mode map to use when editing the rmail summary.")
 
 (defun rmail-summary-edit-current-message ()
   "Edit the contents of this message."
@@ -1216,14 +1212,12 @@
 	  (rmail-search regexp n))
       (set-buffer buffer))))
 
-;;; mbox: ready
 (defun rmail-summary-toggle-header ()
   "Show original message header if pruned header currently shown, or vice versa."
   (interactive)
   (with-current-buffer rmail-buffer
     (rmail-toggle-header)))
 
-;;; mbox: ready
 (defun rmail-summary-add-label (label)
   "Add LABEL to labels associated with current Rmail message.
 Completion is performed over known labels when reading."
@@ -1269,7 +1263,6 @@
       (set-buffer rmail-buffer)))
   (rmail-start-mail t))
 
-;;; mbox: ready
 (defun rmail-summary-reply (just-sender)
   "Reply to the current message.
 Normally include CC: to all other recipients of original message;