Function: gnus-method-rank

gnus-method-rank is a byte-compiled function defined in gnus-start.el.gz.

Signature

(gnus-method-rank TYPE METHOD)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-start.el.gz
(defun gnus-method-rank (type method)
  (cond
   ;; Get info for virtual groups last.
   ((eq (car method) 'nnvirtual)
    200)
   ((eq type 'primary)
    1)
   ;; Compute the rank of the secondary methods based on where they
   ;; are in the secondary select list.
   ((eq type 'secondary)
    (let ((i 2))
      (cl-block nil
	(cl-dolist (smethod gnus-secondary-select-methods)
	  (when (equal method smethod)
	    (cl-return i))
	  (cl-incf i))
	i)))
   ;; Just say that all foreign groups have the same rank.
   (t
    100)))