[zsd] fix auth success msg

plugins/zsd.lisp

@@ -64,13 +64,12 @@
                         "Без рассылки. '/zsd on' - включить, /zsd - последние.")))
 
 (defun zsd/handle-auth (chat-id login pass)
-  (bot-send-message chat-id
-                    (let ((token (zsd/auth login pass)))
-                      (if token
-                          (progn
-                            (secret/set `(:zsd ,chat-id) token)
-                            (zsd/handle-set-cron chat-id t))
-                          "Чот не смог, пропробуй другие."))))
+  (let ((token (zsd/auth login pass)))
+    (if token
+        (progn
+          (secret/set `(:zsd ,chat-id) token)
+          (zsd/handle-set-cron chat-id t))
+        (bot-send-message chat-id "Чот не смог, пропробуй другие."))))
 
 (defun zsd/handle-recent (chat-id)
   (secret/with (token (list :zsd chat-id))