Function: nndiary-find-group-number

nndiary-find-group-number is a byte-compiled function defined in nndiary.el.gz.

Signature

(nndiary-find-group-number ID)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nndiary.el.gz
;; Find an article number in the current group given the Message-ID.
(defun nndiary-find-group-number (id)
  (with-current-buffer (gnus-get-buffer-create " *nndiary id*")
    (let ((alist nndiary-group-alist)
	  number)
      ;; We want to look through all .overview files, but we want to
      ;; start with the one in the current directory.  It seems most
      ;; likely that the article we are looking for is in that group.
      (if (setq number (nndiary-find-id nndiary-current-group id))
	  (cons nndiary-current-group number)
	;; It wasn't there, so we look through the other groups as well.
	(while (and (not number)
		    alist)
	  (or (string= (caar alist) nndiary-current-group)
	      (setq number (nndiary-find-id (caar alist) id)))
	  (or number
	      (setq alist (cdr alist))))
	(and number
	     (cons (caar alist) number))))))