Do ham and spammark in batch mode

git-svn-id: file:///svn/tfheen/trunk/dotfiles@1410 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/gnus b/gnus
index 48ea5cf073251594e0be16b3146575875945806b..4daccaa4bb4f0af2ccd521a86c0db930da586dd5 100644 (file)
--- 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