Hello,
This patch makes emms-mpd-player.el also match HTTPS URLs. It's a
fairly small change so I don't think I need to sign any FSF
paperwork (if that's required for this project otherwise). Please
let me know if I need to format the patch differently.
>From 272d13193700b770b5030a6dbe29c62558a7f265 Mon Sep 17 00:00:00 2001
From: Isaac Haller <[email protected]>
Date: Thu, 13 Mar 2025 06:43:58 -0500
Subject: [PATCH] Match HTTPS URLs in MPD player
---
emms-player-mpd.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/emms-player-mpd.el b/emms-player-mpd.el
index fcdc53d..e857388 100644
--- a/emms-player-mpd.el
+++ b/emms-player-mpd.el
@@ -180,14 +180,14 @@ or nil if we cannot figure it out."
;; Create regexp
(when (and (stringp supported)
(not (string= supported "")))
- (concat "\\`http://\\|\\.\\(m3u\\|pls\\|"
+ (concat "\\`http[s]?://\\|\\.\\(m3u\\|pls\\|"
(regexp-opt (delq nil (split-string supported)))
"\\)\\'"))))))
(defcustom emms-player-mpd-supported-regexp
;; Use a sane default, just in case
(or (emms-player-mpd-get-supported-regexp)
- (concat "\\`http://\\|"
+ (concat "\\`http[s]?://\\|"
(emms-player-simple-regexp
"m3u" "ogg" "flac" "mp3" "wav" "mod" "au" "aiff")))
"Formats supported by MusicPD."
@@ -279,7 +279,7 @@ return at the end of a request.")
(defun emms-player-mpd-remote-filenamep (filename)
"Return t if FILENAME is a remote file."
- (string-match "\\`http://"; filename))
+ (string-match "\\`http[s]?://" filename))
(defun emms-player-mpd-sentinel (proc event)
"The process sentinel for MusicPD."
--
2.48.1
<#secure method=pgpmime mode=sign>
