procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix up < and > "date" scoring rules in Gnus

Browse source 
* lisp/gnus/gnus-score.el (gnus-score-date): The previous < and >
"date" scoring rules (added in the previous patch) had reversed
logic (bug#43270).

Copyright-paperwork-exempt: yes
This commit is contained in:
Alex Bochannek 2020-09-10 15:16:04 +02:00 • committed by Lars Ingebrigtsen
parent c033bb8648
commit 6c46dddcb2
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/gnus-score.el
View file

@ -1695,9 +1695,10 @@ score in `gnus-newsgroup-scored' by SCORE."
match (gnus-date-iso8601 (nth 0 kill))))
((eq type '<)
(setq type 'after
match-func 'gnus-string>
match-func 'string<
match (gnus-time-iso8601
(time-add (current-time) (* 86400 (nth 0 kill))))))
(time-subtract (current-time)
(* 86400 (nth 0 kill))))))
((eq type 'before)
(setq match-func 'gnus-string>
match (gnus-date-iso8601 (nth 0 kill))))
@ -1705,7 +1706,8 @@ score in `gnus-newsgroup-scored' by SCORE."
(setq type 'before
match-func 'gnus-string>
match (gnus-time-iso8601
(time-add (current-time) (* -86400 (nth 0 kill))))))
(time-subtract (current-time)
(* 86400 (nth 0 kill))))))
((eq type 'at)
(setq match-func 'string=
match (gnus-date-iso8601 (nth 0 kill))))