Browse Source

ORG-NEWS: Use less conservative link update function

Nicolas Goaziou 2 months ago
parent
commit
e5d05e881a
1 changed files with 5 additions and 12 deletions
  1. 5 12
      etc/ORG-NEWS

+ 5 - 12
etc/ORG-NEWS

@@ -54,18 +54,11 @@ is non-nil."
                               (goto-char uri-start)
                               (re-search-forward "\\][][]" nil t)
                               (match-beginning 0)))
-                   (uri (buffer-substring-no-properties uri-start uri-end))
-                   (start 0))
-              (when (catch :obsolete
-                      (while (string-match "%\\(..\\)?" uri start)
-                        (setq start (match-end 0))
-                        (unless (member (match-string 1 uri)
-                                        '("25" "5B" "5D" "20"))
-                          (throw :obsolete nil)))
-                      (or no-query
-                          (y-or-n-p
-                           (format "Possibly obsolete URI syntax: %S.  Update?"
-                                   uri))))
+                   (uri (buffer-substring-no-properties uri-start uri-end)))
+              (when (or no-query
+                        (y-or-n-p
+                         (format "Possibly obsolete URI syntax: %S.  Fix? "
+                                 uri)))
                 (setf (buffer-substring uri-start uri-end)
                       (org-link-escape (org-link-decode uri)))))))))))
 #+end_src