[mew-int 01361] spamassassin question

[henri at example.com]

ok, i just installed 4.0.51 (well, cvs Head as of 2 hours ago)...

i have spamassassin working via procmail

when i use 

 (setq mew-refile-guess-alist
  '(
	("X-Spam-Flag:"
	 ("YES" . "+SPAM")
  )))


things get refiled correctly.

but when i try the lastest-greatest 

(defun mew-spam-assassin (val)
  (let ((case-fold-search t))
    (if (string-match \"yes\" val) \"+spam\")))

(setq mew-inbox-action-alist
      '((\"X-Spam-Flag:\" mew-spam-assassin)))


i get:

(1) (error/warning) Error in process filter: (wrong-type-argument char-or-string-p "X-Spam-Flag:")

any help?

thanks.

henri