From: Alex Bochannek <alex@bochannek.com>
Date: Sat, 12 Sep 2020 12:04:02 +0000 (+0200)
Subject: Support scoring on article age interactively in Gnus
X-Git-Tag: emacs-28.0.90~6112
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c3f3bf25623c936ca07249203147ae0332d64ed;p=emacs.git

Support scoring on article age interactively in Gnus

* lisp/gnus/gnus-score.el (gnus-summary-score-entry): Support
scoring on article age in interactive scoring (bug#43270).
---

diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 6a0e8ceb998..ffc6b8ca34e 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -862,6 +862,18 @@ If optional argument `EXTRA' is non-nil, it's a non-standard overview header."
 	    (setq match (string-to-number match)))
       (set-text-properties 0 (length match) nil match))
 
+    ;; Modify match and type for article age scoring.
+    (if (string= "date" (nth 0 (assoc header gnus-header-index)))
+	(let ((age (string-to-number match)))
+	  (if (or (< age 0)
+		  (string= "0" match))
+	      (user-error "Article age must be a positive number"))
+	  (setq match age
+		type (cond ((eq type 'after)
+			    '<)
+			   ((eq type 'before)
+			    '>)))))
+
     (unless (eq date 'now)
       ;; Add the score entry to the score file.
       (when (= score gnus-score-interactive-default-score)