From bd533b21bb4c57593728ff84244a8b873cacac5f Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Fri, 4 Dec 2020 10:38:16 -0500 Subject: 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 @@ -1123,6 +1133,9 @@ ASSOC-BROWSER if non-nil should be a ticket browser." (run-hooks 'rt-liber-viewer-hook)) ;; 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") @@ -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 -- cgit v1.2.3