rename sasl-plain sasl-cram-md5

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

diff --git a/hmac-md5.el b/hmac-md5.el
index e1b37aa..9469cef 100644 (file)
--- a/hmac-md5.el
+++ b/hmac-md5.el
@@ -63,7 +63,22 @@
 (eval-when-compile (require 'hmac-def))
 (require 'md5)                         ; expects (md5 STRING)
 
-(define-hmac-function hmac-md5 md5 64 16) ; => (hmac-md5 TEXT KEY)
+(cond
+ ((and (fboundp 'md5)
+       (subrp (symbol-function 'md5)))
+  ;; recent XEmacs has `md5' as a built-in function.
+  ;; and default CODING is 'undecided.
+  ;; 
+  (define-hmac-function hmac-md5 
+    (lambda
+      (object &optional start end)
+      (md5 object start end 'binary)) 64 16)
+  )
+ (t
+  (define-hmac-function hmac-md5 md5 64 16)
+  ))
+; => (hmac-md5 TEXT KEY)
+
 ;; (define-hmac-function hmac-md5-96 md5 64 16 96)
 ;;  => (hmac-md5-96 TEXT KEY)