diff --git a/src/ChangeLog b/src/ChangeLog index 3360ca812208783ceb54a3d3d65ca47fab4caf2b..473acfdd2deed9c03b7517c1104444a655c5649a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2005-02-14 David Byers <byers@lysator.liu.se> + Fix bug 1511: + * commands1.el (lyskom-combine-username): Downcase hostnames. + Fixed bug 1520: * lyskom-buttons.el (lyskom-button-menu): Pass filter to functions that build menus. diff --git a/src/commands1.el b/src/commands1.el index 7076873aa1921b3b060c413cf861ce68e346de1d..e2c20643868e8cfefbf8ea90e5016bc7cd0c355f 100644 --- a/src/commands1.el +++ b/src/commands1.el @@ -3240,9 +3240,10 @@ prefix argument \(C-u -), list all sessions." (defun lyskom-combine-username (username identname hostname) "Return a description of from where a user is logged in." ;; Ignore ident info for now + (setq hostname (downcase hostname)) (if (string-match "\\(.*\\)%\\(.*\\)" username) (let ((user (substring username (match-beginning 1) (match-end 1))) - (uhost (substring username (match-beginning 2) (match-end 2)))) + (uhost (downcase (substring username (match-beginning 2) (match-end 2))))) (if (lyskom-string= uhost hostname) (concat user "@" hostname) (concat username "@" hostname)))