[elpa] externals/rt-liberation 44823a0 57/68: * rt-liberation.el: gnus integration

[Yoni Rabkin]

branch: externals/rt-liberation
commit 44823a014511525fa5496f738cc9ae403a3a7768
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation.el: gnus integration
---
 rt-liberation.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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)