diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2020-08-05 17:22:31 -0400 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2020-08-05 17:22:31 -0400 |
| commit | 84ce235f133459dd06c2d1a0a1c6e0d90f5770f1 (patch) | |
| tree | 3be6b75126072fbc9eac198aa52308d9bacfa6b8 /rt-liberation-gnus.el | |
| parent | 0fc4737bd6fee2b621eb21963e693b2be99831da (diff) | |
Syncronize with Stefan's changes
Diffstat (limited to 'rt-liberation-gnus.el')
| -rw-r--r-- | rt-liberation-gnus.el | 29 |
1 files changed, 12 insertions, 17 deletions
diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el index 012ad24..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> ;; @@ -21,21 +21,12 @@ ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, ;; MA 02111-1307, USA. - ;;; Installation: ;; ;; For installation instructions and detailed help please see the ;; wonderful rt-liberation manual located in the "doc/" directory of ;; the rt-liberation distribution. - -;; Code: - -(require 'rt-liberation) -(require 'nnir) -(require 'gnus-msg) - - (defgroup rt-liber-gnus nil "*Gnus integration for rt-liberation." :prefix "rt-liber-gnus-" @@ -74,15 +65,13 @@ line of an email. For example: \\[company.com #\\([0-9].+?\\)\\]" :type 'string :group 'rt-liber-gnus) -(defvar rt-liber-gnus-p nil - "Non-nil when rt-liberation-gnus is composing a Gnus buffer.") +(require 'rt-liberation) +(require 'nnir) +(require 'gnus-msg) -(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)) +(defvar rt-liber-gnus-p nil + "Non-nil when rt-liberation-gnus is composing a Gnus buffer.") (defun rt-liber-gnus-compose (addr ticket-alist options) @@ -126,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 |