[elpa] externals/ebdb 610d1ed5d4 3/3: Fix function signature of ebdb-record-mail, release 0.8.17

[Eric Abrahamsen]

branch: externals/ebdb
commit 610d1ed5d4095936836102e1e48dc4416d0d260b
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Fix function signature of ebdb-record-mail, release 0.8.17
    
    * ebdb.el (ebdb-record-mail): Missing optional arguments, and the
    no-roles argument wasn't doing its job.
---
 ebdb.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index 568a8f4fdd..c69d898f29 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2016-2022  Free Software Foundation, Inc.
 
-;; Version: 0.8.16
+;; Version: 0.8.17
 ;; Package-Requires: ((emacs "25.1") (seq "2.15"))
 
 ;; Maintainer: Eric Abrahamsen <eric@ericabrahamsen.net>
@@ -4833,9 +4833,11 @@ addresses.  Sort mails by descending priority.")
                                &optional _no-roles _label _defunct)
   nil)
 
-(cl-defmethod ebdb-record-mail ((record ebdb-record-person))
-  (delete nil (mapcar (lambda (role) (slot-value role 'mail))
-                     (slot-value record 'organizations))))
+(cl-defmethod ebdb-record-mail ((record ebdb-record-person)
+                               &optional no-roles _label _defunct)
+  (unless no-roles
+    (delete nil (mapcar (lambda (role) (slot-value role 'mail))
+                      (slot-value record 'organizations)))))
 
 (cl-defmethod ebdb-record-mail ((record ebdb-record-mailing-list)
                                &optional _no-roles _label _defunct)