From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 25 Jan 2008 15:43:05 +0000 (+0000)
Subject: (server-process-filter): Don't force the authentication
X-Git-Tag: emacs-pretest-23.0.90~8415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38b9f0f370787df00241e25cdb83aa4373801d60;p=emacs.git

(server-process-filter): Don't force the authentication
string to be followed by "\n".
---

diff --git a/lisp/server.el b/lisp/server.el
index 2087af26b10..23f8eb36947 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -767,7 +767,7 @@ The following commands are accepted by the client:
   (server-log (concat "Received " string) proc)
   ;; First things first: let's check the authentication
   (unless (process-get proc :authenticated)
-    (if (and (string-match "-auth \\(.*?\\)\n" string)
+    (if (and (string-match "-auth \\([!-~]+\\)\n?" string)
 	     (equal (match-string 1 string) (process-get proc :auth-key)))
 	(progn
 	  (setq string (substring string (match-end 0)))