diff --git a/modules/rewrite-message-urls.lisp b/modules/rewrite-message-urls.lisp index 077c255..8e80d45 100644 --- a/modules/rewrite-message-urls.lisp +++ b/modules/rewrite-message-urls.lisp @@ -71,7 +71,6 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)") link (cdr mapping)) link))) - (push mapped results))) (reverse results))) diff --git a/src/open-message-link-window.lisp b/src/open-message-link-window.lisp index 8785a4d..55a5c50 100644 --- a/src/open-message-link-window.lisp +++ b/src/open-message-link-window.lisp @@ -40,7 +40,7 @@ :selected-fg bg)) links))) (let* ((message (db:find-status-id status-id)) - (links (text-utils:collect-links (db:row-message-rendered-text message)))) + (links (reverse (text-utils:collect-links (db:row-message-rendered-text message))))) (with-croatoan-window (croatoan-window object) (when hooks:*before-displaying-links-hook* (setf links