From 1fe0e9b30ccdd5a65bb0aa419e50a46782d4dc24 Mon Sep 17 00:00:00 2001 Message-Id: <1fe0e9b30ccdd5a65bb0aa419e50a46782d4dc24.1718454307.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sat, 25 Apr 2020 00:30:51 +0100 Subject: [PATCH] dot/gnus-local.el.distorted: Refactor the posting-style for `crap.*'. Organization: Straylight/Edgeware From: Mark Wooding Capture the mailbox name first, then build the sender address. --- dot/gnus-local.el.distorted | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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:" -- [mdw]