[emacs/{gnus,message}] set custom fqdn for outgoing gnu messages

in order to customize generated Message-ID

diff --git a/init.org b/init.org
index 503e0fd..97ad67d 100644 (file)
--- a/init.org
+++ b/init.org
@@ -2372,7 +2372,8 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
            (body "\nBest,\namin\n")
            (eval (setq a/message-cite-say-hi t)))
           ("gnu.*"
            (body "\nBest,\namin\n")
            (eval (setq a/message-cite-say-hi t)))
           ("gnu.*"

-           (address "bandali@gnu.org"))
+           (address "bandali@gnu.org")
+           (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))

           ((header "subject" "ThankCRM")
            (to "webmasters-comment@gnu.org")
            (body "\nAdded  to 2019supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
           ((header "subject" "ThankCRM")
            (to "webmasters-comment@gnu.org")
            (body "\nAdded  to 2019supporters.html.\n\nMoving to campaigns.\n\n-amin\n")