X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-cache.el;h=5f2195f2ef08a70e2ce271d183aa9d48e8727a44;hb=6c0b785f95c0301e6c4bb1e74fc7259d9646e1cc;hp=7e1035318cacb560aad37a9c983e43404cef2cba;hpb=83011b24a00508ca8102a713f9510ba2b313b992;p=gnus

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 7e1035318..5f2195f2e 100644
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -524,7 +524,7 @@ Returns the list of articles removed."
       (set-buffer cache-buf)
       (if (search-forward (concat "\n" (int-to-string (car cached)) "\t")
 			  nil t)
-	  (setq beg (gnus-point-at-bol)
+	  (setq beg (point-at-bol)
 		end (progn (end-of-line) (point)))
 	(setq beg nil))
       (set-buffer nntp-server-buffer)
@@ -677,7 +677,7 @@ If LOW, update the lower bound instead."
       (gnus-message 5 "Generating the cache active file...")
       (setq gnus-cache-active-hashtb (gnus-make-hashtable 123)))
     (when (string-match "^\\(nn[^_]+\\)_" group)
-      (setq group (replace-match "\\1:" t t group)))
+      (setq group (replace-match "\\1:" t nil group)))
     ;; Separate articles from all other files and directories.
     (while files
       (if (string-match "^[0-9]+$" (file-name-nondirectory (car files)))