Mercurial > emacs
changeset 26794:535af4b15059
(popmail): Allow mailbox specifications of the
form `po:username:hostname'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 10 Dec 1999 09:53:01 +0000 |
| parents | ddb7b0201ffb |
| children | 30686fc6c31e |
| files | lib-src/movemail.c |
| diffstat | 1 files changed, 20 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/movemail.c Fri Dec 10 08:55:12 1999 +0000 +++ b/lib-src/movemail.c Fri Dec 10 09:53:01 1999 +0000 @@ -685,8 +685,20 @@ char obuffer[BUFSIZ]; char Errmsg[80]; -popmail (user, outfile, preserve, password, reverse_order) - char *user; +/* + * The full legal syntax for a POP mailbox specification for movemail + * is "po:username:hostname". The ":hostname" is optional; if it is + * omitted, the MAILHOST environment variable will be consulted. Note + * that by the time popmail() is called the "po:" has been stripped + * off of the front of the mailbox name. + * + * If the mailbox is in the form "po:username:hostname", then it is + * modified by this function -- the second colon is replaced by a + * null. + */ + +popmail (mailbox, outfile, preserve, password, reverse_order) + char *mailbox; char *outfile; int preserve; char *password; @@ -699,8 +711,13 @@ char *getenv (); popserver server; int start, end, increment; + char *user, *hostname; - server = pop_open (0, user, password, POP_NO_GETPASS); + user = mailbox; + if ((hostname = index(mailbox, ':'))) + *hostname++ = '\0'; + + server = pop_open (hostname, user, password, POP_NO_GETPASS); if (! server) { error ("Error connecting to POP server: %s", pop_error);