[O] Incorrect html export link for "%252F" forward slash

[Robert Hotchkiss]

Remember to cover the basics, that is,
what you expected to happen and
what in fact did happen.  You don't
know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the
Org-mode mailing list.
------------------------------------------------------------------------

Problem: when exporting as html an org
file that has links with URLs that contain
"%252F" for a forward slash,
the resulting html link description differs
significantly from the link definition
listed in the orgfile. For
example, in the following example, the
org file link description is

"Cannot reinstall an agent"

Whereas the resulting browser link is

<a
href="">http://publib.boulder.ibm.com/infocenter/tivihelp/v4r1/index.jsp?topic=/com.ibm.tpc_V421.doc/fqz0_r_tbs_agent_cleanup.html">//publib.boulder.ibm.com/infocenter/tivihelp/v4r1/index.jsp?topic=/com.ibm.tpc_V421.doc/fqz0_r_tbs_agent_cleanup.html</a>

and this link is surrounded by additional
text, including the original
link description. The resulting href
is correct and thus clicking on the
links takes the browser user to the
correct web page, but the 
extraneous and descriptive text is unexpected
behavior.

I am cutting links from firefox and
pasting into org files.
Of course an easy workaround is to replace
%252F with
/, but just in case this is a bug, I
thought I would report it.

I don't know if the source of the %252
in this case is the 
IBM web site or firefox.

EXAMPLE

Contents for org file (excluding the
==========)

==========
Then clean up common agent residue:
[[http://publib.boulder.ibm.com/infocenter/tivihelp/v4r1/index.jsp?topic%3D%252Fcom.ibm.tpc_V421.doc%252Ffqz0_r_tbs_agent_cleanup.html][Cannot
reinstall an agent]] in TPC 4.2.1 InfoCenter
==========

Action performed by user on this file
(or region of this file):

C-c C-e h

Resulting html looks like

Then clean up common agent residue:
[[http://publib.boulder.ibm.com/infocenter/tivihe<a
href="">http://publib.boulder.ibm.com/infocenter/tivihelp/v4r1/index.jsp?topic=/com.ibm.tpc_V421.doc/fqz0_r_tbs_agent_cleanup.html">//publib.boulder.ibm.com/infocenter/tivihelp/v4r1/index.jsp?topic=/com.ibm.tpc_V421.doc/fqz0_r_tbs_agent_cleanup.html</a>v4r1/index.jsp?topic%3D%252Fcom.ibm.tpc_V421.doc%252Ffqz0_r_tbs_agent_cleanup.html][Cannot
reinstall an agent]] in TPC 4.2.1 InfoCenter

Which looks a bit like this in the browser:

Then clean up common agent residue:
[[http://publib.boulder.ibm.com/infocenter/tivihe//publib.boulder.ibm.com/infocenter/tivihelp/v4r1/index.jsp?topic=/com.ibm.tpc_V421.doc/fqz0_r_tbs_agent_cleanup.htmlv4r1/index.jsp?topic%3D%252Fcom.ibm.tpc_V421.doc%252Ffqz0_r_tbs_agent_cleanup.html][Cannot
reinstall an agent]] in TPC 4.2.1 InfoCenter 

If, in the org file, I replace the "%252F"
character with the actual
forward slash "/", then the
export works as expected. I am not sure that
%252F is the problem, but it might be.


Emacs  : GNU Emacs 23.1.50.1 (i386-mingw-nt6.1.7601)
 of 2009-11-03 on LENNART-69DE564
(patched)
Package: Org-mode version 7.7

current state:
==============
(setq
 org-log-done 'note
 org-file-apps '(("\\.pptx\\'"
. system) ("\\.ppt\\'" . system) ("\\.xlsx\\'" . system)
("\\.xls\\'" . system)
         
       ("\\.docx\\'" . system) ("\\.doc\\'"
. system) ("\\.odc\\'" . system) ("\\.odf\\'" . system)
         
       ("\\.odi\\'" . system) ("\\.otp\\'"
. system) ("\\.odp\\'" . system) ("\\.otg\\'" . system)
         
       ("\\.odg\\'" . system) ("\\.ots\\'"
. system) ("\\.ods\\'" . system) ("\\.odm\\'" . system)
         
       ("\\.ott\\'" . system) ("\\.odt\\'"
. system) (auto-mode . emacs) ("\\.mm\\'" . default)
         
       ("\\.x?html?\\'" . default)
("\\.pdf\\'" . default))
 org-export-latex-after-initial-vars-hook
'(org-beamer-after-initial-vars)
 org-show-siblings nil
 org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
 org-agenda-custom-commands '(("pa"
