# HG changeset patch
# User Daiki Ueno <ueno@unixuser.org>
# Date 1280121733 -32400
# Node ID 018487fd2873cf4a188928ff4dad6ffd920519d3
# Parent  0526a9cf04a33de50c7c23e1b69729a32a09c396
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 -r 0526a9cf04a3 -r 018487fd2873 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jul 26 13:30:05 2010 +0900
+++ b/lisp/ChangeLog	Mon Jul 26 14:22:13 2010 +0900
@@ -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 -r 0526a9cf04a3 -r 018487fd2873 lisp/epa-mail.el
--- a/lisp/epa-mail.el	Mon Jul 26 13:30:05 2010 +0900
+++ b/lisp/epa-mail.el	Mon Jul 26 14:22:13 2010 +0900
@@ -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)