[Emacs-diffs] master 6519df8: Make fully qualified domain names more fully qualified

[Lars Ingebrigtsen]

branch: master
commit 6519df8f5a10826f4a3203aa55da30bca25cb6f1
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/gnus/message.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 214cf61..80f270a 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'.