[Emacs-diffs] Changes to emacs/lisp/gnus/nntp.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/gnus/nntp.el
diff -c emacs/lisp/gnus/nntp.el:1.19.4.1 emacs/lisp/gnus/nntp.el:1.19.4.2
*** emacs/lisp/gnus/nntp.el:1.19.4.1    Fri Mar 12 00:03:11 2004
--- emacs/lisp/gnus/nntp.el     Tue Jun 29 16:45:23 2004
***************
*** 174,180 ****
                                          (string :format "Login: %v"))
                                    (cons :format "%v"
                                          (const :format "" "password")
!                                         (string :format "Password: %v")))))))
  
  
  
--- 174,181 ----
                                          (string :format "Login: %v"))
                                    (cons :format "%v"
                                          (const :format "" "password")
!                                         (string :format "Password: %v"))))))
!   :group 'nntp)
  
  
  
***************
*** 223,229 ****
  (defvar nntp-async-timer nil)
  (defvar nntp-async-process-list nil)
  
! (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
--- 224,230 ----
  (defvar nntp-async-timer nil)
  (defvar nntp-async-process-list nil)
  
! (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,937 ****
  
  (defun nntp-open-ssl-stream (buffer)
    (let* ((process-connection-type nil)
!        (proc (start-process "nntpd" buffer 
                              shell-file-name
                              shell-command-switch
!                             (format-spec nntp-ssl-program 
                                           (format-spec-make
                                            ?s nntp-address
                                            ?p nntp-port-number)))))
--- 929,938 ----
  
  (defun nntp-open-ssl-stream (buffer)
    (let* ((process-connection-type nil)
!        (proc (start-process "nntpd" buffer
                              shell-file-name
                              shell-command-switch
!                             (format-spec nntp-ssl-program
                                           (format-spec-make
                                            ?s nntp-address
                                            ?p nntp-port-number)))))