andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust the fully qualified host name when nothing is set

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-08-01 00:01:59 +02:00
parent 4ca3cf996e
commit 2a2e7e5466
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
doc/misc/message.texi
View file

@ -2084,7 +2084,7 @@ This optional header will be computed by Message.
@vindex user-mail-address
@findex system-name
@cindex Sun
@cindex i-did-not-set--mail-host-address--so-tickle-me
@cindex mail-host-address-is-not-set
This required header will be generated by Message. A unique ID will be
created based on the date, time, user name (for the local part) and the
domain part. For the domain part, message will look (in this order) at

5
lisp/gnus/message.el
View file

@ -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."