1746 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1747 |
(when (re-search-forward "^X-Spam: yes;" nil t) |
(when (re-search-forward "^X-Spam: yes;" nil t) |
1748 |
spam-split-group)) |
spam-split-group)) |
1749 |
(error "Error running spamoracle" status)))))))) |
(error "Error running spamoracle: %s" status)))))))) |
1750 |
|
|
1751 |
(defun spam-spamoracle-learn (articles article-is-spam-p &optional unregister) |
(defun spam-spamoracle-learn (articles article-is-spam-p &optional unregister) |
1752 |
"Run spamoracle in training mode." |
"Run spamoracle in training mode." |
1768 |
`("-f" ,spam-spamoracle-database |
`("-f" ,spam-spamoracle-database |
1769 |
"add" ,arg) |
"add" ,arg) |
1770 |
`("add" ,arg))))) |
`("add" ,arg))))) |
1771 |
(when (not (eq 0 status)) |
(unless (eq 0 status) |
1772 |
(error "Error running spamoracle" status))))))) |
(error "Error running spamoracle: %s" status))))))) |
1773 |
|
|
1774 |
(defun spam-spamoracle-learn-ham (articles &optional unregister) |
(defun spam-spamoracle-learn-ham (articles &optional unregister) |
1775 |
(spam-spamoracle-learn articles nil unregister)) |
(spam-spamoracle-learn articles nil unregister)) |