branch: externals/ebdb
commit 610d1ed5d4095936836102e1e48dc4416d0d260b
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@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 <e...@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)
