Remove more spam related code.

Hopefully this can be reimplemented soon.

2 files changed, 0 insertions, 28 deletions

diff --git a/rt-liberation-multi.el b/rt-liberation-multi.el
index 1faa682..4fe53b5 100644
--- a/rt-liberation-multi.el
+++ b/rt-liberation-multi.el
@@ -96,18 +96,6 @@
      ticket-id name))
   (rt-liber-browser-refresh))
 
-(defun rt-liber-multi-flag-as-spam-and-delete ()
-  "Flag all marked tickets as spam, and delete them."
-  (interactive)
-  (when (not rt-liber-marked-tickets)
-    (error "no marked tickets"))
-  (dolist (ticket-id rt-liber-marked-tickets)
-    (rt-liber-command-set-cf
-     ticket-id
-     (rt-liber-command-get-custom-field-string
-      'cf-is-spam) "yes")
-    (rt-liber-command-set-status-deleted ticket-id))
-  (rt-liber-browser-refresh))
 
 (provide 'rt-liberation-multi)
 
diff --git a/rt-liberation.el b/rt-liberation.el
index 9856e91..860facc 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1115,22 +1115,6 @@ string then that will be the name of the new buffer."
 ;;; Major mode definitions
 ;;; --------------------------------------------------------
 
-(declare-function
- rt-liber-multi-flag-as-spam-and-delete
- "rt-liberation-multi.el")
-
-;; Unfortunately, RT have broken this. Hope I can fix it by moving
-;; over the the REST interface.
-(defun rt-liber-multi-delete-spam ()
-  "Delete marked tickets as spam."
-  (interactive)
-  (error "this feature is currently broken! I'm working on it...")
-  ;; (cond ((featurep 'rt-liberation-multi)
-  ;; 	 (when (y-or-n-p "Delete marked tickets as spam? ")
-  ;; 	   (rt-liber-multi-flag-as-spam-and-delete)))
-  ;; 	(t (error "rt-liberation-multi isn't loaded")))
-  )
-
 (defun rt-liber-browser-mode-quit ()
   "Bury the ticket browser."
   (interactive)