(defun tfheen-mark-as-spam ()
(interactive)
-; (let ((buf (get-buffer-create "*Spam mark*"))
-; (cacheid (tfheen-fetch-cacheid)))
-; (and cacheid
-; (start-process "spammark" buf "ssh" "vuizook" "spam" cacheid)))
+ (let ((buf (get-buffer-create "*Spam mark*"))
+ (cacheid (tfheen-fetch-cacheid)))
+ (and cacheid
+ (start-process "spammark" buf "ssh" "vuizook" "spam" cacheid)))
(gnus-summary-move-article nil (if (stringp tfheen-spam-folder)
tfheen-spam-folder
(apply tfheen-spam-folder nil)) nil 'move)