Commit 57829a28 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

lisp/gnus/mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix again

parent 03fdf5ca
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment