[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/rt-liberation a7cc6b9159: * rt-liberation-gnus.el: reor
From: |
ELPA Syncer |
Subject: |
[elpa] externals/rt-liberation a7cc6b9159: * rt-liberation-gnus.el: reorg |
Date: |
Sun, 9 Jan 2022 09:57:55 -0500 (EST) |
branch: externals/rt-liberation
commit a7cc6b9159cf0fc54ca5606e15df0d126a7cc1b4
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>
* rt-liberation-gnus.el: reorg
---
rt-liberation-gnus.el | 22 +++++++++++++++++-----
1 file changed, 17 insertions(+), 5 deletions(-)
diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el
index a812c5e4fa..fdb69885e7 100644
--- a/rt-liberation-gnus.el
+++ b/rt-liberation-gnus.el
@@ -27,6 +27,16 @@
;; wonderful rt-liberation manual located in the "doc/" directory of
;; the rt-liberation distribution.
+
+;;; Code
+(require 'rt-liberation)
+(require 'nnselect)
+(require 'gnus-msg)
+
+
+;;; ------------------------------------------------------------------
+;;; definitions
+;;; ------------------------------------------------------------------
(defgroup rt-liber-gnus nil
"*Gnus integration for rt-liberation."
:prefix "rt-liber-gnus-"
@@ -55,16 +65,14 @@ line of an email. For example: \\[company.com
#\\([0-9].+?\\)\\]"
:type 'string
:group 'rt-liber-gnus)
-(require 'rt-liberation)
-(require 'nnir)
-(require 'nnselect)
-(require 'gnus-msg)
-
(defvar rt-liber-gnus-p nil
"Non-nil when rt-liberation-gnus is composing a Gnus buffer.")
+;;; ------------------------------------------------------------------
+;;; functions
+;;; ------------------------------------------------------------------
(defun rt-liber-gnus-compose (addr ticket-alist options)
"Create a Gnus *mail* buffer for the RT email interface.
ADDR email address.
@@ -140,6 +148,10 @@ OPTIONS association list of options.
(setq text (buffer-substring (point-min) (point-max))))
text))))
+
+;;; ------------------------------------------------------------------
+;;; interface
+;;; ------------------------------------------------------------------
(defun rt-liber-gnus-compose-reply-to-requestor ()
(interactive)
(rt-liber-gnus-with-ticket-buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/rt-liberation a7cc6b9159: * rt-liberation-gnus.el: reorg,
ELPA Syncer <=