diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2017-12-28 12:04:13 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2017-12-28 12:29:54 -0800 |
| commit | ace8f2ed4d6ea49d179333f8e7455e5208417da7 (patch) | |
| tree | 62b0db5666f0a0cc88ba3fe8ae88db64b4973e6d /lisp/gnus/gnus-sum.el | |
| parent | 65bc9c6219a9a8ee8377509da312eeef34fc3eda (diff) | |
| download | emacs-ace8f2ed4d6ea49d179333f8e7455e5208417da7.tar.gz | |
Make gnus-alter-articles-to-read-function a constant lambda
* lisp/gnus/gnus-sum.el (gnus-alter-articles-to-read-function):
Default to a no-op lambda form, mention the use of `add-function' in
the docstring.
* lisp/gnus/gnus-sum.el (gnus-articles-to-read): Check if the option
value is callable.
Diffstat (limited to 'lisp/gnus/gnus-sum.el')
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 4dee306c81b..c4345056349 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -1266,9 +1266,13 @@ For example: ((1 . cn-gb-2312) (2 . big5))." :type 'boolean :group 'gnus-summary-marks) -(defcustom gnus-alter-articles-to-read-function nil - "Function to be called to alter the list of articles to be selected." - :type '(choice (const nil) function) +(defcustom gnus-alter-articles-to-read-function + (lambda (_group article-list) article-list) + "Function to be called to alter the list of articles to be selected. +This option defaults to a lambda form that simply returns the +list of articles unchanged. Use `add-function' to set one or +more custom filter functions." + :type 'function :group 'gnus-summary) (defcustom gnus-orphan-score nil @@ -5914,7 +5918,7 @@ If SELECT-ARTICLES, only select those articles from GROUP." (setq articles (nthcdr (- number select) articles)))) (setq gnus-newsgroup-unselected (gnus-sorted-difference gnus-newsgroup-unreads articles)) - (when gnus-alter-articles-to-read-function + (when (functionp gnus-alter-articles-to-read-function) (setq articles (sort (funcall gnus-alter-articles-to-read-function |