init.el

@@ -1455,13 +1455,12 @@ accordingly."
 (use-package org-tree-slide
   :commands (org-tree-slide-mode)
   ;; Configuration from https://protesilaos.com/dotemacs/
-  :init (setopt org-tree-slide-breadcrumbs " → "
+  :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-content-margin-top 2
               org-tree-slide-skip-done nil
               org-tree-slide-skip-comments t
               org-tree-slide-fold-subtrees-skipped t

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 last link named \"Link\" in current article."
+  "Open 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-max))
+       (goto-char (point-min))
        (while (and (not url)
-                   (search-backward "Link"))
-         (forward-char)
+                   (search-forward "Link"))
+         (backward-char)
          (setq url (get-text-property (point) 'shr-url)))
        (when url
          (browse-url url)))))))