X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmail-source.el;h=7da2a0a441d4c579e5a9ea46391809768357c130;hb=00222362844ced15662ee8ed81388c3940ceb309;hp=ff432fc39d88d0104137e6829250976ae408b560;hpb=b315576d1d87185b01a5b9c2d36565bb635c3b2f;p=gnus

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index ff432fc39..7da2a0a44 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -809,8 +809,10 @@ 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))
+	  (process-environment (if server
+				   (cons (concat "MAILHOST=" server)
+					 process-environment)
+				 process-environment))
 	  result)
       (when (eq authentication 'password)
 	(setq password
@@ -877,8 +879,10 @@ 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))
+	  (process-environment (if server
+				   (cons (concat "MAILHOST=" server)
+					 process-environment)
+				 process-environment))
 	  result)
       (when (eq authentication 'password)
 	(setq password