[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 6519df8: Make fully qualified domain names more ful
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 6519df8: Make fully qualified domain names more fully qualified |
Date: |
Wed, 13 Sep 2017 12:09:06 -0400 (EDT) |
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'.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 6519df8: Make fully qualified domain names more fully qualified,
Lars Ingebrigtsen <=