174 |
(string :format "Login: %v")) |
(string :format "Login: %v")) |
175 |
(cons :format "%v" |
(cons :format "%v" |
176 |
(const :format "" "password") |
(const :format "" "password") |
177 |
(string :format "Password: %v"))))))) |
(string :format "Password: %v")))))) |
178 |
|
:group 'nntp) |
179 |
|
|
180 |
|
|
181 |
|
|
224 |
(defvar nntp-async-timer nil) |
(defvar nntp-async-timer nil) |
225 |
(defvar nntp-async-process-list nil) |
(defvar nntp-async-process-list nil) |
226 |
|
|
227 |
(defvar nntp-ssl-program |
(defvar nntp-ssl-program |
228 |
"openssl s_client -quiet -ssl3 -connect %s:%p" |
"openssl s_client -quiet -ssl3 -connect %s:%p" |
229 |
"A string containing commands for SSL connections. |
"A string containing commands for SSL connections. |
230 |
Within a string, %s is replaced with the server address and %p with |
Within a string, %s is replaced with the server address and %p with |
929 |
|
|
930 |
(defun nntp-open-ssl-stream (buffer) |
(defun nntp-open-ssl-stream (buffer) |
931 |
(let* ((process-connection-type nil) |
(let* ((process-connection-type nil) |
932 |
(proc (start-process "nntpd" buffer |
(proc (start-process "nntpd" buffer |
933 |
shell-file-name |
shell-file-name |
934 |
shell-command-switch |
shell-command-switch |
935 |
(format-spec nntp-ssl-program |
(format-spec nntp-ssl-program |
936 |
(format-spec-make |
(format-spec-make |
937 |
?s nntp-address |
?s nntp-address |
938 |
?p nntp-port-number))))) |
?p nntp-port-number))))) |