Save empty rolled groups list anyway, for consistensy

1 files changed, 8 insertions, 8 deletions

diff --git a/jabber-roster.el b/jabber-roster.el
index 2b53b8c..aab4e6b 100644
--- a/jabber-roster.el
+++ b/jabber-roster.el
@@ -860,14 +860,14 @@ If optional PREV is non-nil, return position of previous property appearence."
   (dolist (jc jabber-connections)
     (let* ((groups (plist-get (fsm-get-state-data jc) :roster-roll-groups))
            (roll-groups
-            (when groups
-              (mapconcat (lambda (a) (substring-no-properties a)) groups "\n"))))
-      (when roll-groups
-        (jabber-private-set jc
-                            `(roster ((xmlns . "emacs-jabber"))
-                                     ,roll-groups)
-                            'jabber-report-success "Roster groups saved"
-                            'jabber-report-success "Failed to save roster groups")))))
+            (if groups
+                (mapconcat (lambda (a) (substring-no-properties a)) groups "\n")
+              "")))
+      (jabber-private-set jc
+                          `(roster ((xmlns . "emacs-jabber"))
+                                   ,roll-groups)
+                          'jabber-report-success "Roster groups saved"
+                          'jabber-report-success "Failed to save roster groups"))))
 
 (provide 'jabber-roster)