diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2020-12-04 09:53:48 -0500 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2020-12-04 09:53:48 -0500 |
| commit | 44823a014511525fa5496f738cc9ae403a3a7768 (patch) | |
| tree | 3e1b9d1e8e45859554eb4f555c652d4c9e57309b /rt-liberation.el | |
| parent | b1a1dc690b2baaef9058882668d9945217e53353 (diff) | |
* rt-liberation.el: gnus integration
Diffstat (limited to 'rt-liberation.el')
| -rw-r--r-- | rt-liberation.el | 12 |
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) |