diff options
| author | Charles.Forsyth <devnull@localhost> | 2006-12-23 00:30:12 +0000 |
|---|---|---|
| committer | Charles.Forsyth <devnull@localhost> | 2006-12-23 00:30:12 +0000 |
| commit | 6e425a9de8c003b5a733621a6b6730ec3cc902b8 (patch) | |
| tree | 314123bcab78ff295f38f85f31dc141e5fe22d15 /appl/lib/pop3.b | |
| parent | 74a4d8c26dd3c1e9febcb717cfd6cb6512991a7a (diff) | |
20061220
Diffstat (limited to 'appl/lib/pop3.b')
| -rw-r--r-- | appl/lib/pop3.b | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/appl/lib/pop3.b b/appl/lib/pop3.b index 18e90525..4081b279 100644 --- a/appl/lib/pop3.b +++ b/appl/lib/pop3.b @@ -30,12 +30,9 @@ open(user, password, server : string): (int, string) } if (conn) return (-1, "connection is already open"); - if (server == nil) { - server = defaultserver(); - if (server == nil) - return (-1, "no default mail server"); - } - (ok, c) := sys->dial ("tcp!" + server + "!110", nil); + if (server == nil) + server = "$pop3"; + (ok, c) := sys->dial ("net!" + server + "!110", nil); if (ok < 0) return (-1, "dialup failed"); ibuf = bufio->fopen(c.dfd, Bufio->OREAD); @@ -256,11 +253,6 @@ mcmd(s : string) : (int, string) return (-1, r); } -defaultserver() : string -{ - return "$pop3"; -} - rev1(l1 : list of int) : list of int { l2 : list of int; |