diff options
| -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) |