1 |
;;; mh-junk.el --- Interface to anti-spam measures |
;;; mh-junk.el --- Interface to anti-spam measures |
2 |
|
|
3 |
;; Copyright (C) 2005 Free Software Foundation, Inc. |
;; Copyright (C) 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Satyaki Das <satyaki@theforce.stanford.edu>, |
;; Author: Satyaki Das <satyaki@theforce.stanford.edu>, |
6 |
;; Bill Wohler <wohler@newt.com> |
;; Bill Wohler <wohler@newt.com> |
191 |
(message (format "Blacklisting message %d..." msg)) |
(message (format "Blacklisting message %d..." msg)) |
192 |
(set-buffer (get-buffer-create mh-temp-buffer)) |
(set-buffer (get-buffer-create mh-temp-buffer)) |
193 |
(erase-buffer) |
(erase-buffer) |
194 |
(call-process (expand-file-name mh-scan-prog mh-progs) mh-junk-background |
(call-process (expand-file-name mh-scan-prog mh-progs) |
195 |
t nil |
nil mh-junk-background nil |
196 |
(format "%s" msg) current-folder |
(format "%s" msg) current-folder |
197 |
"-format" "%<(mymbox{from})%|%(addr{from})%>") |
"-format" "%<(mymbox{from})%|%(addr{from})%>") |
198 |
(goto-char (point-min)) |
(goto-char (point-min)) |