diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-06-29 12:49:35 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-06-29 12:49:35 +0000 |
| commit | 86a28f95288c9b705f4df6c51635216358c61b3f (patch) | |
| tree | 87f790aed2b021c47b231855d28d5115a4bc24cb /lisp/gnus | |
| parent | da9b82bb91d1e08eb41b49362d1327848c865e40 (diff) | |
| download | emacs-86a28f95288c9b705f4df6c51635216358c61b3f.tar.gz | |
(nntp-authinfo-file): Add :group 'nntp.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/nntp.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 8791c652a45..5722ba8456a 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -174,7 +174,8 @@ server there that you can connect to. See also (string :format "Login: %v")) (cons :format "%v" (const :format "" "password") - (string :format "Password: %v"))))))) + (string :format "Password: %v")))))) + :group 'nntp) @@ -223,7 +224,7 @@ noticing asynchronous data.") (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 @@ password contained in '~/.nntp-authinfo'." (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))))) |