Function: gnus-method-equal

gnus-method-equal is a macro defined in gnus.el.gz.

Signature

(gnus-method-equal SS1 SS2)

Documentation

Say whether two servers are equal.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
(defmacro gnus-method-equal (ss1 ss2)
  "Say whether two servers are equal."
  `(let ((s1 ,ss1)
	 (s2 ,ss2))
     (or (equal s1 s2)
	 (and (= (length s1) (length s2))
	      (progn
		(while (and s1 (member (car s1) s2))
		  (setq s1 (cdr s1)))
		(null s1))))))