[Emacs-diffs] /srv/bzr/emacs/trunk r102527: * lisp/calendar/diary-lib.el (diary-outlook-format-1): Fix match-strings.

[Glenn Morris]

------------------------------------------------------------
revno: 102527
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2010-11-25 19:14:03 -0800
message:
  * lisp/calendar/diary-lib.el (diary-outlook-format-1): Fix match-strings.
modified:
  lisp/calendar/diary-lib.el

=== modified file 'lisp/calendar/diary-lib.el'
--- a/lisp/calendar/diary-lib.el        2010-11-26 03:10:16 +0000
+++ b/lisp/calendar/diary-lib.el        2010-11-26 03:14:03 +0000
@@ -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))