Mercurial > emacs

comparison lisp/mh-e/mh-junk.el @ 62847:aa8c2e12ee24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgraded to MH-E version 7.84. See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author Bill Wohler <wohler@newt.com>
date Sat, 28 May 2005 22:04:54 +0000
parents 4f4f410e6fe8
children 18a818a2ee7c 01137c1fdbe9
comparison
equal deleted inserted replaced
62846:93362151dd3a 62847:aa8c2e12ee24
1 ;;; mh-junk.el --- Interface to anti-spam measures 1 ;;; mh-junk.el --- Interface to anti-spam measures
2 2
3 ;; Copyright (C) 2005 Free Software Foundation, Inc. 3 ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
4 4
5 ;; Author: Satyaki Das <satyaki@theforce.stanford.edu>, 5 ;; Author: Satyaki Das <satyaki@theforce.stanford.edu>,
6 ;; Bill Wohler <wohler@newt.com> 6 ;; Bill Wohler <wohler@newt.com>
7 ;; Maintainer: Bill Wohler <wohler@newt.com> 7 ;; Maintainer: Bill Wohler <wohler@newt.com>
8 ;; Keywords: mail, spam 8 ;; Keywords: mail, spam
189 (call-process mh-sa-learn-executable msg-file mh-log-buffer nil 189 (call-process mh-sa-learn-executable msg-file mh-log-buffer nil
190 "--single" "--spam" "--local" "--no-rebuild")) 190 "--single" "--spam" "--local" "--no-rebuild"))
191 (message (format "Blacklisting message %d..." msg)) 191 (message (format "Blacklisting message %d..." msg))
192 (set-buffer (get-buffer-create mh-temp-buffer)) 192 (set-buffer (get-buffer-create mh-temp-buffer))
193 (erase-buffer) 193 (erase-buffer)
194 (call-process (expand-file-name mh-scan-prog mh-progs) mh-junk-background 194 (call-process (expand-file-name mh-scan-prog mh-progs)
195 t nil 195 nil mh-junk-background nil
196 (format "%s" msg) current-folder 196 (format "%s" msg) current-folder
197 "-format" "%<(mymbox{from})%|%(addr{from})%>") 197 "-format" "%<(mymbox{from})%|%(addr{from})%>")
198 (goto-char (point-min)) 198 (goto-char (point-min))
199 (if (search-forward-regexp "^\\(.+\\)$" nil t) 199 (if (search-forward-regexp "^\\(.+\\)$" nil t)
200 (progn 200 (progn