[Emacs-diffs] /srv/bzr/emacs/trunk r100904: Add alternative key bindings to epa-mail.el.

[Daiki Ueno]

------------------------------------------------------------
revno: 100904
committer: Daiki Ueno <address@hidden>
branch nick: trunk
timestamp: Mon 2010-07-26 14:22:13 +0900
message:
  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.
modified:
  lisp/ChangeLog
  lisp/epa-mail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-25 11:50:51 +0000
+++ b/lisp/ChangeLog    2010-07-26 05:22:13 +0000
@@ -1,3 +1,9 @@
+2010-07-26  Daiki Ueno  <address@hidden>
+
+       * 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  <address@hidden>
 
        * epa-file.el (epa-file-insert-file-contents): Check if LOCAL-FILE

=== modified file 'lisp/epa-mail.el'
--- a/lisp/epa-mail.el  2010-01-13 08:35:10 +0000
+++ b/lisp/epa-mail.el  2010-07-26 05:22:13 +0000
@@ -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)