[nongnu] elpa/age 399e862f327 39/79: bugfix: ensure scrypt-p can handle empty/new files

[ELPA Syncer]

branch: elpa/age
commit 399e862f327c3ebb90bf543810cf2d24351a81a8
Author: Bas Alberts <bas@anti.computer>
Commit: Bas Alberts <bas@anti.computer>

    bugfix: ensure scrypt-p can handle empty/new files
---
 age.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/age.el b/age.el
index eed2dc50446..eeb24b7e3ec 100644
--- a/age.el
+++ b/age.el
@@ -359,13 +359,15 @@ question, and the callback data (if any)."
                             (line-beginning-position)
                             (line-end-position))
                       (forward-line 1)))))
-      ;; if the first line is the ascii armor marker, base64 decode the second 
line
-      (let ((b64 (string-match-p
-                  "-----BEGIN AGE ENCRYPTED FILE-----" (car lines)))
-            (l2 (cadr lines)))
-        ;; if the second line contains the scrypt stanza, it is a passphrase 
file
-        (when (string-match-p "-> scrypt " (if b64 (base64-decode-string l2) 
l2))
-          t)))))
+      ;; deal with empty/new files as well by checking for no lines
+      (when lines
+        ;; if the first line is the ascii armor marker, base64 decode the 
second line
+        (let ((b64 (string-match-p
+                    "-----BEGIN AGE ENCRYPTED FILE-----" (car lines)))
+              (l2 (cadr lines)))
+          ;; if the second line contains the scrypt stanza, it is a passphrase 
file
+          (when (string-match-p "-> scrypt " (if b64 (base64-decode-string l2) 
l2))
+            t))))))
 
 (defun age-context-result-for (context name)
   "Return the result of CONTEXT associated with NAME."