From 93a8cc9cdcf29af7e299ff2bb72ac0a635b9aa17 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Thu, 9 Jun 2011 22:42:19 +0200
Subject: Allow recipients to be a list of strings, for convenience

---
 smsmatrix.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/smsmatrix.scm b/smsmatrix.scm
index 5fece6f..76333dc 100644
--- a/smsmatrix.scm
+++ b/smsmatrix.scm
@@ -246,6 +246,9 @@
                   username password group tts-fallback (error-on-failure #t))
   (let-auth 'send-sms username password
     (let* ((recipient-type (if group 'group 'phone))
+           (recipients (if (string? recipients)
+                           recipients
+                           (string-intersperse recipients ",")))
            (res (api-request 'send-sms sms-uri `((username . ,username)
                                                  (password . ,password)
                                                  (,recipient-type . ,recipients)
-- 
cgit v1.2.3