*** nntp.el	1998/02/08 16:27:15	1.1
--- nntp.el	1998/02/08 16:28:08
***************
*** 729,734 ****
--- 729,752 ----
         "^.*\r?\n" "AUTHINFO PASS"
         (buffer-substring (point) (progn (end-of-line) (point)))))))
  
+ (defun nntp-force-unsecure-authinfo ()
+   "If the symbols `authuser' and `authpass' are defined in Group Parameters,
+ send AUTHINFO to the nntp server, whether it asks for it or not.
+ This function is supposed to be called from `nntp-server-opened-hook'.
+ Note that this is not very secure.  Its primary use, is allowing access
+ to unlisted groups on a server that doesn't normally request
+ authentication"
+   (if (and
+        (gnus-group-find-parameter gnus-newsgroup-name 'authuser)
+        (gnus-group-find-parameter gnus-newsgroup-name 'authpass))
+       (progn
+ 	(nntp-send-command
+ 	 "^.*\r?\n" "AUTHINFO USER"
+ 	 (gnus-group-find-parameter gnus-newsgroup-name 'authuser))
+ 	(nntp-send-command
+ 	 "^.*\r?\n" "AUTHINFO PASS"
+ 	 (gnus-group-find-parameter gnus-newsgroup-name 'authpass)))))
+ 
  ;;; Internal functions.
  
  (defun nntp-make-process-buffer (buffer)