X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=epa-mail.el;h=647d8e6e988f88b1269c41be4ca4532f2ab90fa8;hb=97bc3878bde310e3418d1e0b398df9a5312eacbf;hp=216f3b1c053318bd4e2beb5502c59e49f86bc20f;hpb=6aca55e1962a3362eface305acc53f644c84b259;p=elisp%2Fepg.git

diff --git a/epa-mail.el b/epa-mail.el
index 216f3b1..647d8e6 100644
--- a/epa-mail.el
+++ b/epa-mail.el
@@ -26,20 +26,20 @@
 (require 'epa)
 (require 'mail-utils)
 
-(defvar epa-key-list-mode-map
+(defvar epa-mail-mode-map
   (let ((keymap (make-sparse-keymap)))
-    (define-key keymap "C-cC-ed" 'epa-mail-decrypt)
-    (define-key keymap "C-cC-ev" 'epa-mail-verify)
-    (define-key keymap "C-cC-es" 'epa-mail-sign)
-    (define-key keymap "C-cC-ee" 'epa-mail-encrypt)
-    (define-key keymap "C-cC-ei" 'epa-mail-import-keys)
-    (define-key keymap "C-cC-eo" 'epa-insert-keys)
+    (define-key keymap "\C-c\C-ed" 'epa-mail-decrypt)
+    (define-key keymap "\C-c\C-ev" 'epa-mail-verify)
+    (define-key keymap "\C-c\C-es" 'epa-mail-sign)
+    (define-key keymap "\C-c\C-ee" 'epa-mail-encrypt)
+    (define-key keymap "\C-c\C-ei" 'epa-mail-import-keys)
+    (define-key keymap "\C-c\C-eo" 'epa-insert-keys)
     keymap))
 
 ;;;###autoload
 (define-minor-mode epa-mail-mode
   "A minor-mode for composing encrypted/clearsigned mails."
-  nil nil epa-mail-mode-map)
+  nil " epa-mail" epa-mail-mode-map)
 
 ;;;###autoload
 (defun epa-mail-decrypt ()