branch: externals/ebdb
commit 5b24d545166b01525942f4fa1dd7002d358c21d1
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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)))
