non-string data (needs to be done in the registry too)
+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)
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.