Bugs in nntp.el - using nnmail-read-passwd.

Bugs in nntp.el - using nnmail-read-passwd.

[Tatsuya Ichikawa]

[-- Attachment #1: Type: text/plain, Size: 128 bytes --]


  nntp.el in pGnus v0.75 use nnmail-read-passwd to login nntp server.
  This may does not work , So I create following patch.


[-- Attachment #2: pgnus.diff --]
[-- Type: application/octet-stream, Size: 2139 bytes --]

*** nntp.el.orig	Sat Jan 23 23:30:46 1999
--- nntp.el	Mon Feb 08 11:05:56 1999
***************
*** 221,227 ****
  (defvar nntp-async-process-list nil)
  
  (eval-and-compile
!   (autoload 'nnmail-read-passwd "nnmail")
    (autoload 'open-ssl-stream "ssl"))
  
  \f
--- 221,227 ----
  (defvar nntp-async-process-list nil)
  
  (eval-and-compile
!   (autoload 'mail-source-read-passwd "mail-source")
    (autoload 'open-ssl-stream "ssl"))
  
  \f
***************
*** 779,785 ****
         (or passwd
  	   nntp-authinfo-password
  	   (setq nntp-authinfo-password
! 		     (nnmail-read-passwd (format "NNTP (%s@%s) password: "
  						 user nntp-address))))))))))
  
  (defun nntp-send-nosy-authinfo ()
--- 779,785 ----
         (or passwd
  	   nntp-authinfo-password
  	   (setq nntp-authinfo-password
! 		     (mail-source-read-passwd (format "NNTP (%s@%s) password: "
  						 user nntp-address))))))))))
  
  (defun nntp-send-nosy-authinfo ()
***************
*** 789,795 ****
        (nntp-send-command "^3.*\r?\n" "AUTHINFO USER" user)
        (when t				;???Should check if AUTHINFO succeeded
  	(nntp-send-command "^2.*\r?\n" "AUTHINFO PASS"
! 			   (nnmail-read-passwd "NNTP (%s@%s) password: "
  					       user nntp-address))))))
  
  (defun nntp-send-authinfo-from-file ()
--- 789,795 ----
        (nntp-send-command "^3.*\r?\n" "AUTHINFO USER" user)
        (when t				;???Should check if AUTHINFO succeeded
  	(nntp-send-command "^2.*\r?\n" "AUTHINFO PASS"
! 			   (mail-source-read-passwd "NNTP (%s@%s) password: "
  					       user nntp-address))))))
  
  (defun nntp-send-authinfo-from-file ()
***************
*** 1254,1260 ****
  	 proc (concat
  	       (or nntp-telnet-passwd
  		   (setq nntp-telnet-passwd
! 			 (nnmail-read-passwd "Password: ")))
  	       "\n"))
  	(erase-buffer)
  	(nntp-wait-for-string nntp-telnet-shell-prompt)
--- 1254,1260 ----
  	 proc (concat
  	       (or nntp-telnet-passwd
  		   (setq nntp-telnet-passwd
! 			 (mail-source-read-passwd "Password: ")))
  	       "\n"))
  	(erase-buffer)
  	(nntp-wait-for-string nntp-telnet-shell-prompt)

-- 
  Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>