[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-junk.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-junk.el
diff -c emacs/lisp/mh-e/mh-junk.el:1.6 emacs/lisp/mh-e/mh-junk.el:1.7
*** emacs/lisp/mh-e/mh-junk.el:1.6      Wed May 18 11:01:20 2005
--- emacs/lisp/mh-e/mh-junk.el  Sat May 28 22:04:54 2005
***************
*** 1,6 ****
  ;;; mh-junk.el --- Interface to anti-spam measures
  
! ;; Copyright (C) 2005 Free Software Foundation, Inc.
  
  ;; Author: Satyaki Das <address@hidden>,
  ;;         Bill Wohler <address@hidden>
--- 1,6 ----
  ;;; mh-junk.el --- Interface to anti-spam measures
  
! ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Satyaki Das <address@hidden>,
  ;;         Bill Wohler <address@hidden>
***************
*** 191,198 ****
        (message (format "Blacklisting message %d..." msg))
        (set-buffer (get-buffer-create mh-temp-buffer))
        (erase-buffer)
!       (call-process (expand-file-name mh-scan-prog mh-progs) 
mh-junk-background
!                     t nil
                      (format "%s" msg) current-folder
                      "-format" "%<(mymbox{from})%|%(addr{from})%>")
        (goto-char (point-min))
--- 191,198 ----
        (message (format "Blacklisting message %d..." msg))
        (set-buffer (get-buffer-create mh-temp-buffer))
        (erase-buffer)
!       (call-process (expand-file-name mh-scan-prog mh-progs)
!                     nil mh-junk-background nil
                      (format "%s" msg) current-folder
                      "-format" "%<(mymbox{from})%|%(addr{from})%>")
        (goto-char (point-min))