diff options
| -rw-r--r-- | rt-liberation-multi.el | 12 | ||||
| -rw-r--r-- | rt-liberation.el | 16 |
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) |