Re: Spam does not move

["Ted Zlatanov" <tzz@lifelogs.com>]

On Sun, 25 Jul 2004, khosoda@venus.dti.ne.jp wrote:

> I tried M-x debug-on-entry RET spam-list-articles RET.

OK, but you need to use edebug or (debug) statements.  Here's what I
would use:

(defun spam-list-articles (articles classification)
  (let ((mark-check (if (eq classification 'spam)
			'spam-group-spam-mark-p
		      'spam-group-ham-mark-p))
	alist mark-cache-yes mark-cache-no)
    (dolist (article articles)
      (let ((mark (gnus-summary-article-mark article)))
	(unless (or (memq mark mark-cache-yes)
		    (memq mark mark-cache-no))
	  (if (funcall mark-check
		       gnus-newsgroup-name
		       mark)
	      (push mark mark-cache-yes)
	    (push mark mark-cache-no)))
        (debug (memq mark mark-cache-yes) mark-check article classification mark mark-cache-yes mark-cache-no)
	(when (memq mark mark-cache-yes)
	  (push article alist))))
    alist))

(press C-x C-e after the last parenthesis to use this function; do
the same on the version in spam.el to revert to the original
function).  Run the following with M-:

list all ham articles:

(spam-list-articles 'ham)

list all spam article:

(spam-list-articles 'spam)

while you are in the group summary buffer.

You will get 1 debug statement for each article - save those
separately, I don't need more than 2 examples of what happens with
spam articles and 2 examples with ham articles (4 total) but it's OK
if you send me more.

Again, sorry that I can't find the problem, but it's happening only
for you, so you have to do the hard work :)

> What does "33" mean?  ham?

Gnus mark values are just character values, so 33 is ASCII
exclammation (!), the tick mark.  You can do something like

(format "%c" 33)

to find the visual representation of any mark.  The spam-mark is $,
value 36.

Ted