Function: nntp-read-server-type

nntp-read-server-type is a byte-compiled function defined in nntp.el.gz.

Signature

(nntp-read-server-type)

Documentation

Find out what the name of the server we have connected to is.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nntp.el.gz
(defun nntp-read-server-type ()
  "Find out what the name of the server we have connected to is."
  ;; Wait for the status string to arrive.
  (setq nntp-server-type (buffer-string))
  (let ((case-fold-search t))
    ;; Run server-specific commands.
    (dolist (entry nntp-server-action-alist)
      (when (string-match (car entry) nntp-server-type)
	(if (not (functionp (cadr entry)))
	    (eval (cadr entry) t)
	  (funcall (cadr entry)))))))