From: Amin Bandali Date: Fri, 7 Dec 2018 03:03:30 +0000 (-0500) Subject: [emacs/{gnus,message}] tweak posting and citation styles X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/b3a673f80db5bbcd920f1883b4ffbef891802d64?hp=0222fcc1771a8c5bf465370c8fcda57103f935af [emacs/{gnus,message}] tweak posting and citation styles --- 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