# HG changeset patch # User Kim F. Storm # Date 1088513375 0 # Node ID fede5cef1a1e052902d7419872eeafc8b3b6c736 # Parent 5716fec2dbc0d0de1146d8db5157a408601aa622 (nntp-authinfo-file): Add :group 'nntp. diff -r 5716fec2dbc0 -r fede5cef1a1e lisp/gnus/nntp.el --- 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)))))