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

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

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

(-> '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) "@"))))
         (citation-string (@f "%s wrote:\n\n" name)))
    (insert citation-string)))

(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)

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