[elpa] elpa-admin 776126005b: (elpaa--wsl-read): Ignore 404s

[Stefan Monnier]

branch: elpa-admin
commit 776126005bccb19739a94f06f2faea338de3641d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    (elpaa--wsl-read): Ignore 404s
    
    * elpa-admin.el (elpaa--wsl-line-re): Catch the status.
    (elpaa--wsl-read): Ignore 404s.
---
 elpa-admin.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index e8c4114ec8..750c26451e 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -2066,7 +2066,7 @@ arbitrary code."
                      " " "HTTP/" (+ (or alnum ".")))   ; Protocol
                 (* (not (any "\"" " "))))              ; Garbage
       "\""
-      " " (+ digit)                                ; Status code
+      " " (group (+ digit))                        ; Status code
       " " (or (+ digit) "-")                       ; Size
       " \"" (* (or (not (any "\"")) "\\\"")) "\" " ; Referrer
       "\"" (* (or (not (any "\"")) "\\\"")) "\""   ; User-Agent
@@ -2083,17 +2083,18 @@ arbitrary code."
         (let* ((line (match-string 0))
                (timestr (match-string 1))
                (file (match-string 2))
+               (status (match-string 3))
                (timestr
                 (if (string-match "/\\([^/]*\\)/\\([^/:]*\\):" timestr)
                     (replace-match " \\1 \\2 " t nil timestr)
                   (message "Unrecognized timestamp: %s" timestr)
                   timestr))
                (time (encode-time (parse-time-string timestr))))
-          (when file
+          (when (and file (not (member status '("404"))))
             (let ((pkg (if (string-match
                             (rx bos "/"
                                 (or "packages" "devel" "nongnu" "nongnu-devel")
-                                "/"
+                                (+ "/")
                                 (group (+? any))
                                 (\?
                                  "-" (or