Mercurial > emacs
comparison lisp/gnus/gnus-score.el @ 50850:7d09b72f86c0
(gnus-score-lower-thread): Don't quote nil and t in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 06 May 2003 17:31:31 +0000 |
| parents | 933ab100fb4a |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 50849:702762701b10 | 50850:7d09b72f86c0 |
|---|---|
| 1493 | 1493 |
| 1494 (defun gnus-score-lower-thread (thread score-adjust) | 1494 (defun gnus-score-lower-thread (thread score-adjust) |
| 1495 "Lower the score on THREAD with SCORE-ADJUST. | 1495 "Lower the score on THREAD with SCORE-ADJUST. |
| 1496 THREAD is expected to contain a list of the form `(PARENT [CHILD1 | 1496 THREAD is expected to contain a list of the form `(PARENT [CHILD1 |
| 1497 CHILD2 ...])' where PARENT is a header array and each CHILD is a list | 1497 CHILD2 ...])' where PARENT is a header array and each CHILD is a list |
| 1498 of the same form as THREAD. The empty list `nil' is valid. For each | 1498 of the same form as THREAD. The empty list nil is valid. For each |
| 1499 article in the tree, the score of the corresponding entry in | 1499 article in the tree, the score of the corresponding entry in |
| 1500 `gnus-newsgroup-scored' is adjusted by SCORE-ADJUST." | 1500 `gnus-newsgroup-scored' is adjusted by SCORE-ADJUST." |
| 1501 (while thread | 1501 (while thread |
| 1502 (let ((head (car thread))) | 1502 (let ((head (car thread))) |
| 1503 (if (listp head) | 1503 (if (listp head) |