diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2017-09-13 18:08:34 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2017-09-13 18:08:51 +0200 |
| commit | 6519df8f5a10826f4a3203aa55da30bca25cb6f1 (patch) | |
| tree | 73c2b10c86f3e5297ba9cc5e6672b8e03c854104 /lisp/gnus | |
| parent | b74d536ed414717e974109f2db67274cba4dcebf (diff) | |
| download | emacs-6519df8f5a10826f4a3203aa55da30bca25cb6f1.tar.gz | |
Make fully qualified domain names more fully qualified
* lisp/gnus/message.el (message-make-fqdn): Don't try to use a
system-name without any periods as a fully qualified domain name.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 214cf61e84d..80f270a0c11 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5778,7 +5778,10 @@ give as trustworthy answer as possible." (not (string-match message-bogus-system-names message-user-fqdn))) ;; `message-user-fqdn' seems to be valid message-user-fqdn) - ((not (string-match message-bogus-system-names sysname)) + ;; A system name without any dots is unlikely to be a good fully + ;; qualified domain name. + ((and (string-match "[.]" sysname) + (not (string-match message-bogus-system-names sysname))) ;; `system-name' returned the right result. sysname) ;; Try `mail-host-address'. |