Function: nnweb-request-article

nnweb-request-article is a byte-compiled function defined in nnweb.el.gz.

Signature

(nnweb-request-article ARTICLE &optional GROUP SERVER BUFFER)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnweb.el.gz
(deffoo nnweb-request-article (article &optional group server buffer)
  (nnweb-possibly-change-server group server)
  (with-current-buffer (or buffer nntp-server-buffer)
    (let* ((header (cadr (assq article nnweb-articles)))
	   (url (and header (mail-header-xref header))))
      (when (or (and url
		     (mm-url-insert url))
		(and (stringp article)
		     (nnweb-definition 'id t)
		     (let ((fetch (nnweb-definition 'id))
			   (art (when (string-match "^<\\(.*\\)>$" article)
                                  (match-string 1 article)))
			   ) ;; active
		       (when (and fetch art)
			 (setq url (format fetch
					   (mm-url-form-encode-xwfu art)))
			 (mm-url-insert url)
			 (if (nnweb-definition 'reference t)
			     (setq article
				   (funcall (nnweb-definition 'reference)
					    article)))))))
	(unless nnheader-callback-function
	  (funcall (nnweb-definition 'article)))
	(nnheader-report 'nnweb "Fetched article %s" article)
	(cons group (and (numberp article) article))))))