X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/1bc922707450afdf5036df3cb6c100fc16c60047..535c73d96e2cf9adbd2dfa31d87f4b7960359926:/.emacs.d/lisp/bandali-message.el

diff --git a/.emacs.d/lisp/bandali-message.el b/.emacs.d/lisp/bandali-message.el
index 3f064b6..3ea8643 100644
--- a/.emacs.d/lisp/bandali-message.el
+++ b/.emacs.d/lisp/bandali-message.el
@@ -44,11 +44,8 @@
       (message-yank-prefix  "> ")
       (message-yank-cited-prefix  ">")
       (message-yank-empty-prefix  ">")
-      (message-citation-line-format
-       (if b/message-cite-say-hi
-           (concat "Hi %F,\n\n" b/message-cite-style-format)
-         b/message-cite-style-format)))
-    "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
+      (message-citation-line-format b/message-cite-style-format))
+    "Citation style based on Mozilla Thunderbird's.  Use with message-cite-style.")
   (setq
    message-elide-ellipsis "[...]\n"
    ;; message-cite-style 'message-cite-style-bandali
@@ -62,7 +59,16 @@
    message-subscribed-address-functions
    '(gnus-find-subscribed-addresses)
    message-dont-reply-to-names
-   "\\(\\(bandali@kelar\\.org\\)\\|\\(amin@shemshak\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\|amin\\.bandali@savoirfairelinux\\.com\\)")
+   (mapconcat
+    #'identity
+    '("\\(bandali\\|mab\\|aminb?\\)@gnu\\.org"
+      "bandali@kelar\\.org"
+      "amin@shemshak\\.org"
+      "a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca"
+      "amin\\.bandali@savoirfairelinux\\.com"
+      "\\(amin\\.\\)?bandali@canonical\\.com"
+      "bandali@ubuntu\\.com")
+    "\\|"))
   ;; (custom-set-faces
   ;;  '(message-header-subject
   ;;    ((t (:foreground "#111" :weight semi-bold))))
@@ -71,12 +77,6 @@
   ;;  '(message-header-cc
   ;;    ((t (:foreground "#333" :weight normal))))
 
-  ;; footnote
-  ;; (with-eval-after-load 'footnote
-  ;;   (setq footnote-start-tag ""
-  ;;         footnote-end-tag   ""
-  ;;         footnote-style     'unicode))
-
   ;; custom newline & reformat function
   (defun b/message-newline-or-asterism (arg)
     "Create newlines per my liking or insert asterism if ARG is
@@ -93,28 +93,11 @@ non-nil."
     (kbd "M-RET") #'b/message-newline-or-asterism)
 
   ;; local key bindings
-  (define-key message-mode-map
-    [remap next-line] #'mail-abbrev-next-line)
-  (define-key message-mode-map
-    [remap end-of-buffer] #'mail-abbrev-end-of-buffer)
-  (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))
+  ;; (define-key message-mode-map
+  ;;   [remap next-line] #'mail-abbrev-next-line)
+  ;; (define-key message-mode-map
+  ;;             [remap end-of-buffer] #'mail-abbrev-end-of-buffer)
+  )
 ;; hooks
 ;; (add-hook 'message-setup-hook #'mml-secure-message-sign-pgpmime)
 (add-hook 'message-mode-hook #'flyspell-mode)