diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-01 00:01:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-01 00:01:59 +0200 |
| commit | 2a2e7e5466ed229feb2b4cc062c2519cd51f731f (patch) | |
| tree | 9994399a1d089180b1a634d3ec8ec3da6ab82f3e /lisp/gnus | |
| parent | 4ca3cf996e4a2c278322091d7d17e7b0d935aa4d (diff) | |
| download | emacs-2a2e7e5466ed229feb2b4cc062c2519cd51f731f.tar.gz | |
Adjust the fully qualified host name when nothing is set
* doc/misc/message.texi (News Headers): Adjust index.
* lisp/gnus/message.el (message-check-news-header-syntax): Adjust check.
(message-make-fqdn): Be less hilarious.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 9baf09b0268..bcbf7476715 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5357,7 +5357,7 @@ Otherwise, generate and save a value for `canlock-password' first." ;; Check "Shoot me". (message-check 'shoot (if (re-search-forward - "Message-ID.*.i-did-not-set--mail-host-address--so-tickle-me" nil t) + "Message-ID.*.mail-host-address-is-not-set" nil t) (y-or-n-p "You appear to have a misconfigured system. Really post? ") t)) ;; Check for Approved. @@ -6068,8 +6068,7 @@ give as trustworthy answer as possible." user-domain) ;; Default to this bogus thing. (t - (concat sysname - ".i-did-not-set--mail-host-address--so-tickle-me"))))) + (concat sysname ".mail-host-address-is-not-set"))))) (defun message-make-domain () "Return the domain name." |