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.

2 files changed, 12 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5629f41588..9d6f0ed0d98 100644
--- 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 b3c31fe4354..69fb6d7d7e8 100644
--- 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)