From 44823a014511525fa5496f738cc9ae403a3a7768 Mon Sep 17 00:00:00 2001
From: Yoni Rabkin <yoni@rabkins.net>
Date: Fri, 4 Dec 2020 09:53:48 -0500
Subject: * rt-liberation.el: gnus integration

---
 rt-liberation.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'rt-liberation.el')

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)
-- 
cgit v1.2.3