summaryrefslogtreecommitdiff
path: root/rt-liberation-gnus.el
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2020-08-05 17:22:31 -0400
committerYoni Rabkin <yoni@rabkins.net>2020-08-05 17:22:31 -0400
commit84ce235f133459dd06c2d1a0a1c6e0d90f5770f1 (patch)
tree3be6b75126072fbc9eac198aa52308d9bacfa6b8 /rt-liberation-gnus.el
parent0fc4737bd6fee2b621eb21963e693b2be99831da (diff)
Syncronize with Stefan's changes
Diffstat (limited to 'rt-liberation-gnus.el')
-rw-r--r--rt-liberation-gnus.el29
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