diff --git a/src/open-message-link-window.lisp b/src/open-message-link-window.lisp
index c06d019..dd96e8c 100644
--- a/src/open-message-link-window.lisp
+++ b/src/open-message-link-window.lisp
@@ -125,8 +125,12 @@
                    (selected-line-bg selected-line-bg)
                    (selected-line-fg selected-line-fg)) object
     (when hooks:*before-displaying-links-hook*
-      (setf links
-            (hooks:run-hook-compose 'hooks:*before-displaying-links-hook* links)))
+      (let ((mapped-links (hooks:run-hook-compose 'hooks:*before-displaying-links-hook*
+                                                  (mapcar #'gemini-parser:target links))))
+        (loop for mapped-link in mapped-links
+              for link in links
+              do
+                 (setf (gemini-parser:target link) mapped-link))))
     (flet ((make-rows (links bg fg)
              (mapcar (lambda (link)
                        (make-instance 'line