- :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
- (message-mode . flyspell-mode)
- (message-mode . (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))))
- ;; :custom-face
- ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
- ;; (message-header-to ((t (:foreground "#111" :weight normal))))
- ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
- :custom
- (message-elide-ellipsis "[...]\n"))
-
-(use-package footnote
- :after message
- :config
- ;; (setq 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"))
- :bind
- (:map message-mode-map
- :prefix-map b/footnote-prefix-map
- :prefix "C-c f n"
- ("a" . footnote-add-footnote)
- ("b" . footnote-back-to-message)
- ("c" . footnote-cycle-style)
- ("d" . footnote-delete-footnote)
- ("g" . footnote-goto-footnote)
- ("r" . footnote-renumber-footnotes)
- ("s" . footnote-set-style)))
-
-(comment
- (use-package message-x
- :custom
- (message-x-completion-alist
- (quote
- (("\\([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))))))
-
-(comment
- (use-package gnus-harvest
- :commands gnus-harvest-install
- :demand
- :config
- (if (featurep 'message-x)
- (gnus-harvest-install 'message-x)
- (gnus-harvest-install))))
-
-(use-package orgalist
- :after message
- :hook (message-mode . (lambda ()
- ;; work around incompatibility between
- ;; orgalist and yasnippet
- (yas-minor-mode -1)
- (orgalist-mode 1)
- (yas-minor-mode 1))))
+ ;; (custom-set-faces
+ ;; '(message-header-subject
+ ;; ((t (:foreground "#111" :weight semi-bold))))
+ ;; '(message-header-to
+ ;; ((t (:foreground "#111" :weight normal))))
+ ;; '(message-header-cc
+ ;; ((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")))
+
+ ;; orgalist
+ (add-hook 'message-mode-hook
+ (lambda ()
+ ;; work around incompatibility between
+ ;; orgalist and yasnippet
+ (yas-minor-mode -1)
+ (orgalist-mode 1)
+ (yas-minor-mode 1)))
+
+ ;; local key bindings
+ (defvar b/footnote-prefix-map)
+ (define-prefix-command 'b/footnote-prefix-map)
+ (define-key message-mode-map (kbd "C-c f n")
+ 'b/footnote-prefix-map)
+ (define-key b/footnote-prefix-map (kbd "a")
+ #'footnote-add-footnote)
+ (define-key b/footnote-prefix-map (kbd "b")
+ #'footnote-back-to-message)
+ (define-key b/footnote-prefix-map (kbd "c")
+ #'footnote-cycle-style)
+ (define-key b/footnote-prefix-map (kbd "d")
+ #'footnote-delete-footnote)
+ (define-key b/footnote-prefix-map (kbd "g")
+ #'footnote-goto-footnote)
+ (define-key b/footnote-prefix-map (kbd "r")
+ #'footnote-renumber-footnotes)
+ (define-key b/footnote-prefix-map (kbd "s")
+ #'footnote-set-style))
+;; 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)))
+
+;; (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))