Function: nntp-find-connection

nntp-find-connection is a byte-compiled function defined in nntp.el.gz.

Signature

(nntp-find-connection BUFFER)

Documentation

Find the connection delivering to BUFFER.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nntp.el.gz
(defsubst nntp-find-connection (buffer)
  "Find the connection delivering to BUFFER."
  (let ((alist nntp-connection-alist)
	(buffer (if (stringp buffer) (get-buffer buffer) buffer))
	process entry)
    (while (and alist (setq entry (pop alist)))
      (when (eq buffer (cadr entry))
	(setq process (car entry)
	      alist nil)))
    (when process
      (if (memq (process-status process) '(open run))
	  process
	(nntp-kill-buffer (process-buffer process))
	(setq nntp-connection-alist (delq entry nntp-connection-alist))
	nil))))