From 2c9b35702806d7a307bde2fe7e4d191a53c474ed Mon Sep 17 00:00:00 2001
From: Yoni Rabkin <yonirabkin@member.fsf.org>
Date: Thu, 27 Feb 2014 14:32:44 -0500
Subject: Fix compilation warnings.

---
 rt-liberation-gnus.el |  3 ++-
 rt-liberation.el      | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 1 deletion(-)

diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el
index 46d742d..80b34b0 100644
--- a/rt-liberation-gnus.el
+++ b/rt-liberation-gnus.el
@@ -136,7 +136,8 @@ OPTIONS association list of options.
        (with-temp-buffer
 	 (insert text)
 	 (goto-char (point-min))
-	 (replace-regexp "^[ ]+" "")
+	 (re-search-forward "^[ ]+" (point-max) t)
+	 (replace-match "")
 	 (whitespace-cleanup)
 	 (setq text (buffer-substring (point-min) (point-max)))))
      text)))
diff --git a/rt-liberation.el b/rt-liberation.el
index f67c8ec..1b3ec5e 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -633,6 +633,28 @@ 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-reply-to-requestor
+ "rt-liberation-gnus.el")
+(declare-function
+ rt-liber-gnus-compose-reply-to-requestor-to-this
+ "rt-liberation-gnus.el")
+(declare-function
+ rt-liber-gnus-compose-reply-to-requestor-verbatim-this
+ "rt-liberation-gnus.el")
+(declare-function
+ rt-liber-gnus-compose-provisional
+ "rt-liberation-gnus.el")
+(declare-function
+ rt-liber-gnus-compose-provisional-to-this
+ "rt-liberation-gnus.el")
+(declare-function
+ rt-liber-gnus-compose-comment
+ "rt-liberation-gnus.el")
+(declare-function
+ rt-liber-gnus-compose-comment-this
+ "rt-liberation-gnus.el")
+
 (defun rt-liber-viewer-answer ()
   "Answer the ticket."
   (interactive)
@@ -687,6 +709,10 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
 ;;; Ticket browser
 ;;; --------------------------------------------------------
 
+(declare-function
+ rt-liber-get-ancillary-text
+ "rt-liberation-storage.el")
+
 ;; accept a ticket-alist object and return an alist mapping ticket
 ;; properties to format characters for use in `rt-liber-format'.
 (defun rt-liber-format-function (ticket-alist)
@@ -741,6 +767,9 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
   (newline)
   (insert (rt-liber-format "    %o <== %R" ticket)))
 
+(declare-function rt-liber-ticket-marked-p
+		  "rt-liberation-multi.el")
+
 (defun rt-liber-ticketlist-browser-redraw (ticketlist &optional query)
   "Display TICKETLIST. Optionally display QUERY as well."
   (erase-buffer)
@@ -1013,6 +1042,10 @@ string then that will be the name of the new buffer."
 ;;; Major mode definitions
 ;;; --------------------------------------------------------
 
+(declare-function
+ rt-liber-multi-flag-as-spam-and-delete
+ "rt-liberation-multi.el")
+
 (defun rt-liber-multi-delete-spam ()
   "Delete marked tickets as spam."
   (interactive)
@@ -1107,6 +1140,8 @@ string then that will be the name of the new buffer."
   (switch-to-buffer rt-liber-browser-buffer)
   (setq buffer-read-only t))
 
+(declare-function rt-liber-set-ancillary-text "rt-liberation-storage.el")
+
 (defun rt-liber-browser-ancillary-text ()
   "Wrapper function around storage backend."
   (interactive)
-- 
cgit v1.2.3