diff options
| author | Katsumi Yamaoka | 2013-04-26 10:36:36 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2013-04-26 10:36:36 +0000 |
| commit | 03fdf5caa8e0aca20dc5b84d69067cf4bc6b6a07 (patch) | |
| tree | dc9d138ff588c1a9793e9da1d334723e3eb3aa7d | |
| parent | 9b7382d618a088e71c0a4b4cc2eebb5a17e3bf6f (diff) | |
| download | emacs-03fdf5caa8e0aca20dc5b84d69067cf4bc6b6a07.tar.gz emacs-03fdf5caa8e0aca20dc5b84d69067cf4bc6b6a07.zip | |
lisp/gnus/mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Fix last change
| -rw-r--r-- | lisp/gnus/mail-source.el | 12 |
1 files 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) | |||
| 809 | prescript-delay) | 809 | prescript-delay) |
| 810 | (let ((from (format "%s:%s:%s" server user port)) | 810 | (let ((from (format "%s:%s:%s" server user port)) |
| 811 | (mail-source-string (format "pop:%s@%s" user server)) | 811 | (mail-source-string (format "pop:%s@%s" user server)) |
| 812 | (process-environment (append (list (concat "MAILHOST=" server)) | 812 | (process-environment (if server |
| 813 | process-environment)) | 813 | (append (list (concat "MAILHOST=" server)) |
| 814 | process-environment) | ||
| 815 | process-environment)) | ||
| 814 | result) | 816 | result) |
| 815 | (when (eq authentication 'password) | 817 | (when (eq authentication 'password) |
| 816 | (setq password | 818 | (setq password |
| @@ -877,8 +879,10 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) | |||
| 877 | (mail-source-bind (pop source) | 879 | (mail-source-bind (pop source) |
| 878 | (let ((from (format "%s:%s:%s" server user port)) | 880 | (let ((from (format "%s:%s:%s" server user port)) |
| 879 | (mail-source-string (format "pop:%s@%s" user server)) | 881 | (mail-source-string (format "pop:%s@%s" user server)) |
| 880 | (process-environment (append (list (concat "MAILHOST=" server)) | 882 | (process-environment (if server |
| 881 | process-environment)) | 883 | (append (list (concat "MAILHOST=" server)) |
| 884 | process-environment) | ||
| 885 | process-environment)) | ||
| 882 | result) | 886 | result) |
| 883 | (when (eq authentication 'password) | 887 | (when (eq authentication 'password) |
| 884 | (setq password | 888 | (setq password |