mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

Provide better default value for date in Gnus scoring

Browse Source 
Bug#61002, thanks to Kamil Jońca for reporting

* lisp/gnus/gnus-score.el (gnus-summary-score-entry): When scoring on
Date header, the default value for the prompt should be number of days
between the date of the article under point, and "now".
This commit is contained in:
Jakub Ječmínek 2024-02-17 09:34:36 -08:00 committed by Eric Abrahamsen
parent db5e84af20
commit 32c5bdfa97
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/gnus/gnus-score.el
View File

@ -893,9 +893,14 @@ If optional argument `EXTRA' is non-nil, it's a non-standard overview header."
(t "permanent"))
header
(if (< score 0) "lower" "raise"))
(if (numberp match)
(int-to-string match)
match))))
(cond ((numberp match) (int-to-string match))
((string= header "date")
(int-to-string
(-
(/ (car (time-convert (current-time) 1)) 86400)
(/ (car (time-convert (gnus-date-get-time match) 1))
86400))))
(t match)))))
;; If this is an integer comparison, we transform from string to int.
(if (eq (nth 2 (assoc header gnus-header-index)) 'gnus-score-integer)