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

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

(-> 'message)
(-> 'moggle)

(setq mail-header-separator        "---")
(setq message-default-headers      "Mail-Copies-To: never")
(setq message-default-mail-headers "Newsgroups: ")
(setq message-default-news-headers "To: ")
(setq message-subject-trailing-was-query nil)
(setq message-hidden-headers '("^Face"
                               "^Mail-Copies-To"
                               "^References"
                               "^X-Draft-From"
                               "^X-Face"))

(defun remove-empty-headers ()
  (flush-lines "^.+: $" (point-min) (get-header-separator-pos)))

(defun message-yank-subject () (i)
  (save-excursion
    (when-let* ((subj (message-fetch-field "Subject")))
      (message-goto-body)
      (@i (@f "%s\n" subj)))))

(defun message-transpose-headers (hdr1 hdr2)
  (interactive "sheader 1: \nsheader 2: ")
  (save-excursion
    (let ((v1 (or (message-fetch-field hdr1) ""))
          (v2 (or (message-fetch-field hdr2) "")))
      (message-replace-header hdr1 v2 hdr1 t)
      (message-replace-header hdr2 v1 hdr2 t))))

(<- 'message-header)