summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaiki Ueno <ueno@unixuser.org>2010-10-26 10:02:08 +0900
committerDaiki Ueno <ueno@unixuser.org>2010-10-26 10:02:08 +0900
commit77ec02d8fdf1da79e1774dc6e20dedabd065bbe9 (patch)
tree0530c59a5dd8f048b8c24aa5d84c982e898315f3
parent84acb2f67b04b038a5d6ca8637e4219c2713284d (diff)
downloademacs-77ec02d8fdf1da79e1774dc6e20dedabd065bbe9.tar.gz
Make epa-mail-encrypt handle local-part only recipients.
* epa-mail.el (epa-mail-encrypt): Handle local-part only recipients (Bug#7280).
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/epa-mail.el4
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e62729555c2..723bb8d5c1b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-26 Daiki Ueno <ueno@unixuser.org>
+
+ * epa-mail.el (epa-mail-encrypt): Handle local-part only
+ recipients (Bug#7280).
+
2010-10-25 Glenn Morris <rgm@gnu.org>
* term/common-win.el (x-handle-switch): Simplify with pop.
diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index 09b30868115..2b29e80daa5 100644
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -154,7 +154,9 @@ If no one is selected, symmetric encryption will be performed. "
(epa-mail--find-usable-key
(epg-list-keys
(epg-make-context epa-protocol)
- (concat "<" recipient ">"))
+ (if (string-match "@" recipient)
+ (concat "<" recipient ">")
+ recipient))
'encrypt))
(unless (or recipient-key
(y-or-n-p