From: Henrik Enberg <henrik.enberg@telia.com>
Date: Thu, 9 Mar 2006 22:53:43 +0000 (+0000)
Subject: (rmail-edit-map): Initialize at definition.  Doc String.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1b8f2e4be4252a82cc2afb80c91fc3ebdfea1ee;p=emacs.git

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

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index 16c01364e9f..bd4e60aed22 100644
--- 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 f3f65634f20..8a02ceb698a 100644
--- 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