branch: externals/rt-liberation
commit 44823a014511525fa5496f738cc9ae403a3a7768
Author: Yoni Rabkin <y...@rabkins.net>
Commit: Yoni Rabkin <y...@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)
