[elpa] externals/ebdb ac94a77 1/2: Don't offer to create roles based on defunct mail addresses

[Eric Abrahamsen]

branch: externals/ebdb
commit ac94a778bc6d22bc999eec705f26c5a17d8d3da6
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@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