From 3c6913a6d4fb0d89f3b40ad552c533473d0271c0 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 1 Jun 2021 03:13:06 +0100
Subject: jao-mpc-add-url, for podcasts

---
 gnus.org | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'gnus.org')

diff --git a/gnus.org b/gnus.org
index 61ef7c5..a11bfa0 100644
--- a/gnus.org
+++ b/gnus.org
@@ -683,17 +683,17 @@
 
       (defun jao-gnus-open-enclosure (&optional playp)
         (interactive "P")
-        (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)))
-              (message "%s %s ..." (if playp "Playing" "Adding") url)
-              (if playp (emms-play-url url) (emms-add-url url))
-              (when playp
-                (sit-for 1)
-                (jao-emms-echo))))))
+        (save-window-excursion
+          (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)))
+                (message "%s %s ..." (if playp "Playing" "Adding") url)
+                (when playp (jao-mpc-clear))
+                (jao-mpc-add-url url)
+                (when playp (jao-mpc-play)))))))
     #+end_src
 * Keyboard shortcuts
   #+BEGIN_SRC emacs-lisp
-- 
cgit v1.2.3