diff options
| author | Amin Bandali <bandali@gnu.org> | 2018-12-06 22:03:30 -0500 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2018-12-06 22:03:30 -0500 |
| commit | b3a673f80db5bbcd920f1883b4ffbef891802d64 (patch) | |
| tree | bac7b101b3cf903432fa4827a3cb7211d721b5ee | |
| parent | 0222fcc1771a8c5bf465370c8fcda57103f935af (diff) | |
| download | configs-b3a673f80db5bbcd920f1883b4ffbef891802d64.tar.gz configs-b3a673f80db5bbcd920f1883b4ffbef891802d64.tar.xz configs-b3a673f80db5bbcd920f1883b4ffbef891802d64.zip | |
[emacs/{gnus,message}] tweak posting and citation styles
| -rw-r--r-- | init.org | 20 |
1 files changed, 15 insertions, 5 deletions
@@ -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 |