branch: externals/ebdb
commit 391355559a25423eb6698f067d97b2e47bb26ce6
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Update last commit
* ebdb.el (ebdb-record-mail): Forgot we already have
`ebdb-field-compare' for sorting.
---
ebdb.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index 6788310..3fb6e75 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4499,10 +4499,7 @@ addresses. Sort mails by descending priority."
mails)))
(if label
(object-assoc label 'label mails)
- (sort mails (lambda (m1 m2)
- (or (eql (slot-value m1 'priority) 'primary)
- (and (eql (slot-value m1 'priority) 'normal)
- (eql (slot-value m2 'priority) 'defunct))))))))
+ (sort mails #'ebdb-field-compare))))
