# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 918427483 0
# Node ID e9d808eaaaa1aa1c8891ec0ac916ecd060464165
# Parent  803ec3bfa983f31dc5ead2be3643012abf668413
(appt-make-list): Don't splice quotes and date onto message.

diff -r 803ec3bfa983 -r e9d808eaaaa1 lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Sun Feb 07 07:28:45 1999 +0000
+++ b/lisp/calendar/appt.el	Sun Feb 07 22:44:43 1999 +0000
@@ -525,7 +525,7 @@
 			  (calendar-date-equal 
 			   (calendar-current-date) (car (car entry-list))))
 		(let ((time-string (substring (prin1-to-string 
-					       (cdr (car entry-list))) 2 -2)))
+					       (cadr (car entry-list))) 2 -1)))
 
 		  (while (string-match
 			  "[0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?.*"