[gnus git] branch master updated: m0-5-307-g48ad2f1 =1= mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix last change

       via  48ad2f12e3a54eb97156c74e3281cf5bf0d0e459 (commit)
      from  b315576d1d87185b01a5b9c2d36565bb635c3b2f (commit)


- Log -----------------------------------------------------------------
commit 48ad2f12e3a54eb97156c74e3281cf5bf0d0e459
Author: Katsumi Yamaoka <[email protected]>
Date:   Fri Apr 26 10:36:24 2013 +0000

    mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix last change

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index ff432fc..ce1cb6c 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -809,7 +809,9 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
      prescript-delay)
     (let ((from (format "%s:%s:%s" server user port))
 	  (mail-source-string (format "pop:%s@%s" user server))
-	  (process-environment (append (list (concat "MAILHOST=" server))
+	  (process-environment (if server
+				   (append (list (concat "MAILHOST=" server))
+					   process-environment)
 				       process-environment))
 	  result)
       (when (eq authentication 'password)
@@ -877,7 +879,9 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
   (mail-source-bind (pop source)
     (let ((from (format "%s:%s:%s" server user port))
 	  (mail-source-string (format "pop:%s@%s" user server))
-	  (process-environment (append (list (concat "MAILHOST=" server))
+	  (process-environment (if server
+				   (append (list (concat "MAILHOST=" server))
+					   process-environment)
 				       process-environment))
 	  result)
       (when (eq authentication 'password)

-----------------------------------------------------------------------
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/mail-source.el |   12 ++++++++----
 1 files changed, 8 insertions(+), 4 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