Function: url-news-fetch-newsgroup

url-news-fetch-newsgroup is a byte-compiled function defined in url-news.el.gz.

Signature

(url-news-fetch-newsgroup NEWSGROUP HOST)

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-news.el.gz
(defun url-news-fetch-newsgroup (newsgroup host)
  (if (string-match "^/+" newsgroup)
      (setq newsgroup (substring newsgroup (match-end 0))))
  (if (string-match "/+$" newsgroup)
      (setq newsgroup (substring newsgroup 0 (match-beginning 0))))

  ;; This saves us from checking new news if Gnus is already running
  ;; FIXME - is it relatively safe to use gnus-alive-p here? FIXME
  (if (or (not (get-buffer gnus-group-buffer))
	  (with-current-buffer gnus-group-buffer
	    (not (eq major-mode 'gnus-group-mode))))
      (gnus))
  (set-buffer gnus-group-buffer)
  (goto-char (point-min))
  (gnus-group-read-ephemeral-group newsgroup
				   (list 'nntp host
					 (list 'nntp-open-connection-function
					       nntp-open-connection-function))
				   nil
				   (cons (current-buffer) 'browse)))