From 1aa19e9dc6386624c76d44f00d53be1a6ba8d57a Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Thu, 27 Feb 2014 14:18:24 -0500 Subject: Fix compilation errors. --- rt-liberation-gnus.el | 8 +++++--- rt-liberation-multi.el | 7 ++++--- rt-liberation.el | 15 +++++++++++---- 3 files changed, 20 insertions(+), 10 deletions(-) diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el index 48ed6a9..ee9949d 100644 --- a/rt-liberation-gnus.el +++ b/rt-liberation-gnus.el @@ -1,8 +1,8 @@ ;;; rt-liberation-gnus.el --- Gnus integration for rt-liberation -;; Copyright (C) 2009, 2012 Yoni Rabkin +;; Copyright (C) 2009, 2012, 2014 Yoni Rabkin ;; -;; Authors: Yoni Rabkin +;; Authors: Yoni Rabkin ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -223,7 +223,9 @@ OPTIONS association list of options. (let ((match (match-string-no-properties 1))) (when (not match) (error "no ticket number found in subject line")) - (rt-liber-display-ticket match))) + (rt-liber-browse-query + (rt-liber-compile-query + (id match))))) (provide 'rt-liberation-gnus) diff --git a/rt-liberation-multi.el b/rt-liberation-multi.el index 3e9c208..1faa682 100644 --- a/rt-liberation-multi.el +++ b/rt-liberation-multi.el @@ -1,8 +1,8 @@ ;;; rt-liberation-multi.el --- Free from RT -;; Copyright (C) 2010 Yoni Rabkin +;; Copyright (C) 2010, 2014 Yoni Rabkin ;; -;; Authors: Yoni Rabkin +;; Authors: Yoni Rabkin ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -31,7 +31,8 @@ (((type tty) (class mono)) (:inverse-video t)) (t (:background "Red"))) - "Face for marked tickets in browser buffer.") + "Face for marked tickets in browser buffer." + :group 'rt-liberation) (defvar rt-liber-marked-tickets nil "Marked tickets (becomes ticket-browser buffer local).") diff --git a/rt-liberation.el b/rt-liberation.el index 995a767..f67c8ec 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -187,6 +187,15 @@ Careful! This might create a sizable buffer.") (defvar rt-liber-debug-log-buffer-name "*rt-liber debug log*" "Name of debug log buffer.") +(defvar rt-liber-ticket-local nil + "Buffer local storage for a ticket. + +This variable is made buffer local for the ticket history") + +(defvar rt-liber-assoc-browser nil + "Browser associated with a ticket history. + +This variable is made buffer local for the ticket history") ;;; -------------------------------------------------------- ;;; Debug log @@ -585,8 +594,6 @@ AFTER date after predicate." 'rt-liber-refresh-ticket-history) (set (make-local-variable 'buffer-stale-function) (lambda (&optional noconfirm) 'slow)) - (set (make-local-variable 'auto-revert-interval) - (* 15 60)) ;; 15 minutes (when rt-liber-jump-to-latest (rt-liber-jump-to-latest-correspondence)) (run-hooks 'rt-liber-viewer-hook)) @@ -854,6 +861,7 @@ If POINT is nil then called on (point)." (recenter-top-bottom)) (error "ticket #%s not found" id)))) + ;;; -------------------------------------------------------- ;;; Ticket browser sorting ;;; -------------------------------------------------------- @@ -1048,8 +1056,6 @@ string then that will be the name of the new buffer." 'rt-liber-browser-refresh) (set (make-local-variable 'buffer-stale-function) (lambda (&optional noconfirm) 'slow)) - (set (make-local-variable 'auto-revert-interval) - (* 15 60)) ;; 15 minutes (run-hooks 'rt-liber-browser-hook)) (defun rt-liber-setup-browser-name (new) @@ -1311,6 +1317,7 @@ If FIELD already exists, update to VALUE." (rt-liber-refresh-ticket-history))) (error "no ticket currently in view")))) + (provide 'rt-liberation) ;;; rt-liberation.el ends here. -- cgit v1.2.3