diff options
Diffstat (limited to 'lisp/gnus/gnus-kill.el')
| -rw-r--r-- | lisp/gnus/gnus-kill.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el index 95ff5a81a8b..442d26cf4fb 100644 --- a/lisp/gnus/gnus-kill.el +++ b/lisp/gnus/gnus-kill.el @@ -25,17 +25,10 @@ ;;; Code: -(eval-when-compile (require 'cl)) - (require 'gnus) (require 'gnus-art) (require 'gnus-range) -(defcustom gnus-kill-file-mode-hook nil - "Hook for Gnus kill file mode." - :group 'gnus-score-kill - :type 'hook) - (defcustom gnus-kill-expiry-days 7 "Number of days before expiring unused kill file entries." :group 'gnus-score-kill @@ -357,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)) @@ -607,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) |