[elpa] externals/ebdb 794babc 069/350: Fix mail field action

[Eric Abrahamsen]

branch: externals/ebdb
commit 794babceb7af10e132adce6a7f16c404292241a4
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Fix mail field action
    
    * ebdb.el (ebdb-field-mail-compose): New method handling
      ebdb-field-action for mail address fields.
---
 ebdb.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ebdb.el b/ebdb.el
index dcba11e..300e9a7 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1042,11 +1042,15 @@ values, by default the search is not handed to the name 
field itself."
     offered for completion, and 'primary means this address will
     be used as the default.  Only one of a record's addresses can
     be set to 'primary.")
-   (actions :initform '(ebdb-mail)))
+   (actions :initform '(ebdb-field-mail-compose)))
   :documentation "A field representing a single email address.
   The optional \"object-name\" slot can serve as a mail aka."
   :human-readable "mail")
 
+(cl-defmethod ebdb-field-mail-compose ((record ebdb-record-entity)
+                                      (mail ebdb-field-mail))
+  (ebdb-compose-mail (ebdb-dwim-mail record mail)))
+
 (cl-defmethod ebdb-init-field ((mail ebdb-field-mail) &optional record)
   (with-slots (aka mail) mail
     (ebdb-puthash mail record)