dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove gnus-alias config; it didn't seem to be helping

Browse Source
This commit is contained in:
Adam Goldsmith 2023-01-01 22:07:57 -05:00
parent 2e668a314b
commit 1b959ae319
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
.emacs.d/init.el
View File

@ -910,32 +910,6 @@
("k" . previous-line) ("k" . previous-line)
("N" . nm-sticky-tag-and-next)) ("N" . nm-sticky-tag-and-next))
:config :config
(use-package gnus-alias :ensure :demand
:hook (message-mode . gnus-alias-init)
:config
(defun ga-id (alias &rest args)
(list alias
(plist-get args :refers-to)
(plist-get args :from)
(plist-get args :organization)
(plist-get args :extra-headers)
(plist-get args :body)
(plist-get args :signature)))
(setq
gnus-alias-identity-alist
(list
(ga-id "main" :from "Adam Goldsmith <adam@adamgoldsmith.name>")
(ga-id "kc1gdw" :from "Adam Goldsmith <kc1gdw@adamgoldsmith.name>")
(ga-id "cms" :from "Adam Goldsmith <adam@claremontmakerspace.org>")
(ga-id "wpi" :from "Adam Goldsmith <asgoldsmith@wpi.edu>")
(ga-id "gmail" :from "Adam Goldsmith <adamgoldsmith1217@gmail.com>")))
(setq
gnus-alias-identity-rules
'(("tsrc" ("any" "tsrc\\@tsrc\\.groups\\.io" both) "kc1gdw")
("kc1gdw" ("any" "kc1gdw\\@adamgoldsmith\\.name" both) "kc1gdw")
("cms" ("any" "adam\\@claremontmakerspace\\.org" both) "cms")
("WPI" ("any" ".*\\@wpi\\.edu" both) "wpi")))
(setq gnus-alias-default-identity "main"))
(defun nm-tag-and-next (tags) (defun nm-tag-and-next (tags)
"Apply some changes to a message, then move to the next line" "Apply some changes to a message, then move to the next line"