- add mentions only is not empty or nil, previous check just tested for null.

2020-09-26 12:50:02 +02:00 · 2020-09-26 12:50:02 +02:00 · 2f13acdc7f
parent dee8b18b9c
commit 2f13acdc7f
1 changed files with 1 additions and 1 deletions
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@ -660,7 +660,7 @@
        (let ((exceeding-characters (ui:message-exceeds-server-limit-p body)))
          (if exceeding-characters
              (ui:exceeding-characters-notify exceeding-characters)
-              (let ((actual-message-body (if mentions
+              (let ((actual-message-body (if (text-utils:string-not-empty-p mentions)
                                             (format nil
                                                     "~a~a~%~a"
                                                     +mention-prefix+