jabber-disconnect: Display "Already disconnected" if that is the case
This commit is contained in:
parent
2810cac378
commit
58cc4ecc28
|
@ -788,14 +788,16 @@ With double prefix argument, specify more connection details."
|
||||||
(jabber-disconnect-one (jabber-read-account))
|
(jabber-disconnect-one (jabber-read-account))
|
||||||
(unless *jabber-disconnecting* ; avoid reentry
|
(unless *jabber-disconnecting* ; avoid reentry
|
||||||
(let ((*jabber-disconnecting* t))
|
(let ((*jabber-disconnecting* t))
|
||||||
(run-hooks 'jabber-pre-disconnect-hook)
|
(if (null jabber-connections)
|
||||||
(dolist (c jabber-connections)
|
(message "Already disconnected")
|
||||||
(jabber-disconnect-one c t))
|
(run-hooks 'jabber-pre-disconnect-hook)
|
||||||
(setq jabber-connections nil)
|
(dolist (c jabber-connections)
|
||||||
|
(jabber-disconnect-one c t))
|
||||||
|
(setq jabber-connections nil)
|
||||||
|
|
||||||
(jabber-disconnected)
|
(jabber-disconnected)
|
||||||
(when (interactive-p)
|
(when (interactive-p)
|
||||||
(message "Disconnected from Jabber server(s)"))))))
|
(message "Disconnected from Jabber server(s)")))))))
|
||||||
|
|
||||||
(defun jabber-disconnect-one (jc &optional dont-redisplay)
|
(defun jabber-disconnect-one (jc &optional dont-redisplay)
|
||||||
"Disconnect from one Jabber server.
|
"Disconnect from one Jabber server.
|
||||||
|
|
Loading…
Reference in New Issue