Mercurial > emacs

changeset 111727:997260859cca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/calendar/diary-lib.el (diary-outlook-format-1): Fix match-strings.
author Glenn Morris <rgm@gnu.org>
date Thu, 25 Nov 2010 19:14:03 -0800
parents b299531e6c80
children 3d2a49995aff
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))