diff options
| author | Magnus Henoch <mange@freemail.hu> | 2006-07-01 08:02:20 +0000 |
|---|---|---|
| committer | Kirill A. Korinskiy <catap@catap.ru> | 2006-07-01 08:02:20 +0000 |
| commit | 071e1347dc421fe788fb0fcf73a0da7c7a9b8e05 (patch) | |
| tree | be368cf3459ef0a1d9916d25676f372e73853daa /jabber-presence.el | |
| parent | 3ece68c7a7db8f71cd8942d737a72428db355136 (diff) | |
Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-242
Creator: Magnus Henoch <mange@freemail.hu>
Allow status arguments for jabber-send-{away,xa}-presence
Diffstat (limited to 'jabber-presence.el')
| -rw-r--r-- | jabber-presence.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/jabber-presence.el b/jabber-presence.el index 3788ca7..4ca3923 100644 --- a/jabber-presence.el +++ b/jabber-presence.el @@ -270,17 +270,21 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." ,@(apply 'append (mapcar 'funcall jabber-presence-element-functions)))) (jabber-display-roster)) -(defun jabber-send-away-presence () +(defun jabber-send-away-presence (&optional status) "Set status to away. -Status description is empty. Priority is unchanged." - (interactive) - (jabber-send-presence "away" "" *jabber-current-priority*)) +With prefix argument, ask for status message." + (interactive (list + (when current-prefix-arg + (jabber-read-with-input-method "status message: " *jabber-current-status* '*jabber-status-history*)))) + (jabber-send-presence "away" status *jabber-current-priority*)) -(defun jabber-send-xa-presence () +(defun jabber-send-xa-presence (&optional status) "Send extended away presence. -Status description is empty. Priority is unchanged." - (interactive) - (jabber-send-presence "xa" "" *jabber-current-priority*)) +With prefix argument, ask for status message." + (interactive (list + (when current-prefix-arg + (jabber-read-with-input-method "status message: " *jabber-current-status* '*jabber-status-history*)))) + (jabber-send-presence "xa" status *jabber-current-priority*)) (defun jabber-send-default-presence () "Send default presence. |