From: Ihor Radchenko <yantar92@posteo.net>
Date: Tue, 20 Feb 2024 11:59:20 +0000 (+0300)
Subject: org-file-contents: Consider all remote files unsafe
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7a33b8883c37c0cf0aedb8018111a46625d0df7;p=emacs.git

org-file-contents: Consider all remote files unsafe

* lisp/org/org.el (org-file-contents): When loading files, consider all
remote files (like TRAMP-fetched files) unsafe, in addition to URLs.

(cherry picked from commit 2bc865ace050ff118db43f01457f95f95112b877)
---

diff --git a/lisp/org/org.el b/lisp/org/org.el
index 08264190d50..03b74338a86 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -4576,12 +4576,16 @@ from file or URL, and return nil.
 If NOCACHE is non-nil, do a fresh fetch of FILE even if cached version
 is available.  This option applies only if FILE is a URL."
   (let* ((is-url (org-url-p file))
+         (is-remote (condition-case nil
+                        (file-remote-p file)
+                      ;; In case of error, be safe.
+                      (t t)))
          (cache (and is-url
                      (not nocache)
                      (gethash file org--file-cache))))
     (cond
      (cache)
-     (is-url
+     ((or is-url is-remote)
       (if (org--should-fetch-remote-resource-p file)
           (condition-case error
               (with-current-buffer (url-retrieve-synchronously file)