Re: Authinfo & multiple servers

[Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>]

>>>>> In <199705202144.QAA26198@tigger.beckman.uiuc.edu>,
>>>>> Baba Z Buehler <baba@beckman.uiuc.edu> wrote:
> I want to use multiple news servers, some of which require user/pass 
> authentication.  Ideally, I'd like Gnus to automatically log me in
> (or prompt) for the servers that require authentication, and just 
> jump right in on the ones that don't.

  I'm using modified version of `nntp-send-authinfo-from-file' to
connect servers that require authentication.

(defvar nntp-authinfo-file "~/.nntp-authinfo"
  "Each line of `nntp-authinfo-file' should be of the form:

  `SERVER:PORT USER PASS'.")

(defun nntp-send-authinfo-from-file ()
  (when (file-exists-p nntp-authinfo-file)
    (nnheader-temp-write nil
      (insert-file-contents nntp-authinfo-file)
      (goto-char (point-min))
      (if (re-search-forward
	   (format "^%s:%s \\([^ \n]+\\) \\([^ \n]+\\)$"
		   nntp-address
		   (if (stringp nntp-port-number)
		       nntp-port-number
		     (int-to-string nntp-port-number)))
	   nil t nil)
	  (let ((user (match-string 1))
		(pass (match-string 2)))
	    (nntp-send-command "^.*\r?\n" "AUTHINFO USER" user)
	    (nntp-send-command "^.*\r?\n" "AUTHINFO PASS" pass))))))

(add-hook 'nntp-server-opened-hook 'nntp-send-authinfo-from-file)

-- 
Shuhei KOBAYASHI / <shuhei-k@jaist.ac.jp>