# HG changeset patch
# User Daiki Ueno <ueno@unixuser.org>
# Date 1288054928 -32400
# Node ID 6585f38b9f1d88010235d172f9631284ea401c33
# Parent  2009890b5ebf055b2a873f4a64248417bdef8c43
Make epa-mail-encrypt handle local-part only recipients.

* epa-mail.el (epa-mail-encrypt): Handle local-part only
recipients (Bug#7280).

diff -r 2009890b5ebf -r 6585f38b9f1d lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Oct 25 22:02:00 2010 +0000
+++ b/lisp/ChangeLog	Tue Oct 26 10:02:08 2010 +0900
@@ -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 -r 2009890b5ebf -r 6585f38b9f1d lisp/epa-mail.el
--- a/lisp/epa-mail.el	Mon Oct 25 22:02:00 2010 +0000
+++ b/lisp/epa-mail.el	Tue Oct 26 10:02:08 2010 +0900
@@ -154,7 +154,9 @@
 			    (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