;; modified from something from bpt
(defun erc-rank-stalkers ()
"See who is in the same IRC channels as me."
(interactive)
(let ((tbl (make-hash-table :test 'equal)))
(dolist (buf (erc-channel-list nil))
(message "%s..." (buffer-name buf))
(dolist (nick (mapcar (lambda (thing) (aref (car thing) 1))
(with-current-buffer buf (erc-get-channel-user-list))))
(when (not (equal nick erc-nick))
(puthash nick (cons (buffer-name buf)
(gethash nick tbl '()))
tbl))))
(with-output-to-temp-buffer
"*IRC stalkers*"
(let ((list '()))
(maphash (lambda (k v) (push (cons k v) list)) tbl)
 
;; Sort the alist by number of channels. Be nice if I could
;; break ties by noting how recently someone has spoken --
;; more recent would bring them to the front of the list.
(setq list (sort* list '> :key (lambda (thing)
(length (cdr thing)))))
 
(princ (format "%-15s %s %s\n" "Nick" "channels in common with" erc-nick))
(princ "----------------------------------\n")
(let ((count 1))
(while (and (not (null list)) (< count 200))
(princ (let ((x (pop list)))
(format "%-15s %d %s\n"
(car x)
(length (cdr x))
(sort (cdr x) 'string-lessp))))
(incf count)))))))