[elpa] externals/rt-liberation e5fe16e 40/72: Remove more spam related code.

[Stefan Monnier]

branch: externals/rt-liberation
commit e5fe16e4b2d27778b9ddc488c51fd34889cd197f
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    Remove more spam related code.
    
    Hopefully this can be reimplemented soon.
---
 rt-liberation-multi.el | 12 ------------
 rt-liberation.el       | 16 ----------------
 2 files changed, 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)