[gnus git] branch master updated: m0-11-104-g01e0621 =1= system-name's returned value can vary

       via  01e0621bafe60ef8a168eaca3b116cb4cbfdf566 (commit)
      from  1ef3856f4624d254d6491bf6b4d2bd158a04325a (commit)


- Log -----------------------------------------------------------------
commit 01e0621bafe60ef8a168eaca3b116cb4cbfdf566
Author: Paul Eggert <[email protected]>
Date:   Tue Dec 30 14:18:24 2014 +0000

    system-name's returned value can vary
    
    Also, the system-name variable is now obsolete.
    Fixes Bug#19438.
    * message.el (message-make-fqdn):
    * nnvirtual.el (nnvirtual-retrieve-headers)
    (nnvirtual-update-xref-header):
    Prefer (system-name) to system-name, and avoid naming
    locals 'system-name'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7ad893..f7464fb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2014-12-29  Paul Eggert  <[email protected]>
+
+	system-name's returned value can vary
+	Also, the system-name variable is now obsolete.
+	Fixes Bug#19438.
+	* message.el (message-make-fqdn):
+	* nnvirtual.el (nnvirtual-retrieve-headers)
+	(nnvirtual-update-xref-header):
+	Prefer (system-name) to system-name, and avoid naming
+	locals 'system-name'.
+
 2014-12-29  Lars Ingebrigtsen  <[email protected]>
 
 	* mm-decode.el (mm-shr): Bind `shr-width' to `fill-column' so that
diff --git a/lisp/message.el b/lisp/message.el
index 8fea926..b3b9828 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5893,7 +5893,7 @@ give as trustworthy answer as possible."
 
 (defun message-make-fqdn ()
   "Return user's fully qualified domain name."
-  (let* ((system-name (system-name))
+  (let* ((sysname (system-name))
 	 (user-mail (message-user-mail-address))
 	 (user-domain
 	  (if (and user-mail
@@ -5907,10 +5907,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)
-     ((and (string-match message-valid-fqdn-regexp system-name)
-	   (not (string-match message-bogus-system-names system-name)))
+     ((and (string-match message-valid-fqdn-regexp sysname)
+	   (not (string-match message-bogus-system-names sysname)))
       ;; `system-name' returned the right result.
-      system-name)
+      sysname)
      ;; Try `mail-host-address'.
      ((and (boundp 'mail-host-address)
 	   (stringp mail-host-address)
@@ -5925,7 +5925,7 @@ give as trustworthy answer as possible."
       user-domain)
      ;; Default to this bogus thing.
      (t
-      (concat system-name
+      (concat sysname
 	      ".i-did-not-set--mail-host-address--so-tickle-me")))))
 
 (defun message-make-domain ()
diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index f67943a..61bf556 100644
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -99,7 +99,7 @@ component group will show up when you enter the virtual group.")
 	(let ((vbuf (nnheader-set-temp-buffer
 		     (get-buffer-create " *virtual headers*")))
 	      (carticles (nnvirtual-partition-sequence articles))
-	      (system-name (system-name))
+	      (sysname (system-name))
 	      cgroup carticle article result prefix)
 	  (while carticles
 	    (setq cgroup (caar carticles))
@@ -151,7 +151,7 @@ component group will show up when you enter the virtual group.")
 		  ;; and clean up the xrefs.
 		  (princ article nntp-server-buffer)
 		  (nnvirtual-update-xref-header cgroup carticle
-						prefix system-name)
+						prefix sysname)
 		  (forward-line 1))
 		)
 
@@ -378,7 +378,7 @@ component group will show up when you enter the virtual group.")
       (mapc 'nnheader-insert-nov headers))))
 
 
-(defun nnvirtual-update-xref-header (group article prefix system-name)
+(defun nnvirtual-update-xref-header (group article prefix sysname)
   "Edit current NOV header in current buffer to have an xref to the component group, and also server prefix any existing xref lines."
   ;; Move to beginning of Xref field, creating a slot if needed.
   (beginning-of-line)
@@ -393,7 +393,7 @@ component group will show up when you enter the virtual group.")
     (forward-char -1)
     (delete-char 1))
 
-  (insert "Xref: " system-name " " group ":")
+  (insert "Xref: " sysname " " group ":")
   (princ article (current-buffer))
   (insert " ")
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |   11 +++++++++++
 lisp/message.el   |   10 +++++-----
 lisp/nnvirtual.el |    8 ++++----
 3 files changed, 20 insertions(+), 9 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project