Re: CRM114 Mailfilter and spam.el

[asjo@koldfront.dk (Adam Sjøgren)]

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

On Sat, 03 Apr 2004 23:48:08 +0200, Adam wrote:

> I'm wondering about the last quoted line above "article mark todo
> deletep respool" - maybe todo shouldn't be there? Please advise.

> (My lack of elisp grasp shows again :-))

It works for me with the attached minimal patch.


  Best regards,

     Adam

-- 
 "Mr. Cotton's... parrot. Same question."                     Adam Sjøgren
                                                         asjo@koldfront.dk

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: move-ham-from-nonham-groups.patch --]
[-- Type: text/x-patch, Size: 981 bytes --]

--- spam.el     2 Apr 2004 19:09:16 -0000       7.27
+++ spam.el     3 Apr 2004 21:54:27 -0000
@@ -776,8 +776,8 @@
       (spam-ham-copy-routine
        (gnus-parameter-ham-process-destination gnus-newsgroup-name)))
 
-    ;; now move all ham articles out of spam groups
-    (when (spam-group-spam-contents-p gnus-newsgroup-name)
+    ;; now move all ham articles out of non-ham groups
+    (when (not (spam-group-ham-contents-p gnus-newsgroup-name))
       (gnus-message 5 "Moving ham messages from spam group")
       (spam-ham-move-routine
        (gnus-parameter-ham-process-destination gnus-newsgroup-name))))
@@ -859,7 +859,7 @@
         (gnus-check-backend-function
          'request-move-article gnus-newsgroup-name))
        (respool-method (gnus-find-method-for-group gnus-newsgroup-name))
-       article mark todo deletep respool)
+       article mark deletep respool)
 
     (when (member 'respool groups)
       (setq respool t)                 ; boolean for later