[elpa] externals/ebdb 6dad4c1 09/13: Allow 'mail-primary as an argument to ebdb-record-field

[Eric Abrahamsen]

branch: externals/ebdb
commit 6dad4c1a16f69cdc3be6158508380f09f3940405
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Allow 'mail-primary as an argument to ebdb-record-field
    
    * ebdb.el (ebdb-record-field): There will be more of these later, but
      I've already started using these in the new formatters, without
      having pushed this change.
---
 ebdb.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ebdb.el b/ebdb.el
index bfd8dcf..db3b0d2 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4832,6 +4832,7 @@ also be one of the special symbols below.
  affix         Return the list of affixes
  aka-all       Return the list of AKAs plus mail-akas.
  mail-aka      Return the list of name parts in mail addresses
+ mail-primary  Return the record's primary mail address
  mail-canon    Return the list of canonical mail addresses.")
 
 (cl-defmethod ebdb-record-field ((record ebdb-record)
@@ -4844,6 +4845,7 @@ also be one of the special symbols below.
     ;; Mail is special-cased, because mail addresses can come from
     ;; more than one slot.
     ('mail (ebdb-record-mail record nil nil t))
+    ('mail-primary (ebdb-record-one-mail record nil t))
     ('mail-aka (ebdb-record-mail-aka record)) ; derived (cached) field
     ('aka-all  (append (ebdb-record-aka record) ; derived field
                       (ebdb-record-mail-aka record)))