"Automation Project Summary"
         
               
     ((tags-todo "+Auto+TODO=\"NEXT\"")
(tags-todo "+Auto+TODO=\"NEAR\"")
         
               
      (tags-todo "+Auto+TODO=\"SOMEDAY\"")
(agenda ""))
         
               
     )
         
               
    ("pp" "Project Project Summary"
         
               
     ((tags-todo "+Project+TODO=\"NEXT\"")
(tags-todo "+Project+TODO=\"NEAR\"")
         
               
      (tags-todo "+Project+TODO=\"SOMEDAY\"")
(agenda ""))
         
               
     )
         
               
    ("pt" "Test Coverage Project Summary"
         
               
     ((tags-todo "+Test+TODO=\"NEXT\"")
(tags-todo "+Test+TODO=\"NEAR\"")
         
               
      (tags-todo "+Test+TODO=\"SOMEDAY\"")
(agenda ""))
         
               
     )
         
               
    ("pi" "TivInt Project Summary"
         
               
     ((tags-todo "+TivInt+TODO=\"NEXT\"")
(tags-todo "+TivInt+TODO=\"NEAR\"")
         
               
      (tags-todo "+TivInt+TODO=\"SOMEDAY\"")
(agenda ""))
         
               
     )
         
               
    ("pm" "task Management Project Summary"
         
               
     ((tags-todo "+TaskMan+TODO=\"NEXT\"")
(tags-todo "+TaskMan+TODO=\"NEAR\"")
         
               
      (tags-todo "+TaskMan+TODO=\"SOMEDAY\"")
(agenda ""))
         
               
     )
         
               
    ("pd" "Admin Tasks"
         
               
     ((tags-todo "+Admin+TODO=\"NEXT\"")
(tags-todo "+Admin+TODO=\"NEAR\"")
         
               
      (tags-todo "+Admin+TODO=\"SOMEDAY\"")
(agenda ""))
         
               
     )
         
               
    ("ph" "Home Tasks"
         
               
     ((tags-todo "+Home+TODO=\"NEXT\"")
(tags-todo "+Home+TODO=\"NEAR\"")
         
               
      (tags-todo "+Home+TODO=\"SOMEDAY\""))
         
               
     )
         
               
    ("pn" "Notes Summary"
         
               
     ((tags-todo "+Notes-Captured") (tags-todo
"+Notes+Captured") (agenda "")))
         
               
    ("nt" "Todos with no valid Tags"
         
               
     ((tags-todo "-Auto-Project-Test-TivInt-TaskMan-Admin-Notes-Home")))
         
               
    ("n1" "TODO" ((tags-todo "+TODO=\"TODO\"")))
         
               
    ("n2" "SOMEDAY" ((tags-todo "+TODO=\"SOMEDAY\"")))
         
               
    ("n3" "NEAR" ((tags-todo "+TODO=\"NEAR\"")))
         
               
    ("n0" "NEXT" ((tags-todo "+TODO=\"NEXT\""))))
 org-agenda-files '(LIST REMOVED
PRIOR TO EMAILING)
 org-hide-leading-stars t
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook
'(org-clock-out-if-current)
 org-show-hierarchy-above t
 org-show-entry-below nil
 org-export-blocks-postblock-hook
'(org-exp-res/src-name-cleanup)
 org-export-html-style "  
<style type=\"text/css\">\n    <![CDATA[\n
      html { font-family: Calibri, sans-serif; font-size:
12pt; }\n    ]]>\n   </style>\n"
 org-export-latex-format-toc-function
'org-export-latex-format-toc-default
 org-agenda-skip-scheduled-if-done
t
 org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe
         
            org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function
'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-startup-indented t
 org-todo-keywords '((sequence
"TODO" "SOMEDAY(s)" "NEAR(r)" "NEXT(n)"
"STARTED(b)" "WAIT(w)" "|" "DONE(c)"
         
            "DELEGATED(d)")
         
           )
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-default-notes-file "c:/Users/IBM_ADMIN/Documents/org/notes.org"
 org-directory "~/../../Documents/org"
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-hide-drawers org-cycle-show-empty-lines
         
        org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook
'(org-remove-file-link-modifiers)
 org-list-indent-offset 1
 org-mode-hook '((lambda nil (flyspell-mode
