From c960116683353df01604d358b2fead72b9bb8c6d Mon Sep 17 00:00:00 2001 From: Paul Vasiletz Date: Wed, 7 Oct 2026 14:26:54 +0300 Subject: [PATCH 1/2] channels, token limit | remove legacy antispam filter, fix token limit notifying --- docs/reference-skills-communication.md | 1 - src/channels.metta | 7 +++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/docs/reference-skills-communication.md b/docs/reference-skills-communication.md index 8eabe2f4b..7670337e3 100644 --- a/docs/reference-skills-communication.md +++ b/docs/reference-skills-communication.md @@ -26,7 +26,6 @@ No meaningful return value. Used for its side effect. ``` ### Notes / Limits -- **Deduplication:** `send` silently drops the call if `message` is identical to the previous one (`&lastsend` state). Change the text to send a near-duplicate. - Channel selection is set at `initChannels` time via `commchannel`. --- diff --git a/src/channels.metta b/src/channels.metta index 6213fc3ba..9b1aecdec 100644 --- a/src/channels.metta +++ b/src/channels.metta @@ -23,7 +23,6 @@ ;Send a message to all communication channels: !(change-state! &lastsend "") (= (send $msg) - (if (!= $msg (get-state &lastsend)) - (progn (change-state! &lastsend $msg) - (let $safemsg (string-replace $msg "\n" "\\n") - (let $temp (cut) (commChannelSend $safemsg)))) _)) + (progn (change-state! &lastsend $msg) + (let $safemsg (string-replace $msg "\n" "\\n") + (let $temp (cut) (commChannelSend $safemsg))))) From 5910f6b9b0a446a31f37d3a48c3a894bddda6317 Mon Sep 17 00:00:00 2001 From: Paul Vasiletz Date: Fri, 9 Oct 2026 13:37:58 +0300 Subject: [PATCH 2/2] channels | remove legacy `&lastsend` --- src/channels.metta | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/channels.metta b/src/channels.metta index 9b1aecdec..664d7c869 100644 --- a/src/channels.metta +++ b/src/channels.metta @@ -21,8 +21,6 @@ (commChannelReceive)) ;Send a message to all communication channels: -!(change-state! &lastsend "") (= (send $msg) - (progn (change-state! &lastsend $msg) - (let $safemsg (string-replace $msg "\n" "\\n") - (let $temp (cut) (commChannelSend $safemsg))))) + (let $safemsg (string-replace $msg "\n" "\\n") + (let $temp (cut) (commChannelSend $safemsg))))