Fix :get function for jabber-roster-default-group-name

diff --git a/jabber-roster.el b/jabber-roster.el
index d12c4ea..fdc6ff5 100644 (file)
--- a/jabber-roster.el
+++ b/jabber-roster.el
@@ -155,9 +155,10 @@ Trailing newlines are always removed, regardless of this variable."
   :group 'jabber-roster
   :type 'string
   :get '(lambda (var)
-          (if (stringp var)
-           (set-text-properties 0 (length var) nil var)
-           var))
+         (let ((val (symbol-value var)))
+           (if (stringp val)
+               (set-text-properties 0 (length val) nil val)
+             val)))
   :set '(lambda (var val)
           (if (stringp val)
               (set-text-properties 0 (length val) nil val))