From 7d21900cd8ddb62a9577ba43aadaef60f0a54739 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 26 Apr 2013 10:36:36 +0000 Subject: [PATCH] lisp/gnus/mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix last change --- lisp/gnus/mail-source.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index ff432fc39d8..ce1cb6c89c8 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/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 + (append (list (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 + (append (list (concat "MAILHOST=" server)) + process-environment) + process-environment)) result) (when (eq authentication 'password) (setq password -- 2.11.4.GIT