From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 24 Apr 2020 23:30:51 +0000 (+0100)
Subject: dot/gnus-local.el.distorted: Refactor the posting-style for `crap.*'.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/1fe0e9b30ccdd5a65bb0aa419e50a46782d4dc24

dot/gnus-local.el.distorted: Refactor the posting-style for `crap.*'.

Capture the mailbox name first, then build the sender address.
---

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index d25a9ba..e7e7f52 100644
--- a/dot/gnus-local.el.distorted
+++ b/dot/gnus-local.el.distorted
@@ -114,9 +114,10 @@
 ;; Mail sent to `mdw-nospam-THING' should appear to come from this address.
 (setq gnus-posting-styles
       '(("^nnimap\\+distorted:crap\\."
-	 (address (concat "mdw-nospam-"
-			  (substring gnus-newsgroup-name (match-end 0))
-			  "@distorted.org.uk")))
+	 (address (let* ((mailbox (substring gnus-newsgroup-name
+					     (match-end 0)))
+			 (entry (assoc mailbox mdw-odin-sender-alist)))
+		    (concat "mdw-nospam-" mailbox "@distorted.org.uk"))))
 	("^nnimap\\+[^:]+-chiark:"
 	 ("X-mdw-Send-Mail" "chiark-smtp"))
 	("^nnimap\\+google:"