/[emacs]/emacs/lisp/gnus/nntp.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nntp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16.4.2 by miles, Tue Oct 14 23:34:51 2003 UTC revision 1.16.4.3 by miles, Tue Jul 6 10:23:36 2004 UTC
# Line 174  server there that you can connect to.  S Line 174  server there that you can connect to.  S
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    
# Line 223  noticing asynchronous data.") Line 224  noticing asynchronous data.")
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
# Line 928  password contained in '~/.nntp-authinfo' Line 929  password contained in '~/.nntp-authinfo'
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)))))

Legend:
Removed from v.1.16.4.2  
changed lines
  Added in v.1.16.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26