branch: externals/ebdb
commit ac94a778bc6d22bc999eec705f26c5a17d8d3da6
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Don't offer to create roles based on defunct mail addresses
* ebdb-com.el (ebdb-record-insert-field): Skip if mail is defunct.
---
ebdb-com.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/ebdb-com.el b/ebdb-com.el
index f5214d3..ef6a441 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -1916,7 +1916,10 @@ SLOTS, if present, is passed to any subsequent call to
If the domain part of MAIL matches any the domain field of any
existing organization, ask the user if they want to create a role
field."
- (if ebdb-create-update-roles
+ (if (and ebdb-create-update-roles
+ ;; This method also fires when editing a mail field,
+ ;; possibly in order to set the priority to 'defunct.
+ (null (eql (slot-value mail 'priority) 'defunct)))
(let ((orgs (ebdb-search (ebdb-records)
`((ebdb-field-domain
,(nth 1 (split-string
