1128 |
(nntp-kill-buffer pbuffer)) |
(nntp-kill-buffer pbuffer)) |
1129 |
(when (and (buffer-name pbuffer) |
(when (and (buffer-name pbuffer) |
1130 |
process) |
process) |
1131 |
(process-kill-without-query process) |
(gnus-set-process-query-on-exit-flag process nil) |
1132 |
(if (and (nntp-wait-for process "^2.*\n" buffer nil t) |
(if (and (nntp-wait-for process "^2.*\n" buffer nil t) |
1133 |
(memq (process-status process) '(open run))) |
(memq (process-status process) '(open run))) |
1134 |
(prog1 |
(prog1 |
1162 |
(format-spec-make |
(format-spec-make |
1163 |
?s nntp-address |
?s nntp-address |
1164 |
?p nntp-port-number))))) |
?p nntp-port-number))))) |
1165 |
(process-kill-without-query proc) |
(gnus-set-process-query-on-exit-flag proc nil) |
1166 |
(save-excursion |
(save-excursion |
1167 |
(set-buffer buffer) |
(set-buffer buffer) |
1168 |
(let ((nntp-connection-alist (list proc buffer nil))) |
(let ((nntp-connection-alist (list proc buffer nil))) |
1173 |
|
|
1174 |
(defun nntp-open-tls-stream (buffer) |
(defun nntp-open-tls-stream (buffer) |
1175 |
(let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number))) |
(let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number))) |
1176 |
(process-kill-without-query proc) |
(gnus-set-process-query-on-exit-flag proc nil) |
1177 |
(save-excursion |
(save-excursion |
1178 |
(set-buffer buffer) |
(set-buffer buffer) |
1179 |
(let ((nntp-connection-alist (list proc buffer nil))) |
(let ((nntp-connection-alist (list proc buffer nil))) |