mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Remove redundant #' before lambda in Gnus

Browse source 
* lisp/gnus/gnus-group.el (gnus-group-list-cached)
(gnus-group-list-dormant, gnus-group-list-ticked):
* lisp/gnus/gnus-registry.el (gnus-registry-remove-extra-data):
* lisp/gnus/gnus-score.el (gnus-score-edit-file-at-point):
* lisp/gnus/gnus-sum.el (gnus-fetch-headers):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/nnselect.el (nnselect-uncompress-artlist)
(numbers-by-group, nnselect-request-expire-articles)
(nnselect-request-update-info, nnselect-request-thread):
* lisp/gnus/nnvirtual.el (nnvirtual-request-expire-articles):
* lisp/gnus/spam-stat.el (spam-stat-score-buffer): Remove redundant #'
before lambda.
This commit is contained in:
Stefan Kangas 2021-04-01 10:23:21 +02:00
parent 168d2628b2
commit 41f37c8c82
8 changed files with 73 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

68
lisp/gnus/nnselect.el
View file

@ -100,8 +100,8 @@
(setq selection
(vconcat
(cl-map 'vector
#'(lambda (art)
(vector artgroup art artrsv))
(lambda (art)
(vector artgroup art artrsv))
(gnus-uncompress-sequence artseq)) selection)))
selection)))
@ -211,12 +211,12 @@ as `(keyfunc member)' and the corresponding element is just
#'nnselect-article-group #'nnselect-article-number))
((eq ,type 'tuple)
(nnselect-categorize ,articles
#'(lambda (elem)
(nnselect-article-group (car elem)))
#'(lambda (elem)
(cons (nnselect-article-number
(car elem))
(cdr elem)))))
(lambda (elem)
(nnselect-article-group (car elem)))
(lambda (elem)
(cons (nnselect-article-number
(car elem))
(cdr elem)))))
(t
(nnselect-categorize ,articles
#'nnselect-article-group
@ -464,8 +464,8 @@ If this variable is nil, or if the provided function returns nil,
(error "Group %s does not support article expiration" artgroup))
(unless (gnus-check-server (gnus-find-method-for-group artgroup))
(error "Couldn't open server for group %s" artgroup))
(push (mapcar #'(lambda (art)
(car (rassq art artids)))
(push (mapcar (lambda (art)
(car (rassq art artids)))
(let ((nnimap-expunge 'immediately))
(gnus-request-expire-articles
artlist artgroup force)))
@ -549,8 +549,8 @@ If this variable is nil, or if the provided function returns nil,
(gnus-add-to-range
(gnus-info-read info)
(delq nil (mapcar
#'(lambda (art)
(unless (memq (cdr art) unread) (car art)))
(lambda (art)
(unless (memq (cdr art) unread) (car art)))
artids))))
(pcase-dolist (`(,type . ,mark-list) marks)
(let ((mark-type (gnus-article-mark-to-type type)) new)
@ -560,19 +560,19 @@ If this variable is nil, or if the provided function returns nil,
(cond
((eq mark-type 'tuple)
(mapcar
#'(lambda (id)
(let (mark)
(when
(setq mark (assq (cdr id) mark-list))
(cons (car id) (cdr mark)))))
(lambda (id)
(let (mark)
(when
(setq mark (assq (cdr id) mark-list))
(cons (car id) (cdr mark)))))
artids))
(t
(setq mark-list
(gnus-uncompress-range mark-list))
(mapcar
#'(lambda (id)
(when (memq (cdr id) mark-list)
(car id))) artids)))))
(lambda (id)
(when (memq (cdr id) mark-list)
(car id))) artids)))))
(let ((previous (alist-get type newmarks)))
(if previous
(nconc previous new)
@ -607,8 +607,8 @@ If this variable is nil, or if the provided function returns nil,
(let ((thread
(gnus-id-to-thread (mail-header-id header))))
(when thread
(cl-some #'(lambda (x)
(when (and x (> x 0)) x))
(cl-some (lambda (x)
(when (and x (> x 0)) x))
(gnus-articles-in-thread thread)))))))))
;; Check if search-based thread referral is permitted, and
;; available.
@ -642,15 +642,15 @@ If this variable is nil, or if the provided function returns nil,
old-arts seq
headers)
(mapc
#'(lambda (article)
(if
(setq seq
(cl-position article
gnus-newsgroup-selection :test 'equal))
(push (1+ seq) old-arts)
(setq gnus-newsgroup-selection
(vconcat gnus-newsgroup-selection (vector article)))
(cl-incf last)))
(lambda (article)
(if
(setq seq
(cl-position article
gnus-newsgroup-selection :test 'equal))
(push (1+ seq) old-arts)
(setq gnus-newsgroup-selection
(vconcat gnus-newsgroup-selection (vector article)))
(cl-incf last)))
new-nnselect-artlist)
(setq headers
(gnus-fetch-headers
@ -671,9 +671,9 @@ If this variable is nil, or if the provided function returns nil,
(when (setq new-marks
(delq nil
(mapcar
#'(lambda (art)
(when (memq (cdr art) marked)
(car art)))
(lambda (art)
(when (memq (cdr art) marked)
(car art)))
artids)))
(nconc
(symbol-value