Search RSS links from end of article

The “Link” link is usually placed at the very end of the article, so search from there.
Furthermore, when another link also contains “Link”, searching from the end will avoid opening this
link instead.

init.el

@@ -1455,19 +1455,20 @@ accordingly."
 (use-package org-tree-slide
   :commands (org-tree-slide-mode)
   ;; Configuration from https://protesilaos.com/dotemacs/
-  :init (setq org-tree-slide-breadcrumbs " → "
-              org-tree-slide-header t
-              org-tree-slide-slide-in-effect nil
-              org-tree-slide-heading-emphasis nil
-              org-tree-slide-cursor-init t
-              org-tree-slide-modeline-display nil
-              org-tree-slide-skip-done nil
-              org-tree-slide-skip-comments t
-              org-tree-slide-fold-subtrees-skipped t
-              org-tree-slide-skip-outline-level 8
-              org-tree-slide-never-touch-face t
-              org-tree-slide-activate-message (propertize "Presentation mode ON" 'face 'success)
-              org-tree-slide-deactivate-message (propertize "Presentation mode OFF" 'face 'error))
+  :init (setopt org-tree-slide-breadcrumbs " → "
+                org-tree-slide-header t
+                org-tree-slide-slide-in-effect nil
+                org-tree-slide-heading-emphasis nil
+                org-tree-slide-cursor-init t
+                org-tree-slide-modeline-display nil
+                org-tree-slide-content-margin-top 2
+                org-tree-slide-skip-done nil
+                org-tree-slide-skip-comments t
+                org-tree-slide-fold-subtrees-skipped t
+                org-tree-slide-skip-outline-level 8
+                org-tree-slide-never-touch-face t
+                org-tree-slide-activate-message (propertize "Presentation mode ON" 'face 'success)
+                org-tree-slide-deactivate-message (propertize "Presentation mode OFF" 'face 'error))
   :bind (:map org-tree-slide-mode-map
               ("<C-down>" . org-tree-slide-display-header-toggle)
               ("<C-right>" . org-tree-slide-move-next-tree)

site-lisp/db-mail.el

@@ -318,7 +318,7 @@ METHOD specifies the encrypt method used.  Can be either
     (delete-trailing-whitespace)))
 
 (defun db/gnus-summary-open-Link ()
-  "Open link named \"Link\" in current article."
+  "Open last link named \"Link\" in current article."
   (interactive)
   (save-window-excursion
    (save-mark-and-excursion
@@ -327,10 +327,10 @@ METHOD specifies the encrypt method used.  Can be either
      (let ((url nil))
        (unless (eq major-mode 'gnus-article-mode)
          (gnus-summary-select-article-buffer))
-       (goto-char (point-min))
+       (goto-char (point-max))
        (while (and (not url)
-                   (search-forward "Link"))
-         (backward-char)
+                   (search-backward "Link"))
+         (forward-char)
          (setq url (get-text-property (point) 'shr-url)))
        (when url
          (browse-url url)))))))