(with-temp-buffer
(buffer-disable-undo)
(insert headers)
- (let ((head (nnheader-parse-naked-head)))
+ (let ((head (nnheader-parse-naked-head uid)))
(mail-header-set-number head uid)
(mail-header-set-chars head chars)
(mail-header-set-lines head lines)
(netrc-machine list
(or nnimap-server-address
nnimap-address)
- port "imap")))
+ port "imap")
+ (netrc-machine list server port "imaps")
+ (netrc-machine list
+ (or nnimap-server-address
+ nnimap-address)
+ port "imaps")))
(user (netrc-get alist "login"))
(passwd (netrc-get alist "password")))
(if (imap-authenticate user passwd nnimap-server-buffer)