Marking as spam -- spam-stat

[Peter Lee <pete_lee@swbell.net>]

In a ham group, if I see spam, I have to manually move it to spam
group with 'B M'.  Then I have to remember that at some point in the future I
need to run spam-stat-update which I have defined as:

(defun spam-stat-update ()
  "Learn about my spam and non-spam"
(interactive)
(let ((starting (current-time-string)))
  ;; LEARN SPAM
  (spam-stat-process-spam-directory "~/Mail/mail/spam")

  ;; LEARN HAM
  (let ((ham-groups '("mail.misc" "mail.vcpphelp" "mail.windbg" "mail.hew")))
    (mapc (lambda (x)
            (spam-stat-process-non-spam-directory
             (format "~/Mail/mail/%s" x)))
          ham-groups))

Isn't there a way to delete a message as spam such that it would get
moved to the spam group and the spam database would get automatically
updated?  Same goes for when ham appears in a spam group.

The addin for Outlook (SpamBayes) has this functionality and it's
very nice.  With it, I can build the db once, and then just
incrementally update as needed.

I'm hoping something similar can be done with spam-stat and gnus.
Thanks.