Parent Directory | Revision Log | Patch
revision 1.4 by lh, Tue Oct 19 21:35:34 2004 UTC | revision 1.5 by jet, Tue Nov 2 09:40:30 2004 UTC | |
---|---|---|
# | Line 47 | Line 47 |
47 | (let ((imap-username user) | (let ((imap-username user) |
48 | (imap-password pass) | (imap-password pass) |
49 | (authenticator (if user 'login 'anonymous))) | (authenticator (if user 'login 'anonymous))) |
(if (stringp port) | ||
(setq port (string-to-int port))) | ||
50 | (nnimap-open-server host | (nnimap-open-server host |
51 | `((nnimap-server-port ,port) | `((nnimap-server-port ,port) |
52 | (nnimap-stream 'network) | (nnimap-stream 'network) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |