diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-04-26 13:56:37 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-04-26 13:56:37 +0000 |
| commit | 57829a28c8888e702643cc4d45d63337d161240f (patch) | |
| tree | bb9d1c0c598149ce0955c7fb56cc4a7c00d8fe44 /lisp/gnus/mail-source.el | |
| parent | 03fdf5caa8e0aca20dc5b84d69067cf4bc6b6a07 (diff) | |
| download | emacs-57829a28c8888e702643cc4d45d63337d161240f.tar.gz | |
lisp/gnus/mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix again
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index ce1cb6c89c8..7da2a0a441d 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/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) |