[mew-dist 26983] mew-scan-fields for SPAM

[Takeo OKAZAKI]

岡崎です。

mew-scan-fieldsの設定で怒られるようになりました。
SPAM対策にPOPFileを使っているんですが，Wikiに書かれている作法に倣って，

(defun mew-popfile (val)
   (let ((case-fold-search t))  (if (string-match "spam" val) ?D)))
(setq mew-scan-fields (delete mew-spam: mew-scan-fields))
(setq mew-spam: "X-Text-Classification:")
(setq mew-scan-fields (append mew-scan-fields (list mew-spam:)))
(setq mew-inbox-action-alist '(("X-Text-Classification:" mew-popfile)))

としていました。
"X-Text-Classification" が "spam" となっていたらDマークをつけます。
最近の(正確には覚えていないのですが)cvs版で実行すると，
emacsを起動後に，Mewを呼び出したとき，

Symbol's value as variable is void: mew-scan-fields

と怒られてmew自体が起動しません。
現在は，mew-scan-fieldsの2行をコメントアウトして使っています。

(defun mew-popfile (val)
   (let ((case-fold-search t))  (if (string-match "spam" val) ?D)))
;; (setq mew-scan-fields (delete mew-spam: mew-scan-fields))
(setq mew-spam: "X-Text-Classification:")
;; (setq mew-scan-fields (append mew-scan-fields (list mew-spam:)))
(setq mew-inbox-action-alist '(("X-Text-Classification:" mew-popfile)))

どう設定するのが正しいのでしょうか？

---
 岡崎 威生
   琉球大学 工学部 情報工学科
   (okazaki at example.com)