synch with flim-1_14

[elisp/flim.git] / scram-md5.el

diff --git a/scram-md5.el b/scram-md5.el
index 4eed943..6891600 100644 (file)
--- a/scram-md5.el
+++ b/scram-md5.el
@@ -36,11 +36,11 @@
 ;;
 ;; (scram-make-security-info nil t 0)
 ;; => "^A^@^@^@"
-;;
 
 ;;; Code:
 
-(require 'hmac-md5)                    ; (hmac-md5 TEXT KEY)
+(require 'hmac-md5)
+(require 'unique-id)
 
 (defmacro scram-security-info-no-security-layer (security-info)
   `(eq (logand (aref ,security-info 0) 1) 1))
@@ -72,7 +72,7 @@
   (let (id)
     (unwind-protect
        (concat "<" 
-               (setq id (sasl-unique-id))
+               (setq id (unique-id-m ".sasl"))
                "@" (system-name) ">")
       (fillarray id 0))))