summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-cite.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-09-29 17:25:01 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2021-09-29 17:28:02 +0200
commitb4b4cc98ac271d079916a4c412e134fe5b4ba4d8 (patch)
treeb512da9839cf37fa37322df806406de4297dcc31 /lisp/gnus/gnus-cite.el
parente457cff3f48b6fc3fe9efc30b9896181c59011da (diff)
downloademacs-b4b4cc98ac271d079916a4c412e134fe5b4ba4d8.tar.gz
emacs-b4b4cc98ac271d079916a4c412e134fe5b4ba4d8.tar.bz2
emacs-b4b4cc98ac271d079916a4c412e134fe5b4ba4d8.zip
Revert "Obsolete local set difference functions in favor of seq-difference"
This reverts commit 20f7fa691b7c2859b96550d9ccb326bf394e160d. gnus-set-difference is orders of magnitude faster than seq-difference (on these sets), and using seq-difference makes nnimap too slow.
Diffstat (limited to 'lisp/gnus/gnus-cite.el')
-rw-r--r--lisp/gnus/gnus-cite.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el
index 34947cece89..e9c912109e2 100644
--- a/lisp/gnus/gnus-cite.el
+++ b/lisp/gnus/gnus-cite.el
@@ -839,7 +839,7 @@ See also the documentation for `gnus-article-highlight-citation'."
(setq current (car loop)
loop (cdr loop))
(setcdr current
- (seq-difference (cdr current) numbers #'eq)))))))))
+ (gnus-set-difference (cdr current) numbers)))))))))
(defun gnus-cite-parse-attributions ()
(let (al-alist)
@@ -999,7 +999,7 @@ See also the documentation for `gnus-article-highlight-citation'."
loop (cdr loop))
(if (eq current best)
()
- (setcdr current (seq-difference (cdr current) numbers #'eq))
+ (setcdr current (gnus-set-difference (cdr current) numbers))
(when (null (cdr current))
(setq gnus-cite-loose-prefix-alist
(delq current gnus-cite-loose-prefix-alist)