From a38218f7cf24124a83dce5f1e2409317a5465e9f Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 19 Mar 2025 18:33:01 +0100 Subject: [PATCH] ; Avoid scraping non-readable files for maintainers * lisp/mail/emacsbug.el (submit-emacs-patch): Check if a file mentioned in a patch can be opened. (Bug#77083) (cherry picked from commit a77f10305c9ad0354987b09ec9a967021bb47d93) --- lisp/mail/emacsbug.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index f1fa3392571..020aaafc31b 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -543,10 +543,11 @@ Message buffer where you can explain more about the patch." (with-temp-buffer (insert-file-contents file) (while (search-forward-regexp "^\\+\\{3\\} ./\\(.*\\)" nil t) - (push (expand-file-name - (match-string-no-properties 1) - source-directory) - files))) + (let ((file (expand-file-name + (match-string-no-properties 1) + source-directory))) + (when (file-readable-p file) + (push file files))))) (mapcan (lambda (patch) (seq-remove -- 2.39.5