X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=emus.git;a=blobdiff_plain;f=emus.el;fp=emus.el;h=d0a972db0be1f9537a03a1e6bdd5796f0fb5901c;hp=7b65d8714f01d4f4f6719f0dceb3b86082045351;hb=58ef94d58ecc8571e6c0501c8d473ace36a29a43;hpb=b2d3157b868f33f78e09c1f336d44c8c77fd1ebf

diff --git a/emus.el b/emus.el
index 7b65d87..d0a972d 100644
--- a/emus.el
+++ b/emus.el
@@ -339,20 +339,22 @@ by the filesystem."
                   (guard emus-continuous-playback)
                   (guard (eq emus-state 'playing)))
              (emus-play-next))
-            ((rx (: string-start
-                    "@I ICY-META: StreamTitle="
-                    (let str (+ (not ";")))
-                    ";"))
+            ((and (guard emus-progress-enabled)
+                  (rx (: string-start
+                         "@I ICY-META: StreamTitle="
+                         (let str (+ (not ";")))
+                         ";")))
              (message (concat "Emus: Playing stream " str)))
-            ((rx (: string-start
-                    "@F "
-                    (+ digit)
-                    " "
-                    (+ digit)
-                    " "
-                    (let left-str (+ (not " ")))
-                    " "
-                    (let right-str (+ any))))
+            ((and (guard emus-progress-enabled)
+                  (rx (: string-start
+                         "@F "
+                         (+ digit)
+                         " "
+                         (+ digit)
+                         " "
+                         (let left-str (+ (not " ")))
+                         " "
+                         (let right-str (+ any)))))
              (let* ((left (string-to-number left-str))
                     (right (string-to-number right-str))
                     (total (+ left right)))