Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make gnus-alter-articles-to-read-function a constant lambda

Browse source 
* 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.
This commit is contained in:
Eric Abrahamsen 2017-12-28 12:04:13 -08:00
parent 65bc9c6219
commit ace8f2ed4d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/gnus-sum.el
View file

@ -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