[elpa] externals/ebdb 5b24d54 126/350: Special-case mail symbol in ebdb-record-field

[Eric Abrahamsen]

branch: externals/ebdb
commit 5b24d545166b01525942f4fa1dd7002d358c21d1
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Special-case mail symbol in ebdb-record-field
    
    * ebdb.el (ebdb-record-field): Provide special handling for 'mail, as
      mail addresses can come from more than one place.
---
 ebdb.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ebdb.el b/ebdb.el
index 5eb756f..23f5b5a 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4194,6 +4194,9 @@ also be one of the special symbols below.
        ((eq field 'lastname) (ebdb-record-lastname record))
        ((eq field 'affix)    (slot-value (slot-value record 'name) 'affix))
        ((eq field 'mail-canon) (ebdb-record-mail-canon record)) ; derived 
(cached) field
+       ;; Mail is special-cased, because mail addresses can come from
+       ;; more than one slot.
+       ((eq field 'mail) (ebdb-record-mail record t nil t))
        ((eq field 'mail-aka) (ebdb-record-mail-aka record)) ; derived (cached) 
field
        ((eq field 'aka-all)  (append (ebdb-record-aka record) ; derived field
                                      (ebdb-record-mail-aka record)))