From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 23 Nov 1997 02:16:13 +0000 (+0000)
Subject: (ange-ftp-generate-passwd-key):
X-Git-Tag: emacs-20.3~2746
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e7dab81236eb810834191298fdc68585c192ec1;p=emacs.git

(ange-ftp-generate-passwd-key):
Downcase the host name
(ange-ftp-passwd-hashtable): Doc fix.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index a3c6c74c6f6..8b09c7f45e7 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -1001,7 +1001,8 @@ SIZE, if supplied, should be a prime number."
   "Hash table holding associations between HOST, USER pairs.")
 
 (defvar ange-ftp-passwd-hashtable (ange-ftp-make-hashtable)
-  "Mapping between a HOST, USER pair and a PASSWORD for them.")
+  "Mapping between a HOST, USER pair and a PASSWORD for them.
+All HOST values should be in lower case.")
 
 (defvar ange-ftp-account-hashtable (ange-ftp-make-hashtable)
   "Mapping between a HOST, USER pair and a ACCOUNT password for them.")
@@ -1139,7 +1140,7 @@ Optional DEFAULT is password to start with."
     (or pass default "")))
 
 (defmacro ange-ftp-generate-passwd-key (host user)
-  (` (concat (, host) "/" (, user))))
+  (` (concat (downcase (, host)) "/" (, user))))
 
 (defmacro ange-ftp-lookup-passwd (host user)
   (` (ange-ftp-get-hash-entry (ange-ftp-generate-passwd-key (, host) (, user))