From c5dbb98ee5639883676414e4948923de46ba0a5d Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Fri, 11 Mar 2016 12:25:13 +0100
Subject: Remove reply parameter from echo-bot example

---
 bot.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/bot.scm b/bot.scm
index bbd658d..1d556f2 100644
--- a/bot.scm
+++ b/bot.scm
@@ -31,13 +31,11 @@
          ")"))
 
 (define (echo-message msg)
-  (let ((chat_id    (resolve-query (list 'message 'from 'id)   msg))
-        (text       (resolve-query (list 'message 'text)       msg))
-        (message_id (resolve-query (list 'message 'message_id) msg)))
+  (let ((chat_id    (resolve-query (list 'message 'from 'id) msg))
+        (text       (resolve-query (list 'message 'text)     msg)))
     (telebot:sendMessage token
-                         chat_id:             chat_id
-                         text:                text
-                         reply_to_message_id: message_id)))
+                         chat_id: chat_id
+                         text:    text)))
 
 (do-forever
   (updates-for-each (lambda (u)
-- 
cgit v1.2.3