Mercurial > hg > xemacs-beta

comparison lisp/gnus/nntp.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children 441bb1e64a06
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
546 "^.*\r?\n" "AUTHINFO PASS" 546 "^.*\r?\n" "AUTHINFO PASS"
547 (nnmail-read-passwd (format "NNTP (%s) password: " nntp-address)))) 547 (nnmail-read-passwd (format "NNTP (%s) password: " nntp-address))))
548 548
549 (defun nntp-send-authinfo-from-file () 549 (defun nntp-send-authinfo-from-file ()
550 "Send the AUTHINFO to the nntp server. 550 "Send the AUTHINFO to the nntp server.
551 This function is supposed to be called from `nntp-server-opened-hook'. 551 This function is supposed to be called from `nntp-server-opened-hook'."
552 It will prompt for a password."
553 (when (file-exists-p "~/.nntp-authinfo") 552 (when (file-exists-p "~/.nntp-authinfo")
554 (nnheader-temp-write nil 553 (nnheader-temp-write nil
555 (insert-file-contents "~/.nntp-authinfo") 554 (insert-file-contents "~/.nntp-authinfo")
556 (goto-char (point-min)) 555 (goto-char (point-min))
557 (nntp-send-command "^.*\r?\n" "AUTHINFO USER" (user-login-name)) 556 (nntp-send-command "^.*\r?\n" "AUTHINFO USER" (user-login-name))