Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-541

Creator:  Magnus Henoch <mange@freemail.hu>

Add more autoloads and use them (to silence incorrect warnings)

jabber-activity.el

@@ -42,6 +42,7 @@
 (require 'jabber-core)
 (require 'jabber-alert)
 (require 'jabber-util)
+(require 'jabber-autoloads)
 (require 'cl)
 
 (defgroup jabber-activity nil

jabber-ahc-presence.el

@@ -1,6 +1,6 @@
 ;; jabber-ahc-presence.el - provide remote control of presence
 
-;; Copyright (C) 2003, 2004, 2007 - Magnus Henoch - mange@freemail.hu
+;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - mange@freemail.hu
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 
 ;; This file is a part of jabber.el.
@@ -20,6 +20,7 @@
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 (require 'jabber-ahc)
+(require 'jabber-autoloads)
 
 (defconst jabber-ahc-presence-node "http://jabber.org/protocol/rc#set-status"
   "Node used by jabber-ahc-presence")

jabber-ahc.el

@@ -1,6 +1,6 @@
 ;; jabber-ahc.el - Ad-Hoc Commands by JEP-0050
 
-;; Copyright (C) 2003, 2004, 2007 - Magnus Henoch - mange@freemail.hu
+;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - mange@freemail.hu
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 
 ;; This file is a part of jabber.el.
@@ -21,6 +21,7 @@
 
 (require 'jabber-disco)
 (require 'jabber-widget)
+(require 'jabber-autoloads)
 
 (defvar jabber-ahc-sessionid nil
   "session id of Ad-Hoc Command session")

jabber-alert.el

@@ -1,6 +1,6 @@
 ;; jabber-alert.el - alert hooks
 
-;; Copyright (C) 2003, 2004, 2005, 2007 - Magnus Henoch - mange@freemail.hu
+;; Copyright (C) 2003, 2004, 2005, 2007, 2008 - Magnus Henoch - mange@freemail.hu
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 
 ;; This file is a part of jabber.el.
@@ -20,6 +20,7 @@
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 (require 'jabber-util)
+(require 'jabber-autoloads)
 
 (require 'cl)
 

jabber-chat.el

@@ -209,6 +209,7 @@ added to the outgoing message.")
   "Float-time of earliest backlog entry inserted into buffer.
 nil if no backlog has been inserted.")
 
+;;;###autoload
 (defun jabber-chat-get-buffer (chat-with)
   "Return the chat buffer for chatting with CHAT-WITH (bare or full JID).
 Either a string or a buffer is returned, so use `get-buffer' or

jabber-chatbuffer.el

@@ -1,6 +1,6 @@
 ;; jabber-chatbuffer.el - functions common to all chat buffers
 
-;; Copyright (C) 2005, 2007 - Magnus Henoch - mange@freemail.hu
+;; Copyright (C) 2005, 2007, 2008 - Magnus Henoch - mange@freemail.hu
 
 ;; This file is a part of jabber.el.
 
@@ -41,8 +41,10 @@ window or at `fill-column', whichever is shorter."
 (defvar jabber-chat-ewoc nil
   "The ewoc showing the messages of this chat buffer.")
 
+;;;###autoload
 (defvar jabber-buffer-connection nil
   "The connection used by this buffer.")
+;;;###autoload
 (make-variable-buffer-local 'jabber-buffer-connection)
 
 (defun jabber-chat-mode (jc ewoc-pp)

jabber-muc.el

@@ -25,6 +25,7 @@
 
 (require 'cl)
 
+;;;###autoload
 (defvar *jabber-active-groupchats* nil
   "alist of groupchats and nicknames
 Keys are strings, the bare JID of the room.
@@ -139,6 +140,7 @@ The format is that of `mode-line-format' and `header-line-format'."
   "List of functions that may be able to print part of a MUC message.
 This gets prepended to `jabber-chat-printers', which see.")
 
+;;;###autoload
 (defun jabber-muc-get-buffer (group)
   "Return the chat buffer for chatroom GROUP.
 Either a string or a buffer is returned, so use `get-buffer' or
@@ -163,6 +165,7 @@ This function is idempotent."
     (setq header-line-format jabber-muc-header-line-format)
     (current-buffer)))
 
+;;;###autoload
 (defun jabber-muc-private-get-buffer (group nickname)
   "Return the chat buffer for private chat with NICKNAME in GROUP.
 Either a string or a buffer is returned, so use `get-buffer' or
@@ -722,11 +725,13 @@ include groupchat invites."
 	  (gethash (jabber-jid-symbol from) jabber-pending-groupchats))
      (jabber-xml-path message '(("http://jabber.org/protocol/muc#user" . "x") invite)))))
 
+;;;###autoload
 (defun jabber-muc-sender-p (jid)
   "Return non-nil if JID is a full JID of an MUC participant."
   (and (assoc (jabber-jid-user jid) *jabber-active-groupchats*)
        (jabber-jid-resource jid)))
 
+;;;###autoload
 (defun jabber-muc-private-message-p (message)
   "Return non-nil if MESSAGE is a private message in a groupchat."
   (let ((from (jabber-xml-get-attribute message 'from))

jabber-presence.el

@@ -25,6 +25,7 @@
 (require 'jabber-util)
 (require 'jabber-menu)
 (require 'jabber-muc)
+(require 'jabber-autoloads)
 
 (require 'assoc)
 
@@ -285,6 +286,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise."
 	  (setq count (1+ count))))
     count))
 
+;;;###autoload
 (defun jabber-send-presence (show status priority)
   "Set presence for all accounts."
   (interactive (list (completing-read "show:"

jabber.el

@@ -88,6 +88,7 @@ configure a Google Talk account like this:
 				   (const :tag "Legacy SSL/TLS" ssl))))))
   :group 'jabber)
 
+;;;###autoload
 (defcustom jabber-default-show ""
   "default show state"
   :type '(choice (const :tag "Online" "")
@@ -97,11 +98,13 @@ configure a Google Talk account like this:
 		 (const :tag "Do not disturb" "dnd"))
   :group 'jabber)
 
+;;;###autoload
 (defcustom jabber-default-status ""
   "default status string"
   :type 'string
   :group 'jabber)
 
+;;;###autoload
 (defcustom jabber-default-priority 10
   "default priority"
   :type 'integer
@@ -155,13 +158,15 @@ configure a Google Talk account like this:
 
 (require 'jabber-autoloads)
 
-
+;;;###autoload
 (defvar *jabber-current-status* nil
   "the users current presence staus")
 
+;;;###autoload
 (defvar *jabber-current-show* nil
   "the users current presence show")
 
+;;;###autoload
 (defvar *jabber-current-priority* nil
   "the user's current priority")