Function: gnus-async-prefetched-article-entry

gnus-async-prefetched-article-entry is a byte-compiled function defined in gnus-async.el.gz.

Signature

(gnus-async-prefetched-article-entry GROUP ARTICLE)

Documentation

Return the entry for ARTICLE in GROUP if it has been prefetched.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-async.el.gz
(defun gnus-async-prefetched-article-entry (group article)
  "Return the entry for ARTICLE in GROUP if it has been prefetched."
  (let ((entry (save-excursion
		 (gnus-async-set-buffer)
		 (assoc (format "%s-%d" group article)
			gnus-async-article-alist))))
    ;; Perhaps something has emptied the buffer?
    (if (and entry
	     (= (cadr entry) (caddr entry)))
	(progn
	  (ignore-errors
	    (set-marker (cadr entry) nil)
	    (set-marker (caddr entry) nil))
	  (setq gnus-async-article-alist
		(delete entry gnus-async-article-alist))
	  nil)
      entry)))