diff options
| author | defanor <defanor@uberspace.net> | 2021-09-17 00:04:42 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2021-09-17 00:04:42 +0300 |
| commit | 4bd304ce369cb70b20a3efd6f909137478efaaff (patch) | |
| tree | 15e456d5e10a07bafdd9a8e135fb2dc1ace08878 | |
| parent | 7ce58c208a79d4209f0bb036b7c0a2ea6695a867 (diff) | |
Don't accept empty input in xmpp.el
| -rw-r--r-- | emacs/xmpp.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/emacs/xmpp.el b/emacs/xmpp.el index 6966b36..c2c5af8 100644 --- a/emacs/xmpp.el +++ b/emacs/xmpp.el @@ -471,21 +471,22 @@ (defun xmpp-send-input () (interactive) (let ((input (buffer-substring xmpp-prompt-end-marker (point-max)))) - (pcase major-mode - ('xmpp-query-mode (xmpp-send `(message ((xmlns . "jabber:client") + (unless (string-empty-p input) + (pcase major-mode + ('xmpp-query-mode (xmpp-send `(message ((xmlns . "jabber:client") + (id . ,(xmpp-gen-id)) + (to . ,xmpp-jid) + (type . "chat")) + (body nil ,input)))) + ('xmpp-muc-mode (xmpp-send `(message ((xmlns . "jabber:client") (id . ,(xmpp-gen-id)) (to . ,xmpp-jid) - (type . "chat")) + (type . "groupchat")) (body nil ,input)))) - ('xmpp-muc-mode (xmpp-send `(message ((xmlns . "jabber:client") - (id . ,(xmpp-gen-id)) - (to . ,xmpp-jid) - (type . "groupchat")) - (body nil ,input)))) - ('xmpp-console-mode (xmpp-request `(console nil ,input) nil xmpp-proc)) - ('xmpp-xml-mode - (mapcar 'xmpp-send (xml-parse-region xmpp-prompt-end-marker (point-max)))))) - (delete-region xmpp-prompt-end-marker (point-max))) + ('xmpp-console-mode (xmpp-request `(console nil ,input) nil xmpp-proc)) + ('xmpp-xml-mode + (mapcar 'xmpp-send (xml-parse-region xmpp-prompt-end-marker (point-max)))))) + (delete-region xmpp-prompt-end-marker (point-max)))) (defvar xmpp-mode-map |