[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb b9da0f4 142/350: Check Organization headers and di
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb b9da0f4 142/350: Check Organization headers and display/update organization records |
Date: |
Mon, 14 Aug 2017 11:46:23 -0400 (EDT) |
branch: externals/ebdb
commit b9da0f4f27db5d5b1d56666103360062ec5f8f20
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
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)
- [elpa] externals/ebdb c0979b0 135/350: Typo in ebdb-mua-check-header, (continued)
- [elpa] externals/ebdb c0979b0 135/350: Typo in ebdb-mua-check-header, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 1219b93 100/350: Rework *EBDB* buffer searching, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 80ef19d 108/350: Make ebdb-search-read and ebdb-search-field into generics, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 6c85728 116/350: Manual and README additions, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 4688493 125/350: Wrap ebdb-parse in save-match-data, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 587ebbc 129/350: Use ebdb-prompt-for-record in org link completion, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 8f82b0f 121/350: Complete changes from ed3e270, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 9edc54f 120/350: Merge snarf branch, basic framework of snarfing in place, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 61b533c 127/350: Simplify ebdb-record-field for strings, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb b610b96 138/350: ebdb-record-search can accept symbols for search type, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb b9da0f4 142/350: Check Organization headers and display/update organization records,
Eric Abrahamsen <=
- [elpa] externals/ebdb 6fe34b0 145/350: Fix bugs in ebdb-annotate-message, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb f0b0a32 093/350: Fix organization name matching in migration, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 1fe77aa 152/350: Tiny tweak to snarfing, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 189314d 151/350: Fix up Org link following, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 52d3d54 113/350: Remove all pop-up-window-size type options, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 4cd4a0c 123/350: Simplify searching, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 5b24d54 126/350: Special-case mail symbol in ebdb-record-field, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 5613bc2 137/350: Fix bug in ebdb-record-field-slot-query, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 86b386d 141/350: Compiler-inspired fixes, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 05f67d6 081/350: Fix merging procedure, Eric Abrahamsen, 2017/08/14