;;; mail-source.el --- functions for fetching mail
-;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2014 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news, mail
(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)
(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)