Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-542
Creator: Magnus Henoch <mange@freemail.hu> More autoloading and un-warning
This commit is contained in:
parent
8be2c0dbec
commit
d8d787ff7e
|
@ -1,6 +1,6 @@
|
|||
;;; jabber-avatar.el --- generic functions for avatars
|
||||
|
||||
;; Copyright (C) 2006, 2007 Magnus Henoch
|
||||
;; Copyright (C) 2006, 2007, 2008 Magnus Henoch
|
||||
|
||||
;; Author: Magnus Henoch <mange@freemail.hu>
|
||||
|
||||
|
@ -32,6 +32,7 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'mailcap)
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
;;;; Variables
|
||||
|
|
|
@ -20,6 +20,7 @@
|
|||
|
||||
(require 'jabber-private)
|
||||
(require 'jabber-widget)
|
||||
(require 'jabber-autoloads)
|
||||
|
||||
(require 'cl)
|
||||
|
||||
|
@ -60,6 +61,7 @@ immediately, and return nil if it is not in the cache."
|
|||
(plist-get entry key)
|
||||
entry)))
|
||||
|
||||
;;;###autoload
|
||||
(defun jabber-parse-conference-bookmark (node)
|
||||
"Convert a <conference/> tag into a plist.
|
||||
The plist may contain the keys :jid, :name, :autojoin,
|
||||
|
|
|
@ -21,6 +21,7 @@
|
|||
(require 'jabber-core)
|
||||
(require 'jabber-chatbuffer)
|
||||
(require 'jabber-history)
|
||||
(require 'jabber-autoloads)
|
||||
|
||||
(require 'ewoc)
|
||||
(eval-when-compile (require 'cl))
|
||||
|
@ -167,6 +168,7 @@ These fields are available:
|
|||
"Face used for error messages"
|
||||
:group 'jabber-chat)
|
||||
|
||||
;;;###autoload
|
||||
(defvar jabber-chatting-with nil
|
||||
"JID of the person you are chatting with")
|
||||
|
||||
|
|
|
@ -22,6 +22,7 @@
|
|||
;; - Currently only active/composing notifications are /sent/ though all 5
|
||||
;; notifications are handled on receipt.
|
||||
|
||||
(require 'jabber-autoloads)
|
||||
(require 'cl)
|
||||
|
||||
(defgroup jabber-chatstates nil
|
||||
|
@ -31,9 +32,18 @@
|
|||
(defconst jabber-chatstates-xmlns "http://jabber.org/protocol/chatstates"
|
||||
"XML namespace for the chatstates feature.")
|
||||
|
||||
;;; INCOMING
|
||||
;;; Code for requesting chat state notifications from others and handling
|
||||
;;; them.
|
||||
(defcustom jabber-chatstates-confirm t
|
||||
"Send notifications about chat states?"
|
||||
:group 'jabber-chatstates
|
||||
:type 'boolean)
|
||||
|
||||
(defvar jabber-chatstates-requested 'first-time
|
||||
"Whether or not chat states notification was requested.
|
||||
This is one of the following:
|
||||
first-time - send state in first stanza, then switch to nil
|
||||
t - send states
|
||||
nil - don't send states")
|
||||
(make-variable-buffer-local 'jabber-chatstates-requested)
|
||||
|
||||
(defvar jabber-chatstates-last-state nil
|
||||
"The last seen chat state.")
|
||||
|
@ -43,6 +53,10 @@
|
|||
"Human-readable presentation of chat state information")
|
||||
(make-variable-buffer-local 'jabber-chatstates-message)
|
||||
|
||||
;;; INCOMING
|
||||
;;; Code for requesting chat state notifications from others and handling
|
||||
;;; them.
|
||||
|
||||
(defun jabber-chatstates-update-message ()
|
||||
(setq jabber-chatstates-message
|
||||
(if (and jabber-chatstates-last-state
|
||||
|
@ -65,19 +79,6 @@
|
|||
;;; Code for handling requests for chat state notifications and providing
|
||||
;;; them, modulo user preferences.
|
||||
|
||||
(defcustom jabber-chatstates-confirm t
|
||||
"Send notifications about chat states?"
|
||||
:group 'jabber-chatstates
|
||||
:type 'boolean)
|
||||
|
||||
(defvar jabber-chatstates-requested 'first-time
|
||||
"Whether or not chat states notification was requested.
|
||||
This is one of the following:
|
||||
first-time - send state in first stanza, then switch to nil
|
||||
t - send states
|
||||
nil - don't send states")
|
||||
(make-variable-buffer-local 'jabber-chatstates-requested)
|
||||
|
||||
(defvar jabber-chatstates-composing-sent nil
|
||||
"Has composing notification been sent?
|
||||
It can be sent and cancelled several times.")
|
||||
|
|
|
@ -19,6 +19,7 @@
|
|||
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
(require 'jabber-autoloads)
|
||||
(require 'cl)
|
||||
|
||||
(defgroup jabber-events nil
|
||||
|
|
|
@ -33,6 +33,7 @@
|
|||
|
||||
(require 'jabber-core)
|
||||
(require 'jabber-util)
|
||||
(require 'jabber-autoloads)
|
||||
|
||||
(defgroup jabber-history nil "Customization options for Emacs
|
||||
Jabber history files."
|
||||
|
|
|
@ -22,6 +22,7 @@
|
|||
(require 'jabber-chat)
|
||||
(require 'jabber-widget)
|
||||
(require 'jabber-newdisco)
|
||||
(require 'jabber-autoloads)
|
||||
|
||||
(require 'cl)
|
||||
|
||||
|
@ -48,6 +49,7 @@ Values are lists of nickname strings.")
|
|||
(defvar jabber-muc-topic ""
|
||||
"The topic of the current MUC room.")
|
||||
|
||||
;;;###autoload
|
||||
(defcustom jabber-muc-default-nicknames nil
|
||||
"Default nickname for specific MUC rooms."
|
||||
:group 'jabber-chat
|
||||
|
@ -56,6 +58,7 @@ Values are lists of nickname strings.")
|
|||
(string :tag "JID of room")
|
||||
(string :tag "Nickname"))))
|
||||
|
||||
;;;###autoload
|
||||
(defcustom jabber-muc-autojoin nil
|
||||
"List of MUC rooms to automatically join on connection.
|
||||
This list is saved in your Emacs customizations. You can also store
|
||||
|
@ -136,6 +139,7 @@ The format is that of `mode-line-format' and `header-line-format'."
|
|||
:type 'sexp
|
||||
:group 'jabber-chat)
|
||||
|
||||
;;;###autoload
|
||||
(defvar jabber-muc-printers '()
|
||||
"List of functions that may be able to print part of a MUC message.
|
||||
This gets prepended to `jabber-chat-printers', which see.")
|
||||
|
@ -710,6 +714,7 @@ group, else it is a JID."
|
|||
(or (plist-get bookmark :nick)
|
||||
(plist-get (fsm-get-state-data jc) :username)))))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun jabber-muc-message-p (message)
|
||||
"Return non-nil if MESSAGE is a groupchat message.
|
||||
That does not include private messages in a groupchat, but does
|
||||
|
|
|
@ -405,6 +405,7 @@ With prefix argument, ask for status message."
|
|||
(jabber-read-with-input-method "status message: " *jabber-current-status* '*jabber-status-history*))))
|
||||
(jabber-send-presence "xa" status *jabber-current-priority*))
|
||||
|
||||
;;;###autoload
|
||||
(defun jabber-send-default-presence (&optional jc)
|
||||
"Send default presence.
|
||||
Default presence is specified by `jabber-default-priority', `jabber-default-show',
|
||||
|
|
|
@ -194,17 +194,20 @@ configure a Google Talk account like this:
|
|||
(defgroup jabber-debug nil "debugging options"
|
||||
:group 'jabber)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom jabber-debug-log-xml nil
|
||||
"log all XML i/o in *-jabber-xml-log-*"
|
||||
:type 'boolean
|
||||
:group 'jabber-debug)
|
||||
|
||||
;;;###autoload
|
||||
(defcustom jabber-debug-keep-process-buffers nil
|
||||
"If nil, kill process buffers when the process dies.
|
||||
Contents of process buffers might be useful for debugging."
|
||||
:type 'boolean
|
||||
:group 'jabber-debug)
|
||||
|
||||
;;;###autoload
|
||||
(defconst jabber-presence-faces
|
||||
'(("" . jabber-roster-user-online)
|
||||
("away" . jabber-roster-user-away)
|
||||
|
@ -215,6 +218,7 @@ Contents of process buffers might be useful for debugging."
|
|||
(nil . jabber-roster-user-offline))
|
||||
"Mapping from presence types to faces")
|
||||
|
||||
;;;###autoload
|
||||
(defconst jabber-presence-strings
|
||||
'(("" . "Online")
|
||||
("away" . "Away")
|
||||
|
|
Loading…
Reference in New Issue