+
+;;; User agent functions
+
+(defun user-agent-ie-p (agent)
+ "Takes a user-agent string and returns T for Internet Explorer."
+ (when (or (string-equal "Microsoft" (subseq agent 0 (length "Microsoft")))
+ (string-equal "Internet Explore" (subseq agent 0 (length "Internet Explore"))))
+ t))
+