Spam does not move

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

Hi, 

I recently decided to re-setup my spam-filtering.  I wanted spam in a
ham group to move into spam group when I exit the ham group.
Therefore, my Group parameter is set as the following:

((spam-contents gnus-group-spam-classification-ham)
 (spam-process
  ((spam spam-use-stat)
   (ham spam-use-stat)))
 (spam-process-destination "nnml:spam")
 (spam-marks
  (gnus-spam-mark)))

Everytime I find spam in a ham group, I mark it with M-d.  Then it
will go into the spam group when I exit summary buffer of the ham
group, but it does not.  I get messages as the followings:

Exiting summary buffer and applying spam rules
Registering 0  articles as spam using backend spam-use-stat
Marking spam as expired and moving it to (nnml:spam)
Marking spam as expired without moving it
Registering 0  articles as ham using backend spam-use-stat

However, the reality is that the spam resides in the ham group.  It
is not even marked as expired.  I probably have missed something, but
I'm not a Gnus master.  I would appreciate your help in advance.    

## The followings are my spam filtering in my .gnus.el according to
   Mr. Koseki's page (it's Japanese).   
http://cgi.netlaputa.ne.jp/~kose/diary/?200304a&to=200304091#200304091

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; spam filtering in my .gnus.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'spam)
(require 'spam-stat)
(spam-stat-load)
(setq spam-use-stat t)

;; Regular expression
 (setq spam-use-regex-headers t)
 (setq spam-regex-headers-spam
       '("Subject:.*未承諾広告"))

;; decode
 (setq nnmail-mail-splitting-decodes t)

;; Mailing list                                         
(modify-syntax-entry ?\- "w" nnmail-split-fancy-syntax-table)                                                     
(setq nnmail-split-fancy-ML-alist
       '(("x-ml-name" "\\b\\(\\w+\\)" "\\1")
	 ("errors-to\\|sender" "owner-\\(\\w+\\)@.*" "\\1")
	 ("sender" "\\b\\(\\w+\\)-\\(owner\\|admin\\)@.*" "\\1")
	 ("mailing-list" "\\bcontact \\b\\(\\w+\\)-\\(help\\|owner\\)@.*" "\\1")))

;; parent      
(setq nnmail-treat-duplicates 'warn)       
(setq nnmail-cache-accepted-message-ids t) 

;; group parameter & spam
(gnus-group-split-setup t "spam")

;; to myself
(setq nnmail-split-fancy-DM-alist
      '(("subject" "Output from \"cron\" command" "cron")
	(from "khosoda@[a-zA-Z.]+\\.jp" "kohkichi")
	(to "khosoda@[a-zA-Z.]+\\.jp"
	    (| ("subject" "re:" "kohkichi")
	       ("references" "@" "kohkichi")
	     ;  ("content-type" "multipart" "spam")
	       (from "[a-zA-Z]+\\.jp" "kohkichi")
	       "spam"))
	"spam"))

;; 
(setq nnmail-split-methods 'nnmail-split-fancy)

(setq gnus-group-split-updated-hook
      (lambda ()
	(setq nnmail-split-fancy
	      (append '(|)
		      ;; (1) spam
		      '((: spam-split))
		      ;; (2) mailing-list
		      nnmail-split-fancy-ML-alist
		      ;; (3) parent
		      '((: nnmail-split-fancy-with-parent))
		      ;; (4) Group parameter
		      (let ((lst (cdr nnmail-split-fancy))
			    first ret)
			(while (listp (setq first (car lst)))
			  (setq ret (append (list first) ret))
			  (setq lst (cdr lst)))
			ret)
		      ;; (5) DM
		      nnmail-split-fancy-DM-alist))))