/[emacs]/emacs/lisp/mh-e/mh-junk.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-junk.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by ttn, Wed May 18 11:01:20 2005 UTC revision 1.7 by wohler, Sat May 28 22:04:54 2005 UTC
# Line 1  Line 1 
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>
# Line 191  done by adding the following to your cro Line 191  done by adding the following to your cro
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))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26