* epa.el (epa-keys-mode-map): Bind return to epa-toggle-mark.

(epa-toggle-mark): New command.

diff --git a/ChangeLog b/ChangeLog
index a83503e..c851246 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-10  Daiki Ueno  <ueno@unixuser.org>
+
+       * epa.el (epa-keys-mode-map): Bind return to epa-toggle-mark.
+       (epa-toggle-mark): New command.
+
 2006-07-04  Daiki Ueno  <ueno@unixuser.org>
 
        * pgg-epg.el (pgg-epg-sign-region): Select the signing key matched

diff --git a/epa.el b/epa.el
index aae2313..e29441e 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -171,6 +171,7 @@ the separate window."
   (let ((keymap (make-sparse-keymap)))
     (define-key keymap "m" 'epa-mark)
     (define-key keymap "u" 'epa-unmark)
+    (define-key keymap [return] 'epa-toggle-mark)
     (define-key keymap "d" 'epa-decrypt-file)
     (define-key keymap "v" 'epa-verify-file)
     (define-key keymap "s" 'epa-sign-file)
@@ -499,6 +500,11 @@ If ARG is non-nil, mark the current line."
   (interactive "P")
   (epa-mark (not arg)))
 
+(defun epa-toggle-mark ()
+  "Toggle the mark the current line."
+  (interactive)
+  (epa-mark (eq (char-after (save-excursion (beginning-of-line) (point))) ?*)))
+
 (defun epa-exit-buffer ()
   "Exit the current buffer.
 `epa-exit-buffer-function' is called if it is set."