From 1c88a9289052a9255bf1d2af3aaf6dfe61b03d4b Mon Sep 17 00:00:00 2001 From: tfheen Date: Sat, 31 Oct 2009 15:37:10 +0000 Subject: [PATCH] Do ham and spammark in batch mode git-svn-id: file:///svn/tfheen/trunk/dotfiles@1410 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- gnus | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnus b/gnus index 48ea5cf..4daccaa 100644 --- a/gnus +++ b/gnus @@ -684,7 +684,7 @@ on multiple mail-followup-to headers" (let ((buf (get-buffer-create "*Spam mark*")) (cacheid (tfheen-fetch-cacheid))) (and cacheid - (start-process "spammark" buf "ssh" "vuizook" "spam" cacheid))) + (start-process "spammark" buf "ssh" "-oBatchMode=yes" "vuizook" "spam" cacheid))) (gnus-summary-move-article nil (if (stringp tfheen-spam-folder) tfheen-spam-folder (apply tfheen-spam-folder nil)) nil 'move) @@ -693,7 +693,7 @@ on multiple mail-followup-to headers" (defun tfheen-mark-as-ham () (interactive) (let ((buf (get-buffer-create "*Ham mark*"))) - (start-process "hammark" buf "ssh" "vuizook" "ham" (tfheen-fetch-cacheid)))) + (start-process "hammark" buf "ssh" "-oBatchMode=yes" "vuizook" "ham" (tfheen-fetch-cacheid)))) (defun tfheen-fetch-cacheid () (save-excursion -- 2.39.5