From 54c5fdfcdcddeabaa068755f52ff6fa01e2d3c33 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 26 Apr 2013 13:56:21 +0000 Subject: [PATCH] mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix again --- lisp/mail-source.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/mail-source.el b/lisp/mail-source.el index ce1cb6c89..7da2a0a44 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -810,8 +810,8 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) (let ((from (format "%s:%s:%s" server user port)) (mail-source-string (format "pop:%s@%s" user server)) (process-environment (if server - (append (list (concat "MAILHOST=" server)) - process-environment) + (cons (concat "MAILHOST=" server) + process-environment) process-environment)) result) (when (eq authentication 'password) @@ -880,8 +880,8 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) (let ((from (format "%s:%s:%s" server user port)) (mail-source-string (format "pop:%s@%s" user server)) (process-environment (if server - (append (list (concat "MAILHOST=" server)) - process-environment) + (cons (concat "MAILHOST=" server) + process-environment) process-environment)) result) (when (eq authentication 'password) -- 2.25.1