diff options
| -rw-r--r-- | rt-liberation-gnus.el | 10 | ||||
| -rw-r--r-- | 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 |