;; message-cite-style 'message-cite-style-bandali
message-citation-line-format "%N writes:\n"
message-citation-line-function 'message-insert-formatted-citation-line
+ message-confirm-send t
message-kill-buffer-on-exit t
- message-send-mail-function 'message-send-mail-with-sendmail
- message-sendmail-envelope-from 'header
+ message-send-mail-function #'smtpmail-send-it
message-subscribed-address-functions
'(gnus-find-subscribed-addresses)
message-dont-reply-to-names
;; ((t (:foreground "#333" :weight normal))))
;; footnote
- (with-eval-after-load 'footnote
- ;; (csetq footnote-start-tag ""
- ;; footnote-end-tag ""
- ;; footnote-style 'unicode)
- (when (featurep 'which-key)
- (which-key-add-major-mode-key-based-replacements 'message-mode
- "C-c f n" "footnote")))
+ ;; (with-eval-after-load 'footnote
+ ;; (csetq footnote-start-tag ""
+ ;; footnote-end-tag ""
+ ;; footnote-style 'unicode))
;; orgalist
(add-hook 'message-mode-hook
;; hooks
;; (add-hook 'message-setup-hook #'mml-secure-message-sign-pgpmime)
(add-hook 'message-mode-hook #'flyspell-mode)
-(add-hook 'message-mode-hook
- (lambda ()
- ;; (setq-local fill-column b/fill-column
- ;; message-fill-column b/fill-column)
- (eval-when-compile (defvar company-idle-delay))
- (make-local-variable 'company-idle-delay)
- (setq company-idle-delay 0.2)))
(add-hook 'message-mode-hook
(lambda ()
(local-unset-key (kbd "C-c C-s"))))
-;; (with-eval-after-load 'message-x
-;; (csetq
-;; message-x-completion-alist
-;; '(("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:"
-;; . gnus-harvest-find-address)
-;; ((if
-;; (boundp
-;; (quote message-newgroups-header-regexp))
-;; message-newgroups-header-regexp message-newsgroups-header-regexp)
-;; . message-expand-group))))
-
-;; (require 'gnus-harvest)
-;; (if (featurep 'message-x)
-;; (gnus-harvest-install 'message-x)
-;; (gnus-harvest-install))
-
(provide 'bandali-message)
;;; bandali-message.el ends here