gnus-group-category -- explanation wanted

gnus-group-category -- explanation wanted

[Christian Nybø]

I've got this recurring problem with gnus-group-category.

I've tried to understand the following snippet from gnus-agent.el, the 
comments are mine:

(defun gnus-group-category (group)	    ; group is a string like
					    ; "nnml+private:list.xemacs-beta"
  "Return the category GROUP belongs to."  
  (unless gnus-category-group-cache	    ; when gnus is started this
					    ; is nil
    (setq gnus-category-group-cache	   
	  (gnus-make-hashtable 1000))	    ; generates a hashtable with
					    ; empty slots
    (let ((cs gnus-category-alist)	    ; cs is
                                            ; '((mail true nil nnml:)
                                            ; (default short nil nil))
	  groups cat)			   
      (while (setq cat (pop cs))	    ; cat is '(mail true nil nnml:)
	(setq groups (cadddr cat))	    ; groups is the atom nnml:
	(while groups			   
	  (gnus-sethash			    ; args should be 
                                            ; STRING VALUE HASHTABLE
	   (pop groups)			    ; implies (pop 'nnml:), 
                                            ; which does not work
	   cat gnus-category-group-cache)))))
  (or (gnus-gethash group gnus-category-group-cache)
      (assq 'default gnus-category-alist)))

Could someone please explain how (pop 'nnml:) possibly could return a
string?

my versions:
XEmacs 21.2 "Aphrodite" [Lucid] (mips-sgi-irix6.5) of Sat Feb 27 1999
on sgichr
Pterodactyl Gnus v0.84

thanks,
-- 
chr

Re: gnus-group-category -- explanation wanted

[Lars Magne Ingebrigtsen]

"Christian Nybø" <s911254@stud.nhh.no> writes:

> I've tried to understand the following snippet from gnus-agent.el, the 
> comments are mine:

[...]

>     (let ((cs gnus-category-alist)	    ; cs is
>                                             ; '((mail true nil nnml:)

I don't think that's a valid value for `gnus-category-alist'...

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen