# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531118 0
# Node ID 8f846c3889c84afff56e57c342f6c87b9678afaa
# Parent  b30429f0b599fbde0da5e9007f2e3cb1ec0b032a
(cookie-snarf): Pass proper format string to message.

diff -r b30429f0b599 -r 8f846c3889c8 lisp/play/cookie1.el
--- a/lisp/play/cookie1.el	Wed Jan 24 23:44:22 1996 +0000
+++ b/lisp/play/cookie1.el	Thu Jan 25 00:51:58 1996 +0000
@@ -104,7 +104,7 @@
     (if sym
 	(symbol-value sym)
       (setq sym (intern phrase-file cookie-cache))
-      (message startmsg)
+      (message "%s" startmsg)
       (save-excursion
 	(let ((buf (generate-new-buffer "*cookie*"))
 	      (result nil))
@@ -118,7 +118,7 @@
 	      (setq result (cons (buffer-substring beg (1- (point)))
 				 result))))
 	  (kill-buffer buf)
-	  (message endmsg)
+	  (message "%s" endmsg)
 	  (set sym (apply 'vector result)))))))
 
 (defun read-cookie (prompt phrase-file startmsg endmsg &optional require-match)