X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-cache.el;h=befdb5c40b003964407860f5fec3c8081b52e01d;hb=f9e54240fc63f1ead8962e2afbc9b75e53994cd5;hp=5f255b687c81875f94fb8f1028b06d15b423f4a2;hpb=2cc5659442ce551b395b9aeebe213947e415ac6d;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 5f255b6..befdb5c 100644
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -486,7 +486,8 @@ Returns the list of articles removed."
 		      ?. ?_)))
 	  ;; Translate the first colon into a slash.
 	  (when (string-match ":" group)
-	    (aset group (match-beginning 0) ?/))
+		  (setq group (concat (substring group 0 (match-beginning 0))
+				      "/" (substring group (match-end 0)))))
 	  (nnheader-replace-chars-in-string group ?. ?/)))
       t)
      gnus-cache-directory))))