[elpa] externals/rt-liberation 1aa19e9 08/72: Fix compilation errors.

[Stefan Monnier]

branch: externals/rt-liberation
commit 1aa19e9dc6386624c76d44f00d53be1a6ba8d57a
Author: Yoni Rabkin <yonirabkin@member.fsf.org>
Commit: Yoni Rabkin <yonirabkin@member.fsf.org>

    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 <yonirabkin@member.fsf.org>
+;; Authors: Yoni Rabkin <yrk@gnu.org>
 ;;
 ;; 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 <yonirabkin@member.fsf.org>
+;; Authors: Yoni Rabkin <yrk@gnu.org>
 ;;
 ;; 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.