Remove redundant #' before lambda in Gnus

* 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.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 909391b6b0ce43800af797d57b8164ac34067c4c..423b180408a5f2f1f137234e247c92342a54879e 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -4697,20 +4697,20 @@ This command may read the active file."
     (gnus-cache-open))
   (funcall gnus-group-prepare-function
           (or level gnus-level-subscribed)
-          #'(lambda (info)
-              (let ((marks (gnus-info-marks info)))
-                (assq 'cache marks)))
+           (lambda (info)
+             (let ((marks (gnus-info-marks info)))
+               (assq 'cache marks)))
           lowest
-          #'(lambda (group)
-              (or (gethash group
-                           gnus-cache-active-hashtb)
-                  ;; Cache active file might use "."
-                  ;; instead of ":".
-                  (gethash
-                   (mapconcat #'identity
-                              (split-string group ":")
-                              ".")
-                   gnus-cache-active-hashtb))))
+           (lambda (group)
+             (or (gethash group
+                          gnus-cache-active-hashtb)
+                 ;; Cache active file might use "."
+                 ;; instead of ":".
+                 (gethash
+                  (mapconcat #'identity
+                             (split-string group ":")
+                             ".")
+                  gnus-cache-active-hashtb))))
   (goto-char (point-min))
   (gnus-group-position-point))
 
@@ -4728,9 +4728,9 @@ This command may read the active file."
     (gnus-cache-open))
   (funcall gnus-group-prepare-function
           (or level gnus-level-subscribed)
-          #'(lambda (info)
-              (let ((marks (gnus-info-marks info)))
-                (assq 'dormant marks)))
+           (lambda (info)
+             (let ((marks (gnus-info-marks info)))
+               (assq 'dormant marks)))
           lowest
           'ignore)
   (goto-char (point-min))
@@ -4750,9 +4750,9 @@ This command may read the active file."
     (gnus-cache-open))
   (funcall gnus-group-prepare-function
           (or level gnus-level-subscribed)
-          #'(lambda (info)
-              (let ((marks (gnus-info-marks info)))
-                (assq 'tick marks)))
+           (lambda (info)
+             (let ((marks (gnus-info-marks info)))
+               (assq 'tick marks)))
           lowest
           'ignore)
   (goto-char (point-min))

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index e3b9c196186ad0d0097d2f8abe21f8f9bd611c7e..6ac646fbeacfccb030f168edf07857d0134ed0ee 100644 (file)
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -1290,9 +1290,9 @@ from your existing entries."
       (registry-reindex db)
       (cl-loop for k being the hash-keys of (oref db data)
            using (hash-value v)
-           do (let ((newv (delq nil (mapcar #'(lambda (entry)
-                                                (unless (member (car entry) extra)
-                                                  entry))
+            do (let ((newv (delq nil (mapcar (lambda (entry)
+                                               (unless (member (car entry) extra)
+                                                 entry))
                                             v))))
                 (registry-delete db (list k) nil)
                 (gnus-registry-insert db k newv)))

diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index ce64dcef041836e767a9f519a969f20e2bd34ebf..f40da9e9c4c8859099987424b7b462291df968c0 100644 (file)
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -1182,8 +1182,8 @@ If FORMAT, also format the current score file."
       (when (consp rule) ;; the rule exists
        (setq rule (if (symbolp (car rule))
                       (format "(%S)" (car rule))
-                    (mapconcat #'(lambda (obj)
-                                   (regexp-quote (format "%S" obj)))
+                     (mapconcat (lambda (obj)
+                                  (regexp-quote (format "%S" obj)))
                                rule
                                sep)))
        (goto-char (point-min))

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index c30f9a5f350a65bbd45c6dcfb12256705b932358..ac9317ef4e2750d96ee46db5fd3e72f28b4dfa21 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -5676,9 +5676,9 @@ or a straight list of headers."
            (or dependencies
                (with-current-buffer gnus-summary-buffer
                  gnus-newsgroup-dependencies))))
-     (delq nil (mapcar   #'(lambda (header)
-                            (gnus-dependencies-add-header
-                             header dependencies force-new))
+       (delq nil (mapcar (lambda (header)
+                           (gnus-dependencies-add-header
+                            header dependencies force-new))
                         gnus-headers-retrieved-by)))))
   (gnus-message 7 "Fetching headers for %s...done" gnus-newsgroup-name)))
 

diff --git a/lisp/gnus/mm-partial.el b/lisp/gnus/mm-partial.el
index 0c25c8f8bcd67df0cbae0763296a4a0a52d216bd..0c628055acb0329c7c15ac40a2e9b9372c51dc64 100644 (file)
--- a/lisp/gnus/mm-partial.el
+++ b/lisp/gnus/mm-partial.el
@@ -72,14 +72,14 @@ If NO-DISPLAY is nil, display it.  Otherwise, do nothing after replacing."
                         id
                         (with-current-buffer gnus-summary-buffer
                           (gnus-summary-article-number))))
-                 #'(lambda (a b)
-                     (let ((anumber (string-to-number
-                                     (cdr (assq 'number
-                                                (cdr (mm-handle-type a))))))
-                           (bnumber (string-to-number
-                                     (cdr (assq 'number
-                                                (cdr (mm-handle-type b)))))))
-                       (< anumber bnumber)))))
+                  (lambda (a b)
+                    (let ((anumber (string-to-number
+                                    (cdr (assq 'number
+                                               (cdr (mm-handle-type a))))))
+                          (bnumber (string-to-number
+                                    (cdr (assq 'number
+                                               (cdr (mm-handle-type b)))))))
+                      (< anumber bnumber)))))
       (setq gnus-article-mime-handles
            (mm-merge-handles gnus-article-mime-handles phandles))
       (with-current-buffer (generate-new-buffer " *mm*")

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 1daa8aa673bb262e7e13666d59939f7d1d584c2b..e314e1d8d104110d00f38b3fdc149660b3e29d05 100644 (file)
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -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

diff --git a/lisp/gnus/nnvirtual.el b/lisp/gnus/nnvirtual.el
index b3b701e412680e39e67a4570aabe4064f83b9393..03a0ff296f2cb8dc1785c772a0e66a6dad578314 100644 (file)
--- a/lisp/gnus/nnvirtual.el
+++ b/lisp/gnus/nnvirtual.el
@@ -362,9 +362,9 @@ It is computed from the marks of individual component groups.")
     (dolist (group nnvirtual-component-groups)
       (setq unexpired (nconc unexpired
                             (mapcar
-                             #'(lambda (article)
-                                 (nnvirtual-reverse-map-article
-                                  group article))
+                              (lambda (article)
+                                (nnvirtual-reverse-map-article
+                                 group article))
                              (gnus-uncompress-range
                               (gnus-group-expire-articles-1 group))))))
     (sort (delq nil unexpired) #'<)))

diff --git a/lisp/gnus/spam-stat.el b/lisp/gnus/spam-stat.el
index 3e804ecb4bb5673fab091dd0fde5aa77f96fcee1..ab9be0da890350fec7e44f81ff24763adad6eab3 100644 (file)
--- a/lisp/gnus/spam-stat.el
+++ b/lisp/gnus/spam-stat.el
@@ -492,7 +492,7 @@ Add user supplied modifications if supplied."
   (let* ((probs (mapcar #'cadr spam-stat-score-data))
         (prod (apply #'* probs))
         (score0
-         (/ prod (+ prod (apply #'* (mapcar #'(lambda (x) (- 1 x))
+          (/ prod (+ prod (apply #'* (mapcar (lambda (x) (- 1 x))
                                             probs)))))
         (score1s
          (condition-case nil