===================================================================
RCS file: /cvs/mandoc/Attic/man_action.c,v
retrieving revision 1.36
retrieving revision 1.40
diff -u -p -r1.36 -r1.40
--- mandoc/Attic/man_action.c	2010/05/17 22:11:42	1.36
+++ mandoc/Attic/man_action.c	2010/07/22 23:03:15	1.40
@@ -1,4 +1,4 @@
-/*	$Id: man_action.c,v 1.36 2010/05/17 22:11:42 kristaps Exp $ */
+/*	$Id: man_action.c,v 1.40 2010/07/22 23:03:15 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@bsd.lv>
  *
@@ -73,6 +73,7 @@ const	struct actions man_actions[MAN_MAX] = {
 	{ post_nf }, /* Vb */
 	{ post_fi }, /* Ve */
 	{ post_AT }, /* AT */
+	{ NULL }, /* in */
 };
 
 
@@ -136,8 +137,10 @@ post_TH(struct man *m)
 		free(m->meta.source);
 	if (m->meta.msec)
 		free(m->meta.msec);
+	if (m->meta.rawdate)
+		free(m->meta.rawdate);
 
-	m->meta.title = m->meta.vol = 
+	m->meta.title = m->meta.vol = m->meta.rawdate =
 		m->meta.msec = m->meta.source = NULL;
 	m->meta.date = 0;
 
@@ -155,14 +158,21 @@ post_TH(struct man *m)
 
 	/* TITLE MSEC ->DATE<- SOURCE VOL */
 
+	/*
+	 * Try to parse the date.  If this works, stash the epoch (this
+	 * is optimal because we can reformat it in the canonical form).
+	 * If it doesn't parse, isn't specified at all, or is an empty
+	 * string, then use the current date.
+	 */
+
 	n = n->next;
-	if (n) {
+	if (n && n->string && *n->string) {
 		m->meta.date = mandoc_a2time
 			(MTIME_ISO_8601, n->string);
 		if (0 == m->meta.date) {
 			if ( ! man_nmsg(m, n, MANDOCERR_BADDATE))
 				return(0);
-			m->meta.date = time(NULL);
+			m->meta.rawdate = mandoc_strdup(n->string);
 		}
 	} else
 		m->meta.date = time(NULL);
@@ -219,6 +229,9 @@ post_AT(struct man *m)
 			p = unix_versions[0];
 	}
 
+	if (m->meta.source)
+		free(m->meta.source);
+
 	m->meta.source = mandoc_strdup(p);
 
 	return(1);
@@ -258,6 +271,9 @@ post_UC(struct man *m)
 		else
 			p = bsd_versions[0];
 	}
+
+	if (m->meta.source)
+		free(m->meta.source);
 
 	m->meta.source = mandoc_strdup(p);