Mercurial > emacs
comparison lisp/mh-e/mh-junk.el @ 73130:1e5bc57805bc
mh-junk.el (mh-spamassassin-whitelist): Add two missing
quotation marks, so that the last two arguments of
sa-learn are separated properly (closes SF #1565460).
(mh-spamassassin-blacklist): In example .procmailrc, add
PATH element to find mhparam on Debian.
author | Stephen Gildea <gildea@stop.mail-abuse.org> |
---|---|
date | Tue, 26 Sep 2006 02:40:50 +0000 |
parents | 37d03b3298bf |
children | 63fc0820b362 bb0e318b7c53 |
comparison
equal
deleted
inserted
replaced
73129:6478736310c3 | 73130:1e5bc57805bc |
---|---|
112 Get it from your local distribution or from | 112 Get it from your local distribution or from |
113 http://spamassassin.org/. | 113 http://spamassassin.org/. |
114 | 114 |
115 To use SpamAssassin, add the following recipes to | 115 To use SpamAssassin, add the following recipes to |
116 \".procmailrc\": | 116 \".procmailrc\": |
117 | |
118 # Append to $PATH the location of mhparam in some distros. | |
119 PATH=$PATH:/usr/bin/mh | |
117 | 120 |
118 MAILDIR=$HOME/`mhparam Path` | 121 MAILDIR=$HOME/`mhparam Path` |
119 | 122 |
120 # Fight spam with SpamAssassin. | 123 # Fight spam with SpamAssassin. |
121 :0fw | 124 :0fw |
242 (kill-buffer show-buffer)) | 245 (kill-buffer show-buffer)) |
243 (write-file msg-file) | 246 (write-file msg-file) |
244 (when mh-sa-learn-executable | 247 (when mh-sa-learn-executable |
245 (message "Recategorizing this message as ham...") | 248 (message "Recategorizing this message as ham...") |
246 (call-process mh-sa-learn-executable msg-file mh-temp-buffer nil | 249 (call-process mh-sa-learn-executable msg-file mh-temp-buffer nil |
247 "--single" "--ham" "--local --no-rebuild")) | 250 "--single" "--ham" "--local" "--no-rebuild")) |
248 (message "Whitelisting message %d..." msg) | 251 (message "Whitelisting message %d..." msg) |
249 (setq from | 252 (setq from |
250 (car (mh-funcall-if-exists | 253 (car (mh-funcall-if-exists |
251 ietf-drums-parse-address (mh-get-header-field "From:")))) | 254 ietf-drums-parse-address (mh-get-header-field "From:")))) |
252 (kill-buffer nil) | 255 (kill-buffer nil) |