(temp-directory) needs some (regexp-quote) love in gnuserv.el

[skip at pobox.com]

I tried posting this ticket through the new tracker but was rebuffed with
this error:

    Error: Required issue property module not supplied

so here's the bug report.

Skip

At the moment I have a very wacky (temp-directory):

    /var/folders/5q/5qTPn6xq2RaWqk+1Ytw3-U+++TI/-Tmp-/

This is on a Mac OS X 10.5.1 system using some XEmacs.app wrapper I found on
the net.

All the plusses wreak havoc with (string-match).  In particular,
gnuserv-temp-file-regexp needs a hug from (regexp-quote):

diff -u gnuserv.el.~1~ gnuserv.el
--- gnuserv.el.~1~      2004-12-14 03:56:48.000000000 -0600
+++ gnuserv.el  2008-02-14 10:43:10.000000000 -0600
@@ -214,7 +214,7 @@
   :group 'gnuserv)
 
 (defcustom gnuserv-temp-file-regexp
-  (concat "^" (temp-directory) "/Re\\|/draft$")
+  (concat "^" (regexp-quote (temp-directory)) "/Re\\|/draft$")
   "*Regexp which should match filenames of temporary files deleted
 and reused by the programs that invoke the Emacs server."
   :type 'regexp