diff options
author | Magnus Henoch <mange@freemail.hu> | 2005-06-13 16:06:16 +0000 |
---|---|---|
committer | Kirill A. Korinskiy <catap@catap.ru> | 2005-06-13 16:06:16 +0000 |
commit | 5f94d6434bffd8844cfb6f85f323d7a3bb9d9ac8 (patch) | |
tree | abc3b38105bd8ef03ed1a3c9fdffb34ce7bf1a67 /jabber-util.el | |
parent | a75056e5e5d9ed6d615bac3bcd273c193d41c235 (diff) |
Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-93
Creator: Magnus Henoch <mange@freemail.hu>
Handle improper error stanzas in jabber-report-success
Diffstat (limited to 'jabber-util.el')
-rw-r--r-- | jabber-util.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/jabber-util.el b/jabber-util.el index 4f48adb..2aacb1c 100644 --- a/jabber-util.el +++ b/jabber-util.el @@ -263,7 +263,10 @@ CONTEXT is a string describing the action." " succeeded" (concat " failed: " - (jabber-parse-error (jabber-iq-error xml-data)))))))) + (let ((the-error (jabber-iq-error xml-data))) + (if the-error + (jabber-parse-error the-error) + "No error message given")))))))) (defconst jabber-error-messages (list |