Function: org--safe-remote-resource-p

org--safe-remote-resource-p is a byte-compiled function defined in org.el.gz.

Signature

(org--safe-remote-resource-p URI)

Documentation

Return non-nil if URI is considered safe.

This checks every pattern in org-safe-remote-resources, and returns non-nil if any of them match.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org--safe-remote-resource-p (uri)
  "Return non-nil if URI is considered safe.
This checks every pattern in `org-safe-remote-resources', and
returns non-nil if any of them match."
  (let ((uri-patterns org-safe-remote-resources)
        (file-uri (and (buffer-file-name (buffer-base-buffer))
                       (concat "file://" (file-truename (buffer-file-name (buffer-base-buffer))))))
        match-p)
    (while (and (not match-p) uri-patterns)
      (setq match-p (or (string-match-p (car uri-patterns) uri)
                        (and file-uri (string-match-p (car uri-patterns) file-uri)))
            uri-patterns (cdr uri-patterns)))
    match-p))