From 5f71c2158fe027ae37db5ee703b40a6769cbc3f7 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Fri, 16 Sep 2022 21:44:02 +0100
Subject: [PATCH] delete redundant crlf

---
 sms.fnl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/sms.fnl b/sms.fnl
index 2aa9726..bb145aa 100644
--- a/sms.fnl
+++ b/sms.fnl
@@ -149,7 +149,7 @@
       (tx (.. "AT+CMGS=" (string.format "%d" (/ (# pdu) 2)) "\r\n"))
       (expect ">" "ERROR")
       (tx payload)
-      (tx "\026\r\n")
+      (tx "\026")
       (expect "OK"))))
 
 (fn new-sender [{: device : smsc : verbose}]
@@ -166,12 +166,12 @@
       (tcsetattr  0 termios)
       (tcdrain)
 
-      (command "AT")
-      (command "AT&F")                  ; revert to defaults
-      (command "ATE0")                  ; disable command echo
-      (command "AT+CMEE=1")              ;print CME errors
-      (command (.. "AT+CSCA=\"" smsc "\",145\r\n")) ;set SMSC
-      (command "AT+CMGF=0"))              ;SMS  PDU mode
+      (command "AT")                            ; hello ?
+      (command "AT&F")                          ; revert to defaults
+      (command "ATE0")                          ; disable command echo
+      (command "AT+CMEE=1")                     ; print CME errors
+      (command (.. "AT+CSCA=\"" smsc "\",145")) ; set SMSC
+      (command "AT+CMGF=0"))                    ; expect SMS data in PDU mode
 
     {:send send-message :device device :smsc smsc :fd fd}))