[elpa] externals/denote c7ac9752fb 1/8: Make denote--id-to-date more strict about the identifier

[ELPA Syncer]

branch: externals/denote
commit c7ac9752fbd2113cb6163cada3879073da78476c
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make denote--id-to-date more strict about the identifier
---
 denote.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index b486c6d75d..3b2a70db9f 100644
--- a/denote.el
+++ b/denote.el
@@ -2058,10 +2058,12 @@ If either that or DATE is nil or an empty string, return
 
 (defun denote--id-to-date (identifier)
   "Convert IDENTIFIER string to YYYY-MM-DD."
-  (replace-regexp-in-string
-   "\\([0-9]\\{4\\}\\)\\([0-9]\\{2\\}\\)\\([0-9]\\{2\\}\\).*"
-   "\\1-\\2-\\3"
-   identifier))
+  (if (string-match-p (format "\\`%s\\'" denote-id-regexp) identifier)
+      (replace-regexp-in-string
+       "\\([0-9]\\{4\\}\\)\\([0-9]\\{2\\}\\)\\([0-9]\\{2\\}\\).*"
+       "\\1-\\2-\\3"
+       identifier)
+    (error "`%s' does not look like a Denote identifier per 
`denote-id-regexp'" identifier)))
 
 (defun denote--buffer-file-names ()
   "Return file names of Denote buffers."