;; 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 ")))