From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Sat, 31 Oct 2009 15:37:10 +0000 (+0000)
Subject: Do ham and spammark in batch mode
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c88a9289052a9255bf1d2af3aaf6dfe61b03d4b;p=dotfiles

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 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