branch: externals/ebdb
commit b9da0f4f27db5d5b1d56666103360062ec5f8f20
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Check Organization headers and display/update organization records
* ebdb-mua.el (ebdb-message-headers): Add an 'organization entry to
this alist, and check the "Organization:" header.
(ebdb-annotate-message): Check the header type and create an
organization record if that's what we're looking at.
---
ebdb-mua.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/ebdb-mua.el b/ebdb-mua.el
index e075800..1127778 100644
--- a/ebdb-mua.el
+++ b/ebdb-mua.el
@@ -122,7 +122,8 @@ whether the records in question are actually displayed or
not."
(defcustom ebdb-message-headers
'((sender "From" "Resent-From" "Reply-To" "Sender")
- (recipients "Resent-To" "Resent-CC" "To" "CC" "BCC"))
+ (recipients "Resent-To" "Resent-CC" "To" "CC" "BCC")
+ (organization "Organization"))
"Alist of headers to search for sender and recipients mail addresses.
Each element is of the form
@@ -880,6 +881,9 @@ Return the records matching ADDRESS or nil."
(name (unless (or (equal mail (car address))
(null (car address)))
(car address)))
+ (record-class (if (eql (nth 4 address) 'organization)
+ 'ebdb-record-organization
+ ebdb-default-record-class))
(records (ebdb-message-search name mail))
created-p new-records)
(if (and (not records) (functionp update-p))
@@ -905,7 +909,7 @@ Return the records matching ADDRESS or nil."
(setq records (list (ebdb-db-add-record
(car ebdb-db-list)
(make-instance
- (slot-value (car ebdb-db-list) 'record-class))))
+ record-class)))
created-p t)))
(dolist (record records)
