;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/gnus/gnus-score-incal.el

(require 'gnus-score)

(defun next-year ()
  (format "%d-01-01" (1+ (string-to-number (format-time-string "%Y")))) )

(defun gnus-summary-downscore-subject ()
  (interactive)
  (let ((hdr "subject"))
    (gnus-summary-score-entry
       hdr
       (gnus-summary-header hdr)
       'e
       -1000
       (next-year) )))

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

(provide 'gnus-score-incal)