/[emacs]/emacs/lisp/url/url-imap.el
ViewVC logotype

Diff of /emacs/lisp/url/url-imap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26