# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 880251373 0
# Node ID 5f8d36dfb126acce0858cd423ed0a1b44ec8cfc2
# Parent  4b604d468d0580be9b83294ce1e60fe3eae5bc01
(ange-ftp-generate-passwd-key):
Downcase the host name
(ange-ftp-passwd-hashtable): Doc fix.

diff -r 4b604d468d05 -r 5f8d36dfb126 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sun Nov 23 02:14:14 1997 +0000
+++ b/lisp/ange-ftp.el	Sun Nov 23 02:16:13 1997 +0000
@@ -1001,7 +1001,8 @@
   "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 @@
     (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))