[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/rt-liberation 203ec6a 08/68: * rt-liberation-gnus.el: a
From: |
Yoni Rabkin |
Subject: |
[elpa] externals/rt-liberation 203ec6a 08/68: * rt-liberation-gnus.el: avoid compiler warning |
Date: |
Wed, 16 Dec 2020 12:11:05 -0500 (EST) |
branch: externals/rt-liberation
commit 203ec6a369bdd96e1114b65f6ae532d4de9bb338
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>
* rt-liberation-gnus.el: avoid compiler warning
Macros need to be defined before functions.
---
rt-liberation-gnus.el | 27 ++++++++++++++++-----------
1 file changed, 16 insertions(+), 11 deletions(-)
diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el
index 3622a82..012ad24 100644
--- a/rt-liberation-gnus.el
+++ b/rt-liberation-gnus.el
@@ -21,12 +21,21 @@
;; 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-"
@@ -65,15 +74,17 @@ line of an email. For example: \\[company.com
#\\([0-9].+?\\)\\]"
:type 'string
:group 'rt-liber-gnus)
-(require 'rt-liberation)
-(require 'nnir)
-(require 'gnus-msg)
-
-
(defvar rt-liber-gnus-p nil
"Non-nil when rt-liberation-gnus is composing a Gnus buffer.")
+(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 (addr ticket-alist options)
"Create a Gnus *mail* buffer for the RT email interface.
ADDR email address.
@@ -143,12 +154,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
- [elpa] externals/rt-liberation updated (6b062b7 -> f682e7b), Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 61dda6f 06/68: * rt-liberation.el: remove unused code, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 965be87 05/68: fix broken dependencies, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 203ec6a 08/68: * rt-liberation-gnus.el: avoid compiler warning,
Yoni Rabkin <=
- [elpa] externals/rt-liberation 291a8e3 20/68: move to other machine, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation f7a290c 15/68: * doc/developer-release.txt: new file, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 5648253 17/68: fix info listing problem, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 237b11d 30/68: * rt-liberation-viewer.el: reorganize, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 84ce235 10/68: Syncronize with Stefan's changes, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 2e9b1f3 01/68: * rt-liberation.el: remove old cli code, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 133559f 18/68: * dir: fix info listing issues take 2, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 700d45e 21/68: * doc/developer-release.txt: update documentation, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation 4e4cb06 14/68: add manual to ELPA, Yoni Rabkin, 2020/12/16
- [elpa] externals/rt-liberation f586e7d 27/68: * doc/rt-liber.texinfo: update manual, Yoni Rabkin, 2020/12/16