Update 17 drones and commit a bunch of changes

[~bandali/configs] / lisp / bandali-message.el

diff --git a/lisp/bandali-message.el b/lisp/bandali-message.el
index be88049..c063bae 100644 (file)
--- a/lisp/bandali-message.el
+++ b/lisp/bandali-message.el
@@ -57,7 +57,7 @@
         message-subscribed-address-functions
         '(gnus-find-subscribed-addresses)
         message-dont-reply-to-names
-        "\\(\\(amin@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\)")
+        "\\(\\(amin@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|bandali@fsf\\.org\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\)")
   ;; (require 'company-ebdb)
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
@@ -76,10 +76,13 @@
 
 (use-package footnote
   :after message
-  ;; :config
+  :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
@@ -92,8 +95,6 @@
         ("r" . footnote-renumber-footnotes)
         ("s" . footnote-set-style)))
 
-(use-package message-x)
-
 (comment
   (use-package message-x
     :custom
@@ -115,5 +116,14 @@
         (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))))
+
 (provide 'bandali-message)
 ;;; bandali-message.el ends here