# HG changeset patch # User Glenn Morris # Date 1290741243 28800 # Node ID 997260859ccaca80738d731f49a3d94a23475c0a # Parent b299531e6c809af141f70f8eb8d567752a98d089 * lisp/calendar/diary-lib.el (diary-outlook-format-1): Fix match-strings. diff -r b299531e6c80 -r 997260859cca lisp/calendar/diary-lib.el --- a/lisp/calendar/diary-lib.el Thu Nov 25 19:10:16 2010 -0800 +++ b/lisp/calendar/diary-lib.el Thu Nov 25 19:14:03 2010 -0800 @@ -309,11 +309,10 @@ "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))