diff options
Diffstat (limited to 'lisp/gnus/gnus-kill.el')
| -rw-r--r-- | lisp/gnus/gnus-kill.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el index a7ded393034..442d26cf4fb 100644 --- a/lisp/gnus/gnus-kill.el +++ b/lisp/gnus/gnus-kill.el @@ -350,8 +350,7 @@ Returns the number of articles marked as read." (let ((headers gnus-newsgroup-headers)) (if gnus-kill-killed (setq gnus-newsgroup-kill-headers - (mapcar (lambda (header) (mail-header-number header)) - headers)) + (mapcar #'mail-header-number headers)) (while headers (unless (gnus-member-of-range (mail-header-number (car headers)) @@ -600,8 +599,7 @@ marked as read or ticked are ignored." ((cond ((fboundp (setq function (intern-soft - (concat "mail-header-" (downcase field))))) - (setq function `(lambda (h) (,function h)))) + (concat "mail-header-" (downcase field)))))) ((when (setq extras (member (downcase field) (mapcar (lambda (header) |