From f52f48273a29764434564fe1eae47d6128876314 Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sun, 7 Nov 2021 08:40:30 +0100
Subject: [PATCH] Allow input of base45 decoder to also contain lower-case
 letters

---
 site-lisp/db-utils.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el
index 1c1672b..79e57af 100644
--- a/site-lisp/db-utils.el
+++ b/site-lisp/db-utils.el
@@ -518,7 +518,9 @@ Does not replace CRLF with CRCRLF, and so on."
   (when (= 1 (% (length str) 3))
     (user-error "Input string has invalid length for base45 decoding; must be 0 or 2 modulo 3"))
 
-  (let* ((list-of-blocks (->> str
+  (let* ((str (s-upcase str))
+
+         (list-of-blocks (->> str
                               db/base45--string-to-bytes
                               (-partition-all 3)))