bug in links ?

[Giovanni Ridolfi <gio.rido@tiscali.it>]

Hi, Carsten
I think I've found a bug regarding the hyperlink.

Org-mode version 5.12c
GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600) of 2007-06-02 on RELEASE

1. What exactly did you do?

     I wrote the file. 
     I enabled the debugger (Options/Enter Debugger on error)
     I clicked on the links.
     The "acs" link  was OK, the browser opened the link.
     So far so good

2. What did you expect to happen?

     That the browser would open the "aip" and "isof" links as well.

3. What happened instead? 

     "isof" and "aip" links did not trigger the browser.
     Please see the debugger trace

This is the org file:
------------------
              -*- mode: org; -*-
* acs link
#+LINK: acs http://pubs3.acs.org/acs/journals/toc.page?incoden=%s

[[acs:achre4][Acc Chem Res] ]
[[acs:achre4][Acc Chem Res]]   this is the link.

The acs link is ok: if I click on it my browser opens the page 

Debugger:
| Loading browse-url...done
|
| Starting c:/Documents and Settings/Gaetano/Documenti/firefox/Mozilla
|    Firefox/firefox.exe... |

* aip link

#+LINK  aip http://scitation.aip.org/%s

http://scitation.aip.org/aplo/  I can open this link too. 

|Starting c:/Documents and Settings/Gaetano/Documenti/firefox/Mozilla
|   Firefox/firefox.exe...

But if I use the compact form:
 [[aip:aplo/][Appl. Phys. Lett.]]

| Here follows the debugger trace: 
/////////////////////////////////////////////////////////////////// 
Debugger entered--Lisp error: (error "No match")
  signal(error ("No match"))
  error("No match")
  (if (or (org-search-not-self 1 re0 nil t) (org-search-not-self 1 re1
nil t) (org-search-not-self 1 re2 nil t) (org-search-not-self 1 re2a nil
t) (org-search-not-self 1 re3 nil t) (org-search-not-self 1 re4 nil t)
(org-search-not-self 1 re5 nil t)) (goto-char (match-beginning 1))
(goto-char pos) (error "No match"))
  (cond ((eq type ...) (org-occur reall)) ((eq type ...) (org-do-occur
... ...)) (t (goto-char ...) (if ... ... ... ...)))
  (cond ((run-hook-with-args-until-success ... s)) ((save-excursion ...
...) (goto-char pos)) ((string-match "^/\\(.*\\)/$" s) (cond ... ...))
(t (when ... ...) (remove-text-properties 0 ... ... s) (setq words ...
re0 ... re2 ... re2a ... re4 ... re1 ... re3 ... re5 ... re2 ... re2a
... re4 ... reall ...) (cond ... ... ...)) (t (goto-char ...) (if ...
... ...)))
  (let ((case-fold-search t) (s0 ...) (markers ...) (pos ...) (pre "")
(post "") words re0 re1 re2 re3 re4 re5 re2a reall) (cond (...) (...
...) (... ...) (t ... ... ... ...) (t ... ...)) (and (org-mode-p)
(org-show-context ...)))
  org-link-search("aip:aplo/" nil 18107)
  eval((org-link-search "aip:aplo/" nil 18107))
  (progn (widen) (eval cmd))
  (condition-case nil (eval cmd) (error (progn ... ...)))
  (let ((cmd ...)) (condition-case nil (eval cmd) (error ...)))
  (cond ((assoc type org-link-protocols) (funcall ... path)) ((equal
type "mailto") (let ... ... ... ...)) ((member type ...) (browse-url
...)) ((string= type "tags") (org-tags-view in-emacs path)) ((string=
type "thisfile") (if in-emacs ... ...) (let ... ...)) ((string= type
"tree-match") (org-occur ...)) ((string= type "file") (if ... ... ...)
(org-open-file path in-emacs line search)) ((string= type "news")
(org-follow-gnus-link path)) ((string= type "bbdb")
(org-follow-bbdb-link path)) ((string= type "info")
(org-follow-info-link path)) ((string= type "gnus") (let ... ... ...
...)) ((string= type "vm") (let ... ... ... ...)) ((string= type "wl")
(let ... ... ... ...)) ((string= type "mhe") (let ... ... ... ...))
((string= type "rmail") (let ... ... ... ...)) ((string= type "shell")
(let ... ... ... ...)) ((string= type "elisp") (let ... ...)) (t
(browse-url-at-point)))
  (let (type path link line search (pos ...)) (catch (quote match)
(save-excursion ... ...) (when ... ... ...) (save-excursion ...) (when
... ... ...) (save-excursion ...)) (unless path (error "No link found"))
(if (string-match " +\\'" path) (setq path ...)) (cond (... ...) (...
...) (... ...) (... ...) (... ... ...) (... ...) (... ... ...) (... ...)
(... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
(... ...) (... ...) (t ...)))
  (if (org-at-timestamp-p t) (org-follow-timestamp-link) (let (type path
link line search ...) (catch ... ... ... ... ... ...) (unless path ...)
(if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ...)))
  org-open-at-point()
  org-open-at-mouse((mouse-2 (#<window 3 on f3.org> 18107 (64 . 246)
25297926 nil 18107 (8 . 15) nil (0 . 6) (8 . 16))))
  call-interactively(org-open-at-mouse)

////////////////////////////////////////////////

Please, note that if I leave the debugger trace within the file the
cursor jumps to the 
 org-link-search("aip:aplo/" nil 18107)

line and no debugger buffer is displayed.

* Here another, slightly different example: isof link
#+LINK  isof http://www.isof.cnr.it/

If I click on the link inside the #+LINK line the browser is launched. 
also if I click on this link: http://www.isof.cnr.it/istituto.html

But for the link:

[[isof:istituto.html][isof istituto]]

I had the same error and the same backtrace

Please ask if you need more details.

cheers,
Giovanni