;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------------

(require 'luki-lisp)

;; --------------------------------------------------------------------------------

(-> 'gnus-score)

;; --------------------------------------------------------------------------------

(defun gnus-summary-downscore-subject () (i)
  (let ((hdr "subject"))
    (gnus-summary-score-entry
       hdr
       (gnus-summary-header hdr)
       'e
       -1000
       (@f "%d-01-01" (1+ (string-to-number (format-time-string "%Y")))))))

(defalias 'gs #'gnus-summary-downscore-subject)

;; --------------------------------------------------------------------------------

(<- 'gnus-score-incal)