;; F10 pipe the message as spam | |
(global-set-key [(f10)] | |
'(lambda () (interactive) (shell-command "sa-learn --spam --single "))) | |
;; F9 pipe the message as ham | |
(global-set-key [(f9)] | |
'(lambda () (interactive) (shell-command "sa-learn --ham --single "))) |