640 |
(let* ((port (or port imap-default-ssl-port)) |
(let* ((port (or port imap-default-ssl-port)) |
641 |
(coding-system-for-read imap-coding-system-for-read) |
(coding-system-for-read imap-coding-system-for-read) |
642 |
(coding-system-for-write imap-coding-system-for-write) |
(coding-system-for-write imap-coding-system-for-write) |
643 |
(process-connection-type nil) |
(process-connection-type imap-process-connection-type) |
644 |
|
(set-process-query-on-exit-flag |
645 |
|
(if (fboundp 'set-process-query-on-exit-flag) |
646 |
|
'set-process-query-on-exit-flag |
647 |
|
'process-kill-without-query)) |
648 |
process) |
process) |
649 |
(when (progn |
(when (progn |
650 |
(setq process (start-process |
(setq process (start-process |
654 |
(format-spec-make |
(format-spec-make |
655 |
?s server |
?s server |
656 |
?p (number-to-string port))))) |
?p (number-to-string port))))) |
657 |
(process-kill-without-query process) |
(funcall set-process-query-on-exit-flag process nil) |
658 |
process) |
process) |
659 |
(with-current-buffer buffer |
(with-current-buffer buffer |
660 |
(goto-char (point-min)) |
(goto-char (point-min)) |