A little help with the spam

A little help with the spam

[Björn Lindström]

Since a thread a while back I've been using the following spam related
settings. However, I'm noticing that these no longer make Gnus (No
Gnus 0.6) register spam in the spam group, spam marked as spam in
other groups, or non-spam in the spam group marked as non-spam with
bogofilter. If I go to the spam or reclassify group after it's been
moved, `B q' still says it would go to the same place.

How should I get spam.el to report to bogofilter whenever I mark
something as spam or non-spam?


;;; Spam

;; Spam
(require 'spam)
(spam-initialize)

;; Prevent multiple registration of articles.
(require 'gnus-registry)
(gnus-registry-initialize)
(setq spam-log-to-registry t)

;; Use bogofilter for spam processing.
(setq spam-use-bogofilter t)

;; Put incoming spam in "spam".
(setq spam-split-group "spam")

;; Set spam and ham groups.
(setq gnus-spam-newsgroup-contents
      '(("^nnml:spam" gnus-group-spam-classification-spam)
        ("^nnml:.*" gnus-group-spam-classification-ham)))

;; Train the filter.
(setq spam-process-ham-in-spam-groups t)
(setq gnus-spam-process-newsgroups
      '(("^nntp\\+news\\.gmane\\.org:"
         ((spam spam-use-gmane)))
        ("^nnml:.*"
         ((spam spam-use-bogofilter)))))

;; Move processed spam.
(setq spam-move-spam-nonspam-groups-only t)
(setq spam-mark-only-unseen-as-spam t)
(setq gnus-spam-process-destinations
      '(("^nnml:.*" "nnml:spam")))

;; Move processed ham.
(setq spam-mark-ham-unread-before-move-from-spam-group t)
(setq gnus-ham-process-destinations
      '(("^nnml:spam" "nnml:reclassify")))

;;; Expiration

(setq nnmail-expiry-wait 32)

;;; Splitting

(setq nnmail-crosspost nil
      nnmail-cache-accepted-message-ids t
      nnmail-message-id-cache-length 4096
      nnmail-cache-ignore-groups "\\`outgoing\\|spam\\'"
      nnmail-split-methods 'nnmail-split-fancy
      nnmail-split-fancy-match-partial-words t
      nnmail-split-fancy
      `(| (: spam-split)
	  ("gnus-warning" "\\<duplicat\\(e\\|ion\\) of message\\>" "duplicate")
	  (: nnmail-split-fancy-with-parent)
	  (: gnus-group-split-fancy nil t nil)
	  "misc"))