diff options
Diffstat (limited to 'rt-liberation-gnus.el')
| -rw-r--r-- | rt-liberation-gnus.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el index 3622a82..eb0b262 100644 --- a/rt-liberation-gnus.el +++ b/rt-liberation-gnus.el @@ -1,6 +1,6 @@ ;;; rt-liberation-gnus.el --- Gnus integration for rt-liberation -;; Copyright (C) 2009, 2012, 2014 Free Software Foundation +;; Copyright (C) 2009-2014 Free Software Foundation, Inc. ;; ;; Authors: Yoni Rabkin <yrk@gnu.org> ;; @@ -115,6 +115,12 @@ OPTIONS association list of options. (save-excursion (insert message-text)))) +(defmacro rt-liber-gnus-with-ticket-buffer (&rest body) + `(progn + (when (not (boundp 'rt-liber-ticket-local)) + (error "rt-liberation ticket view buffer not present")) + ,@body)) + (defun rt-liber-gnus-content-to-string () "Return the current content section as a string" (rt-liber-gnus-with-ticket-buffer @@ -143,12 +149,6 @@ OPTIONS association list of options. (setq text (buffer-substring (point-min) (point-max)))) text)))) -(defmacro rt-liber-gnus-with-ticket-buffer (&rest body) - `(progn - (when (not (boundp 'rt-liber-ticket-local)) - (error "rt-liberation ticket view buffer not present")) - ,@body)) - (defun rt-liber-gnus-compose-reply-to-requestor () (interactive) (rt-liber-gnus-with-ticket-buffer |