--- a/lisp/w3/w3-sysdp.el	Mon Aug 13 09:20:50 2007 +0200
+++ b/lisp/w3/w3-sysdp.el	Mon Aug 13 09:21:54 2007 +0200
@@ -420,6 +420,12 @@
        object)
       (setq start next))))
 
+(sysdep-defun buffer-substring-no-properties (st nd)
+  "Return the characters of part of the buffer, without the text properties.
+The two arguments START and END are character positions;
+they can be in either order."
+  (buffer-substring st nd))
+
 ;; Property list functions
 ;;
 (sysdep-defun plist-put (plist prop val)