Mercurial > emacs
changeset 56281:fede5cef1a1e
(nntp-authinfo-file): Add :group 'nntp.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 29 Jun 2004 12:49:35 +0000 |
| parents | 5716fec2dbc0 |
| children | 6927460589c5 |
| files | lisp/gnus/nntp.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/nntp.el Tue Jun 29 12:49:14 2004 +0000 +++ b/lisp/gnus/nntp.el Tue Jun 29 12:49:35 2004 +0000 @@ -174,7 +174,8 @@ (string :format "Login: %v")) (cons :format "%v" (const :format "" "password") - (string :format "Password: %v"))))))) + (string :format "Password: %v")))))) + :group 'nntp) @@ -223,7 +224,7 @@ (defvar nntp-async-timer nil) (defvar nntp-async-process-list nil) -(defvar nntp-ssl-program +(defvar nntp-ssl-program "openssl s_client -quiet -ssl3 -connect %s:%p" "A string containing commands for SSL connections. Within a string, %s is replaced with the server address and %p with @@ -928,10 +929,10 @@ (defun nntp-open-ssl-stream (buffer) (let* ((process-connection-type nil) - (proc (start-process "nntpd" buffer + (proc (start-process "nntpd" buffer shell-file-name shell-command-switch - (format-spec nntp-ssl-program + (format-spec nntp-ssl-program (format-spec-make ?s nntp-address ?p nntp-port-number)))))