Commit deebac2d authored by David Byers's avatar David Byers
Browse files

Fixed bug 1236.

Detailed changes:
> 	Fix bug 1236:
> 	* vars.el.in (lyskom-default-conference-strategy): Added
> 	kom-force-logout.
>
> 	* commands1.el (lyskom-return-username): Handle
> 	static-session-info and session-info in addition to who-info.
>
parent fbcd48a7
2004-01-01 David Byers <byers@lysator.liu.se> 2004-01-01 David Byers <byers@lysator.liu.se>
Fix bug 1236:
* vars.el.in (lyskom-default-conference-strategy): Added
kom-force-logout.
* commands1.el (lyskom-return-username): Handle
static-session-info and session-info in addition to who-info.
Fix bug 1237: Fix bug 1237:
* vars.el.in (lyskom-commands-not-in-menu): New variable. * vars.el.in (lyskom-commands-not-in-menu): New variable.
......
...@@ -3255,7 +3255,11 @@ prefix argument \(C-u -), list all sessions." ...@@ -3255,7 +3255,11 @@ prefix argument \(C-u -), list all sessions."
(defun lyskom-return-username (who-info) (defun lyskom-return-username (who-info)
"Takes the username from the WHO-INFO and returns it on a better format." "Takes the username from the WHO-INFO and returns it on a better format."
(let* ((username (who-info->username who-info)) (let* ((username (cond ((lyskom-static-session-info-p who-info)
(static-session-info->username who-info))
((lyskom-session-info-p who-info)
(session-info->username who-info))
(t (who-info->username who-info))))
(type (or (type (or
(string-match "\\([^%@.]+\\)%\\(.+\\)@\\([^%@.]+\\)" username) (string-match "\\([^%@.]+\\)%\\(.+\\)@\\([^%@.]+\\)" username)
(string-match "\\([^%@.]+\\)@\\([^%@.]+\\)" username)))) (string-match "\\([^%@.]+\\)@\\([^%@.]+\\)" username))))
......
...@@ -385,6 +385,7 @@ the priority among links that match the same text is undefined." ...@@ -385,6 +385,7 @@ the priority among links that match the same text is undefined."
(kom-edit-insert-link (which-conf-to-link) (which-pers-to-link)) (kom-edit-insert-link (which-conf-to-link) (which-pers-to-link))
(kom-status-conf (conf-for-status)) (kom-status-conf (conf-for-status))
(kom-status-session (session-for-status)) (kom-status-session (session-for-status))
(kom-force-logout (who-to-throw-out))
(kom-status-person (pers-for-status)) (kom-status-person (pers-for-status))
(kom-set-garb-nice (conf-to-set-garb-nice-q)) (kom-set-garb-nice (conf-to-set-garb-nice-q))
(kom-set-super-conf (conf-to-set-super-conf-q) (new-super-conf-q)) (kom-set-super-conf (conf-to-set-super-conf-q) (new-super-conf-q))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment