[mew-int 01668] Re: spam again ( sorry )

[Francesco Scaglioni]

Hi,
 
> It depends on your setup. If you have an account on the mail server
> and if sendmail (or any other mta) is already configured to run
> procmail and you have access to bogofilter/wordlist.db you should be
> able to make a file in your home directory called .procmailrc
> containing:
> 
> :0fw
> | bogofilter -u -e -p
> 
> This should add a X-Bogosity: header to the message. 
> 

Thanks,
 I now have mail in /var/spool/mail/fgs with X-bogosity headers
 but despite having a ~/.mew..el which says :

(autoload 'mew "mew" nil t)

 (setq mew-name "Francesco Scaglioni")    ;; (user-full-name)
 (setq mew-user "fgs")                    ;; (user-login-name)
 (setq mew-mail-domain "epulse.net")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; for local mail in /var/spool/mail/fgs
  (setq mew-mailbox-type 'mbox)
  (setq mew-mbox-command "incm")
  (setq mew-mbox-command-arg "-d /var/spool/mail/fgs")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq mew-smtp-server "xxx.xx.xx.xxx")

(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-letter
'mew-draft-kill
'mew-send-hook))

(defun mew-spam-bogofilter (val)
  (let ((case-fold-search t))
    (if (string-match "yes" val) ?D)))

(setq mew-inbox-action-alist
      `(
	("X-Bogosity:" mew-spam-bogofilter)
	))

followed by a load of sruff to display msoffice stuff ...

mew will not collect mail from the spool but on starting ( or on
pressing i after having started ) mew scans ~/Mail/inbox and does
not fetch mail from the spool.

Any help much appreciated


Francesco