Fix bug in entry list

kofuk · Aug 28, 2019 · 4b47e4b · 4b47e4b
1 parent f0b4e4b
commit 4b47e4b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/entry.el b/entry.el
@@ -86,9 +86,10 @@
 
 (defun get-entry-date (entry)
   "Return created date of entry according to entry id."
-  (if (string-match-p "^[0-9]{8}" entry)
+  (if (string-match-p "^[0-9][0-9][0-9][0-9][01][0-9][0-3][0-9]" entry)
       (with-temp-buffer
         (insert entry)
+        (goto-char (point-min))
         (forward-char 4)
         (insert "/")
         (forward-char 2)