X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/2d7a5a85817b1f361a2e1ade61470eaf895c3885..1a5de666921e000b24ed02ffae5a03cc5caddc45:/init.org?ds=sidebyside

diff --git a/init.org b/init.org
index a8dddd0..ced62ea 100644
--- a/init.org
+++ b/init.org
@@ -2218,14 +2218,20 @@ For when I /have to/ use GH.
   (setq gnus-posting-styles
         '((".*"
            (address "amin@bandali.me")
-           (body "\nBest,\namin\n"))
+           (body "\nBest,\namin\n")
+           (signature-file "~/.signature-amin")
+           (eval (setq amin--message-cite-say-hi t)))
           ("gnu.*"
-           (address "bandali@gnu.org"))
+           (address "bandali@gnu.org")
+           (signature-file nil))
           ((header "subject" "ThankCRM")
-           (to "webmasters-comment@gnu.org"))
+           (to "webmasters-comment@gnu.org")
+           (body "\nAdded  to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
+           (eval (setq amin--message-cite-say-hi nil)))
           ("nnimap\\+uwaterloo:.*"
            (address "abandali@uwaterloo.ca")
-           (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
+           (gcc "\"nnimap+uwaterloo:Sent Items\"")
+           (signature-file nil)))))
 
 (use-package gnus-topic
   :hook (gnus-group-mode . gnus-topic-mode))
@@ -2260,6 +2266,7 @@ For when I /have to/ use GH.
 #+begin_src emacs-lisp
 (use-package message
   :config
+  (defconst amin--message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
   (defconst message-cite-style-bandali
     '((message-cite-function  'message-cite-original)
       (message-citation-line-function  'message-insert-formatted-citation-line)
@@ -2267,7 +2274,10 @@ For when I /have to/ use GH.
       (message-yank-prefix  "> ")
       (message-yank-cited-prefix  ">")
       (message-yank-empty-prefix  ">")
-      (message-citation-line-format "Hi %F,\n\nOn %Y-%m-%d %l:%M %p, %N wrote:"))
+      (message-citation-line-format
+       (if amin--message-cite-say-hi
+           (concat "Hi %F,\n\n" amin--message-cite-style-format)
+         amin--message-cite-style-format)))
     "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
   (setq message-cite-style 'message-cite-style-bandali
         message-kill-buffer-on-exit t
@@ -2381,23 +2391,33 @@ Convenient footnotes in =message-mode=.
 ;;   :after ebdb)
 #+end_src
 
-** COMMENT bbdb
+** bbdb
 
-#+begin_comment
+Manually install bbdb (=lisp/bbdb= copied from an ELPA-based setup),
+because installing it from source on Emacs 27 using the following
+submodule configuration for some reason doesn’t work and results in
+very strange errors when using any of the functions.
+
+#+begin_src conf :tangle no
 [submodule "bbdb"]
 	path = lib/bbdb
 	url = https://git.savannah.nongnu.org/git/bbdb.git
-	load-path = lisp/elisp
+	load-path = lisp
 	info-path = doc
 	build-step = ./autogen.sh
-	build-step = ./configure --with-lispdir=elisp
+	build-step = ./configure
 	build-step = make
 	build-step = make install
-#+end_comment
+#+end_src
+
+I tried using =borg-elpa= instead of doing it like this, but it added
+2 seconds to my startup time, which is unacceptable to me.
 
 #+begin_src emacs-lisp
 (use-package bbdb
+  :load-path "lisp/bbdb"
   :init
+  (load (expand-file-name "lisp/bbdb/bbdb-autoloads.el" user-emacs-directory))
   (bbdb-mua-auto-update-init 'message)
   (setq bbdb-mua-auto-update-p 'query)
   (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))