summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--init.org20
1 files changed, 15 insertions, 5 deletions
diff --git a/init.org b/init.org
index a8dddd0..5157463 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