procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-04-26 10:36:36 +00:00
parent 9b7382d618
commit 03fdf5caa8
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/mail-source.el
View file

@ -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