Add alternative key bindings to epa-mail.el.

* epa-mail.el (epa-mail-mode-map): Add alternative key bindings
which consist of control chars only.  Suggested by Richard
Stallman.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5629f415887904a138f5d0468928cde4bdf6b1e..9d6f0ed0d98832cd23938461864c85420f95e0f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-07-26  Daiki Ueno  <ueno@unixuser.org>
+
+       * epa-mail.el (epa-mail-mode-map): Add alternative key bindings
+       which consist of control chars only.  Suggested by Richard
+       Stallman.
+
 2010-07-25  Daiki Ueno  <ueno@unixuser.org>
 
        * epa-file.el (epa-file-insert-file-contents): Check if LOCAL-FILE

diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index b3c31fe43545331e06e74e441796da162d603706..69fb6d7d7e86c9a34f2d5f2b54d2d51a3266e2fa 100644 (file)
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -32,6 +32,12 @@
     (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)
+    (define-key keymap "\C-c\C-e\C-d" 'epa-mail-decrypt)
+    (define-key keymap "\C-c\C-e\C-v" 'epa-mail-verify)
+    (define-key keymap "\C-c\C-e\C-s" 'epa-mail-sign)
+    (define-key keymap "\C-c\C-e\C-e" 'epa-mail-encrypt)
+    (define-key keymap "\C-c\C-e\C-i" 'epa-mail-import-keys)
+    (define-key keymap "\C-c\C-e\C-o" 'epa-insert-keys)
     keymap))
 
 (defvar epa-mail-mode-hook nil)