Ridiculous training gear for users to prevent too frequent activation of Gnus

gnus-resume.el

(defun gnus-resume (&optional force)
  "Resume the last Gnus session or start a Gnus session."
  (interactive "P")
  (when (or force
            (memq major-mode '(gnus-group-mode gnus-summary-mode gnus-article-mode message-mode lsdb-mode))
            (let* ((key (+ ?a (random 26)))
                   (inp (read-char (format "Really start or resume Gnus session?  Type \"%s\": " (string key)))))
              (or (char-equal key inp)
                  (progn
                    (message "No reading news is good news")
                    (sit-for 3)
                    (message "")
                    nil))))
    (if (and (boundp 'gnus-group-buffer)
             (get-buffer (symbol-value 'gnus-group-buffer))
             (fboundp 'gnus-alive-p)
             (gnus-alive-p))
        (switch-to-buffer (symbol-value 'gnus-group-buffer))
      (gnus))))