From 8d2f1703936045a5d4be09579cad9084e3ace54a Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 2 Mar 2023 03:37:40 +0000 Subject: embark: replacements for embark-define-keymap definitions --- custom/jao-custom-gnus.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'custom/jao-custom-gnus.el') diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index e21286a..164257b 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -586,10 +586,12 @@ (gnus-summary-select-article-buffer) (save-excursion (goto-char (point-min)) - (when (search-forward "Enclosure:") - (forward-char 2) - (when-let ((url (thing-at-point-url-at-point))) - (jao-mpc-add-or-play-url url)))))) + (let ((offset (or (and (search-forward-regexp "^Enclosure: " nil t) 2) + (and (search-forward-regexp "^Enclosure$" nil t) -2)))) + (when offset (forward-char offset)) + (if-let ((url (jao-url-around-point))) + (jao-mpc-add-or-play-url url) + (error "No enclosure found")))))) ;;;; delayed messages (require 'gnus-util) -- cgit v1.2.3