[Emacs-diffs] /srv/bzr/emacs/trunk r102102: Make epa-mail-encrypt handle local-part only recipients.

[Daiki Ueno]

------------------------------------------------------------
revno: 102102
committer: Daiki Ueno <address@hidden>
branch nick: trunk
timestamp: Tue 2010-10-26 10:02:08 +0900
message:
  Make epa-mail-encrypt handle local-part only recipients.
  
  * epa-mail.el (epa-mail-encrypt): Handle local-part only
  recipients (Bug#7280).
modified:
  lisp/ChangeLog
  lisp/epa-mail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-25 05:39:21 +0000
+++ b/lisp/ChangeLog    2010-10-26 01:02:08 +0000
@@ -1,3 +1,8 @@
+2010-10-26  Daiki Ueno  <address@hidden>
+
+       * epa-mail.el (epa-mail-encrypt): Handle local-part only
+       recipients (Bug#7280).
+
 2010-10-25  Glenn Morris  <address@hidden>
 
        * term/common-win.el (x-handle-switch): Simplify with pop.

=== modified file 'lisp/epa-mail.el'
--- a/lisp/epa-mail.el  2010-08-29 16:17:13 +0000
+++ b/lisp/epa-mail.el  2010-10-26 01:02:08 +0000
@@ -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