(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
(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 ()