From: okada <okada>
Date: Fri, 16 Feb 2001 22:48:31 +0000 (+0000)
Subject: * ntlm.el(smb-passwd-hash): Fix `upcase' for XEmacs.
X-Git-Tag: slim-1_14_6-0217
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6d9dc2d6ff40b8c68fd3f4c13f05ee6ff5fd759e;p=elisp%2Fflim.git

* ntlm.el(smb-passwd-hash): Fix `upcase' for XEmacs.
---

diff --git a/ChangeLog b/ChangeLog
index 2357173..277a422 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2001-02-17  Kenichi OKADA <okada@opaopa.org>
 
+	* ntlm.el(smb-passwd-hash): Fix `upcase' for XEmacs.
+
+2001-02-17  Kenichi OKADA <okada@opaopa.org>
+
 	* ntlm.el(TopLevel): Require `poem'
 	(ntlm-build-auth-request): Omit `request-bufIndex'
 	(ntlm-build-auth-response): Omit `response', `ident' and `msgType'
diff --git a/ntlm.el b/ntlm.el
index 7b2182b..33573b2 100644
--- a/ntlm.el
+++ b/ntlm.el
@@ -237,11 +237,10 @@ little-endian utf16."
 (defun smb-passwd-hash (passwd)
   "Return the SMB password hash string of 16 bytes long for the given password
 string PASSWD.  PASSWD is truncated to 14 bytes if longer."
-  (let* ((len (min (length passwd) 14))
-	 p15)
-    (setq p15 (concat (substring passwd 0 len) ;fill top 14 bytes with passwd
-		      (make-string (- 15 len) 0)))
-    (smbdes-e-p16 (upcase p15))))
+  (let ((len (min (length passwd) 14)))
+    (smbdes-e-p16
+     (concat (substring (upcase passwd) 0 len) ;fill top 14 bytes with passwd
+	     (make-string (- 15 len) 0)))))
 
 (defun smb-owf-encrypt (passwd c8)
   "Return the response string of 24 bytes long for the given password