gnus-util.el (gnus-string-remove-all-properties): fix to ignore

	non-string data (needs to be done in the registry too)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15d3d65..e1258cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-29  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-util.el (gnus-string-remove-all-properties): fix to ignore
+       non-string data (needs to be done in the registry too)
+
 2006-09-28  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-save, gnus-registry-cache-save)

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 875aafa..75c3d87 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1207,9 +1207,11 @@ Return the modified alist."
     t))
 
 (defun gnus-string-remove-all-properties (string)
-  (let ((s string))
-    (set-text-properties 0 (length string) nil string)
-    s))
+  (if (stringp string)
+      (let ((s string))
+       (set-text-properties 0 (length string) nil string)
+       s)
+    string))
 
 ;; This might use `compare-strings' to reduce consing in the
 ;; case-insensitive case, but it has to cope with null args.