--- a/lisp/gnus/lpath.el	Mon Aug 13 08:49:21 2007 +0200
+++ b/lisp/gnus/lpath.el	Mon Aug 13 08:49:43 2007 +0200
@@ -12,7 +12,7 @@
     (progn 
       (defvar track-mouse nil)
       (maybe-fbind '(posn-point event-start x-popup-menu
-		     error-message-string facemenu-get-face window-at
+		     facemenu-get-face window-at
 		     coordinates-in-window-p compute-motion
 		     x-defined-colors easy-menu-create-keymaps)) 
       ;; XEmacs thinks writting compatible code is obsolete.
@@ -25,7 +25,7 @@
 		 device-class get-popup-menu-response event-object
 		 x-defined-colors read-color add-submenu set-font-family
 		 font-create-object set-font-size frame-device find-face
-		 set-extent-property make-extent)))
+		 set-extent-property make-extent characterp display-error)))
 
 (setq load-path (cons "." load-path))
 (require 'custom)