(rmail-edit-map): Initialize at definition. Doc String.

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index 16c01364e9f2c78d97e9031f640af14a2b8b6f87..bd4e60aed223299a2fd5df8b74f7be0157429fa4 100644 (file)
--- a/lisp/mail/ChangeLog
+++ b/lisp/mail/ChangeLog
@@ -1,5 +1,8 @@
 2006-03-09  Henrik Enberg  <enberg@printf.se>
 
+       * rmailedit.el (rmail-edit-map): Initialize at definition.  Doc
+       String.
+
        * rmail.el (rmail-narrow-to-header): Don't end error message with
        a period.
 

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index f3f65634f20dbca27ca63b861d43cf77541ea2e1..8a02ceb698a16b4e69ae6d60abe0a71ee6043f84 100644 (file)
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -40,14 +40,13 @@
 
 (defvar rmail-old-text)
 
-(defvar rmail-edit-map nil)
-(if rmail-edit-map
-    nil
-  ;; Make a keymap that inherits text-mode-map.
-  (setq rmail-edit-map (make-sparse-keymap))
-  (set-keymap-parent rmail-edit-map text-mode-map)
-  (define-key rmail-edit-map "\C-c\C-c" 'rmail-cease-edit)
-  (define-key rmail-edit-map "\C-c\C-]" 'rmail-abort-edit))
+(defvar rmail-edit-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map text-mode-map)
+    (define-key map "\C-c\C-c" 'rmail-cease-edit)
+    (define-key map "\C-c\C-]" 'rmail-abort-edit)
+    map)
+  "Keymap for `rmail-edit-mode'.")
 
 ;; Rmail Edit mode is suitable only for specially formatted data.
 (put 'rmail-edit-mode 'mode-class 'special)
@@ -90,7 +89,6 @@ This functions runs the normal hook `rmail-edit-mode-hook'.
   (setq rmail-old-pruned (rmail-msg-is-pruned))
   (make-local-variable 'rmail-edit-saved-coding-system)
   (setq rmail-edit-saved-coding-system save-buffer-coding-system)
-  ;; (rmail-toggle-header 0)
   (rmail-header-show-headers)
   (rmail-edit-mode)
   ;; As the local value of save-buffer-coding-system is deleted by