branch: externals/rt-liberation
commit bd533b21bb4c57593728ff84244a8b873cacac5f
Author: Yoni Rabkin <y...@rabkins.net>
Commit: Yoni Rabkin <y...@rabkins.net>
fix compiler warnings
---
rt-liberation-gnus.el | 10 ----------
rt-liberation.el | 16 ++++++++++++++--
2 files changed, 14 insertions(+), 12 deletions(-)
diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el
index a2e5414..789e482 100644
--- a/rt-liberation-gnus.el
+++ b/rt-liberation-gnus.el
@@ -32,16 +32,6 @@
:prefix "rt-liber-gnus-"
:group 'rt-liber-gnus)
-(defcustom rt-liber-gnus-comment-address "no comment address set"
- "*Email address for adding a comment."
- :type 'string
- :group 'rt-liber-gnus)
-
-(defcustom rt-liber-gnus-address "no reply address set"
- "*Email address for replying to requestor."
- :type 'string
- :group 'rt-liber-gnus)
-
(defcustom rt-liber-gnus-subject-name "no subject name set"
"*Subject name to be included in email header."
:type 'string
diff --git a/rt-liberation.el b/rt-liberation.el
index 4cb4086..8b6103c 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -230,6 +230,16 @@ This variable is made buffer local for the ticket history")
"Browser associated with a ticket history.
This variable is made buffer local for the ticket history")
+(defcustom rt-liber-gnus-comment-address "no comment address set"
+ "*Email address for adding a comment."
+ :type 'string
+ :group 'rt-liber-gnus)
+
+(defcustom rt-liber-gnus-address "no reply address set"
+ "*Email address for replying to requestor."
+ :type 'string
+ :group 'rt-liber-gnus)
+
;;; --------------------------------------------------------
;;; Debug log
@@ -1124,6 +1134,9 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
;; wrapper functions around specific functions provided by a backend
(declare-function
+ rt-liber-gnus-compose
+ "rt-liberation-gnus.el")
+(declare-function
rt-liber-gnus-compose-reply-to-requestor
"rt-liberation-gnus.el")
(declare-function
@@ -1403,7 +1416,6 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(creator (alist-get 'Creator section))
(date (alist-get 'Created section))
(type (alist-get 'Type section))
- (content (alist-get 'Content section))
(oldvalue (alist-get 'OldValue section))
(newvalue (alist-get 'NewValue section))
(field (alist-get 'Field section))
@@ -1441,7 +1453,7 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(string= field "Owner")
(string= oldvalue "10"))
(insert
- (format "\n Ticket assigned\n\n" oldvalue newvalue)))
+ (format "\n Ticket assigned\n\n")))
;; catch-all
(t
(insert