1))
         
       (lambda nil (setq org-mouse-context-menu-function
(quote org-mouse-context-menu))
         
        (when (memq (quote context-menu) org-mouse-features)
(org-defkey org-mouse-map [mouse-3] nil)
         
         (org-defkey org-mode-map [mouse-3]
(quote org-mouse-show-context-menu)))
         
        (org-defkey org-mode-map [down-mouse-1]
(quote org-mouse-down-mouse))
         
        (when (memq (quote context-menu) org-mouse-features)
         
         (org-defkey org-mouse-map [C-drag-mouse-1]
(quote org-mouse-move-tree))
         
         (org-defkey org-mouse-map [C-down-mouse-1]
(quote org-mouse-move-tree-start)))
         
        (when (memq (quote yank-link) org-mouse-features)
         
         (org-defkey org-mode-map [S-mouse-2]
(quote org-mouse-yank-link))
         
         (org-defkey org-mode-map [drag-mouse-3]
(quote org-mouse-yank-link)))
         
        (when (memq (quote move-tree) org-mouse-features)
         
         (org-defkey org-mouse-map [drag-mouse-3]
(quote org-mouse-move-tree))
         
         (org-defkey org-mouse-map [down-mouse-3]
(quote org-mouse-move-tree-start)))
         
        (when (memq (quote activate-stars)
org-mouse-features)
         
         (font-lock-add-keywords nil
         
          (\`
         
           (((\, org-outline-regexp)
0
         
             (\` (face org-link
mouse-face highlight keymap (\, org-mouse-map))) (quote prepend))
         
            )
         
           )
         
          t)
         
         )
         
        (when (memq (quote activate-bullets)
org-mouse-features)
         
         (font-lock-add-keywords nil
         
          (\`
         
           (("^[    
    ]*\\([-+*]\\|[0-9]+[.)]\\) +"
         
             (1 (\` (face org-link
keymap (\, org-mouse-map) mouse-face highlight)) (quote prepend)))
         
            )
         
           )
         
          t)
         
         )
         
        (when (memq (quote activate-checkboxes)
org-mouse-features)
         
         (font-lock-add-keywords nil
         
          (\`
         
           (("^[    
    ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
         
             (2 (\` (face bold
keymap (\, org-mouse-map) mouse-face highlight)) t))
         
            )
         
           )
         
          t)
         
         )
         
        (defadvice org-open-at-point (around
org-mouse-open-at-point activate)
         
         (let ((context (org-context)))
         
          (cond ((assq :headline-stars
context) (org-cycle))
         
           ((assq :checkbox context)
(org-toggle-checkbox))
         
           ((assq :item-bullet context)
(let ((org-cycle-include-plain-lists t)) (org-cycle)))
         
           (t ad-do-it))
         
          )
         
         )
         
        )
         
       (lambda nil
         
        (org-add-hook (quote change-major-mode-hook)
(quote org-show-block-all) (quote append)
         
         (quote local))
         
        )
         
       (lambda nil
         
        (org-add-hook (quote change-major-mode-hook)
(quote org-babel-show-result-all) (quote append)
         
         (quote local))
         
        )
         
       org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-refile-targets '((org-agenda-files
:maxlevel . 2))
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
 org-cycle-separator-lines 0
 org-confirm-elisp-link-function
'yes-or-no-p
 org-agenda-mode-hook '((lambda
nil (setq org-mouse-context-menu-function (quote org-mouse-agenda-context-menu))
         
               (org-defkey
org-agenda-mode-map [mouse-3] (quote org-mouse-show-context-menu))
         
               (org-defkey
org-agenda-mode-map [down-mouse-3] (quote org-mouse-move-tree-start))
         
               (org-defkey
org-agenda-mode-map [C-mouse-4] (quote org-agenda-earlier))
         
               (org-defkey
org-agenda-mode-map [C-mouse-5] (quote org-agenda-later))
         
               (org-defkey
org-agenda-mode-map [drag-mouse-3]
         
               
(function
         
               
 (lambda (event) (interactive "e")
         
               
  (case (org-mouse-get-gesture event) (:left (org-agenda-earlier 1))
         
               
   (:right (org-agenda-later 1)))
         
               
  )
         
               
 )
         
               
)
         
               )
         
              )
 org-agenda-start-on-weekday nil
 org-footnote-auto-adjust t
 org-export-interblocks '((lob
org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-agenda-skip-deadline-if-done
t
 org-reverse-note-order t
 org-show-following-heading t
 org-occur-hook '(org-first-headline-recenter)
 org-from-is-user-regexp nil
 org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
 org-tags-column -80
 org-modules '(org-bbdb org-bibtex
org-docview org-gnus org-info org-jsinfo org-irc org-mew org-mhe org-rmail
         
     org-vm org-wl org-w3m org-odt org-panel org-registry)
 org-export-latex-final-hook '(org-beamer-amend-header
org-beamer-fix-toc org-beamer-auto-fragile-frames
         
               
     org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block
nil) (comment org-export-blocks-format-comment t)
         
           (ditaa org-export-blocks-format-ditaa
nil) (dot org-export-blocks-format-dot nil))
 )
Org-mode: version 7.7
GNU Emacs 23.1.50.1 (i386-mingw-nt6.1.7601)
of 2009-11-03 on LENNART-69DE564 (patched)
- Emacs on Windows 7 via EmacsW32 (http://ourcomments.org/Emacs/EmacsW32.html#download)

--
Robert

_________________________________________
Robert
Hotchkiss
address@hidden