diff options
| -rw-r--r-- | mumi/xapian.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mumi/xapian.scm b/mumi/xapian.scm index 9630274..613e9f9 100644 --- a/mumi/xapian.scm +++ b/mumi/xapian.scm @@ -142,7 +142,9 @@ messages and index their contents in the Xapian database at DBPATH." (define (range-boundary->date-string boundary*) (define boundary (string-delete #\- boundary*)) (cond - ((string->number boundary) boundary) + ((and (string->number boundary) + (<= (string-length boundary) 8)) + (format #f "~8,,,'0a" boundary)) (else (let ((date (match boundary ((or "now" "today") now) |