summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--rt-liberation.el20
1 files changed, 17 insertions, 3 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index 1ff4389..995a767 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1202,14 +1202,28 @@ If FIELD already exists, update to VALUE."
(rt-liber-command-set-status
id (rt-liber-command-get-status-string 'open)))
+;; This is brittle because the server doesn't respond with a code but
+;; with some free text, and we have no guarantee that the text will be
+;; stable from version to version.
+(defun rt-liber-handle-response-set-owner (response)
+ "Handle the response from the RT server. Pass on the response."
+ (when
+ (with-temp-buffer
+ (insert response)
+ (goto-char (point-min))
+ (re-search-forward "That user does not exist" (point-max) t))
+ (error "that user does not exist"))
+ response)
+
(defun rt-liber-command-set-owner (id owner)
"Set the owner of ticket ID to OWNER."
(let ((command (rt-liber-command-get-command-string 'edit))
(args
(format "ticket/%s set owner=%s" id owner)))
- (rt-liber-parse-answer
- (rt-liber-command-runner command args)
- 'rt-liber-command-runner-parser-f)))
+ (rt-liber-handle-response-set-owner
+ (rt-liber-parse-answer
+ (rt-liber-command-runner command args)
+ 'rt-liber-command-runner-parser-f))))
(defun rt-liber-command-set-queue (id queue)
"Set the queue of ticket ID to QUEUE."