emacs/26.3/08_all_org-remote-unsafe.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

org-mode should consider remote files unsafe
Backported from emacs-29 branch
https://bugs.gentoo.org/927727

commit 2bc865ace050ff118db43f01457f95f95112b877
Author: Ihor Radchenko <yantar92@posteo.net>
Date:   Tue Feb 20 14:59:20 2024 +0300

    org-file-contents: Consider all remote files unsafe
    
--- emacs-26.3/lisp/org/org.el
+++ emacs-26.3/lisp/org/org.el
@@ -5297,12 +5297,16 @@ org-file-contents
 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-file-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)
       (with-current-buffer (url-retrieve-synchronously file)
 	(goto-char (point-min))
 	;; Move point to after the url-retrieve header.