From 92c56fe7fd59e7bb8c374c71db82f3a941e47181 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 25 Nov 2010 19:14:03 -0800 Subject: [PATCH] * lisp/calendar/diary-lib.el (diary-outlook-format-1): Fix match-strings. --- lisp/calendar/diary-lib.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 9551174558d..159682c2e63 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -309,11 +309,10 @@ If this variable is nil, years must be written in full." "Return a replace-match template for an element of `diary-outlook-formats'. Returns a string using match elements 1-5, where: 1 = month name, 2 = day, 3 = year, 4 = time, 5 = location; also uses -%s = message subject. -The argument BODY is not used." - (let* ((monthname (match-string 1)) - (day (match-string 2)) - (year (match-string 3)) +%s = message subject. BODY is the string from which the matches derive." + (let* ((monthname (match-string 1 body)) + (day (match-string 2 body)) + (year (match-string 3 body)) ;; Blech. (month (catch 'found (dotimes (i (length calendar-month-name-array)) -- 2.39.2