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

(require 'cl-lib)
(cl-pushnew "."                          load-path :test #'string=)
(cl-pushnew (file-name-concat ".." "ll") load-path :test #'string=)
(require 'll)

(-> 'gnus-cite)

(setq message-cite-prefix-regexp "\\([    ]*\\(\\w\\|[_.]\\)+>+\\|[  ]*>\\)+")
(setq gnus-treat-hide-citation t)

(defun citation-style-f ()
  (let* ((from      (mail-header-from message-reply-headers))
         (from-data (gnus-extract-address-components from))
         (name      (or (1st from-data)
                        ;; if the user hasn't set his name, use the
                        ;; mail username e.g. joe for joe@hacker.com
                        (1st (split-string (2nd from-data) "@"))))
         (cit-str   (@f "%s wrote:\n\n" name)))
    (@i cit-str)))

(setq message-citation-line-function #'citation-style-f)

(defun gnus-article-show-filled-citation () (i)
  (when-let* ((pos (point))
              (btn (get-char-property pos 'button)))
    (widget-button-press pos)
    (save-excursion (gnus-article-fill-cited-article))))

(<- 'gnus-cite-incal)