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