Thanks to -> Reported by

[epg/epg.git] / epa-mail.el

diff --git a/epa-mail.el b/epa-mail.el
index 216f3b1..2541d53 100644 (file)
--- a/epa-mail.el
+++ b/epa-mail.el
@@ -26,20 +26,23 @@
 (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
+(defvar epa-mail-mode-hook nil)
+(defvar epa-mail-mode-on-hook nil)
+(defvar epa-mail-mode-off-hook nil)
+
 (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 ()