Re: Spam does not move

[Kohkichi Hosoda <khosoda@venus.dti.ne.jp>]

[-- Attachment #1: Type: text/plain, Size: 340 bytes --]

Sorry for delayed response.  I have been very busy for a while.  

>>>>> On 27 Jul 2004 12:46:58 -0400, "Ted Zlatanov" <tzz@lifelogs.com> said:

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

Ted> (spam-list-articles 'ham)

When I perfomed the process mentioned above, I obtained the following;


[-- Attachment #2: ham_debug_statement --]
[-- Type: application/octet-stream, Size: 825 bytes --]

Debugger entered--Lisp error: (wrong-number-of-arguments (lambda (articles classification) (let ((mark-check (if (eq classification (quote spam)) (quote spam-group-spam-mark-p) (quote 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)) 1)
  spam-list-articles(ham)
  eval((spam-list-articles (quote ham)))
  eval-expression((spam-list-articles (quote ham)) nil)
* call-interactively(eval-expression)

[-- Attachment #3: Type: text/plain, Size: 101 bytes --]



Ted> list all spam article:

Ted> (spam-list-articles 'spam)

For this, I obtained the following;


[-- Attachment #4: spam_debug_statement --]
[-- Type: application/octet-stream, Size: 828 bytes --]

Debugger entered--Lisp error: (wrong-number-of-arguments (lambda (articles classification) (let ((mark-check (if (eq classification (quote spam)) (quote spam-group-spam-mark-p) (quote 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)) 1)
  spam-list-articles(spam)
  eval((spam-list-articles (quote spam)))
  eval-expression((spam-list-articles (quote spam)) nil)
* call-interactively(eval-expression)

[-- Attachment #5: Type: text/plain, Size: 720 bytes --]


And when I did M-d on a mail already marked with "O", I got exactly
the same result as spam1-debug-statement above.  Therefore, I guess
something deletes spam mark on a mail previously marked with "O" when
I exit the summary buffer.  But I have no idea what it is.  

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

You are not sorry.  I really appreciate your help.  :-)

>> What does "33" mean?  ham?


Ted> (format "%c" 33)

Ted> to find the visual representation of any mark. 

Thank you very much for teaching me so much.  

--
Kohkichi Hosoda
E-mail address: khosoda@venus.dti.ne.jp
http://www.venus.dti.ne.jp/~khosoda/Enlightenment.html