From e1a17fd9c9128b699e66617507c29a2cb01fb02b Mon Sep 17 00:00:00 2001
From: David Byers <david.byers@liu.se>
Date: Mon, 14 Feb 2005 21:35:58 +0000
Subject: [PATCH] Fixed bug 1511
Detailed changes:
> Fix bug 1511:
> * commands1.el (lyskom-combine-username): Downcase hostnames.
>
---
src/ChangeLog | 3 +++
src/commands1.el | 3 ++-
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/ChangeLog b/src/ChangeLog
index 3360ca81..473acfdd 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 7076873a..e2c20643 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)))
--
GitLab