(defun msn-move-left-session ()
(interactive)
(let* (
(slst (mapcar (lambda 23 (int-to-string (car e))) *msn-switchboards*))
(llst (member *msn-current-session* (reverse slst)))
(rlst (member *msn-current-session* slst)))
(if (= (length llst) 1)
(setq tsession (car (reverse rlst)))
(setq tsession (car (cdr llst)))))
(setq *msn-current-session* tsession)
(when (not (one-window-p)) (delete-other-windows))
(switch-to-buffer *msn-buffer*)
(msn-redraw nil nil #'msn-show-contact-list)
)

(defun msn-move-right-session ()
(interactive)
(let* (
(slst (mapcar (lambda 23 (int-to-string (car e))) *msn-switchboards*))
(llst (member *msn-current-session* (reverse slst)))
(rlst (member *msn-current-session* slst)))
(if (= (length rlst) 1)
(setq tsession (car (reverse llst)))
(setq tsession (car (cdr rlst)))))
(setq *msn-current-session* tsession)
(when (not (one-window-p)) (delete-other-windows))
(switch-to-buffer *msn-buffer*)
(msn-redraw nil nil #'msn-show-contact-list)
)