jao-mpc-add-url, for podcasts

1 files changed, 11 insertions, 11 deletions

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