(org-open-at-point): Fixed bug in wiki-style bracket links.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cf352ce757c7d403e0a71f835c7fbb2f8203cc3..4c325e968ca17d06018d5fd47fb39e8b3cee4188 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,6 @@
 2006-03-21  Carsten Dominik  <dominik@science.uva.nl>
 
-       * textmodes/org.el: (org-open-at-point): Fixed bug in wiki-stype
+       * textmodes/org.el: (org-open-at-point): Fixed bug in wiki-style
        bracket links.
 
 2006-03-21  Kim F. Storm  <storm@cua.dk>

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index a00a1b247e899f2271b941964396efc87cea0e65..ad4744adf157dff0bee8450eedecc34b2297e899 100644 (file)
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -6833,8 +6833,8 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file."
            (while (string-match " *\n *" link)
              (setq link (replace-match " " t t link)))
            (if (string-match org-link-regexp link)
-               (setq type (match-string 1)
-                     path (match-string 2))
+               (setq type (match-string 1 link)
+                     path (match-string 2 link))
              (setq type "thisfile"
                    path link))
            (throw 'match t)))
@@ -6893,6 +6893,10 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file."
 
       (cond
 
+       ((member type '("http" "https" "ftp" "mailto" "news"))
+       ;; give these to some browser
+       (browse-url (concat type ":" path)))
+
        ((string= type "tags")
        (org-tags-view in-emacs path))
        ((or (string= type "camel")