summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2020-12-04 09:53:48 -0500
committerYoni Rabkin <yoni@rabkins.net>2020-12-04 09:53:48 -0500
commit44823a014511525fa5496f738cc9ae403a3a7768 (patch)
tree3e1b9d1e8e45859554eb4f555c652d4c9e57309b
parentb1a1dc690b2baaef9058882668d9945217e53353 (diff)
* rt-liberation.el: gnus integration
-rw-r--r--rt-liberation.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index b364839..4cb4086 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1524,6 +1524,18 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
rt-liber-ticket-local
`((contents . ,(rt-liber-viewer2-clean-content section)))))))
+(defun rt-liber-viewer2-comment ()
+ (interactive)
+ (let ((section (rt-liber-viewer2-get-section-data)))
+ (when (not section)
+ (error "no section found"))
+ (if (not (featurep 'rt-liberation-gnus))
+ (error "rt-liberation-gnus feature not found")
+ (rt-liber-gnus-compose
+ rt-liber-gnus-comment-address
+ rt-liber-ticket-local
+ `((contents . ,(rt-liber-viewer2-clean-content section)))))))
+
(defconst rt-liber-viewer2-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "q") 'rt-liber-viewer2-mode-quit)