mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

lisp/gnus/mail-source.el (mail-source-fetch-pop, mail-source-check-pop): Don't set the MAILHOST environment variable permanently (Bug#14271)

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-04-26 10:22:07 +00:00
parent 967f2fbb34
commit 9b7382d618
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2013-04-26 Katsumi Yamaoka <yamaoka@jpl.org>
* mail-source.el (mail-source-fetch-pop, mail-source-check-pop):
Don't set the MAILHOST environment variable permanently (Bug#14271).
2013-04-26 Glenn Morris <rgm@gnu.org>
* message.el (message-bury): Revert 2013-03-18 change. (Bug#14117)

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

@ -809,6 +809,8 @@ 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))
result)
(when (eq authentication 'password)
(setq password
@ -816,8 +818,6 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
(cdr (assoc from mail-source-password-cache))
(read-passwd
(format "Password for %s at %s: " user server)))))
(when server
(setenv "MAILHOST" server))
(setq result
(cond
(program
@ -877,6 +877,8 @@ 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))
result)
(when (eq authentication 'password)
(setq password
@ -886,8 +888,6 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
(format "Password for %s at %s: " user server))))
(unless (assoc from mail-source-password-cache)
(push (cons from password) mail-source-password-cache)))
(when server
(setenv "MAILHOST" server))
(setq result
(cond
;; No easy way to check whether mail is waiting for these.