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 d25a9bae4072c241c280cd02f821ae729a6d2f23..e7e7f52ac7fecfd70654f521606202c09d0626c3 100644 (file)
--- 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:"