X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmbox.el;h=09d0daabe6824d539a844a4632520e84fcc26f16;hb=b14ba71ca00ad909b738bad1898f1908c0e6d2eb;hp=b0f3c216a64ab97748668208b686fd41ef055dd2;hpb=e7b89fdbd5b964b512e70e7d89b4a0248e2e550e;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el
index b0f3c21..09d0daa 100644
--- a/lisp/nnmbox.el
+++ b/lisp/nnmbox.el
@@ -166,6 +166,7 @@
 	    (nnmbox-article-group-number)))))))
 
 (deffoo nnmbox-request-group (group &optional server dont-check)
+  (nnmbox-possibly-change-newsgroup nil server)
   (let ((active (cadr (assoc group nnmbox-group-alist))))
     (cond
      ((or (null active)
@@ -425,8 +426,8 @@
     (save-excursion
       (set-buffer (setq nnmbox-mbox-buffer
 			(nnheader-find-file-noselect
-			 nnmbox-mbox-file nil 'raw)))
-      (buffer-disable-undo (current-buffer))))
+ 			 nnmbox-mbox-file nil t)))
+      (buffer-disable-undo)))
   (when (not nnmbox-group-alist)
     (nnmail-activate 'nnmbox))
   (if newsgroup
@@ -512,8 +513,8 @@
 	    start end number)
 	(set-buffer (setq nnmbox-mbox-buffer
 			  (nnheader-find-file-noselect
-			   nnmbox-mbox-file nil 'raw)))
-	(buffer-disable-undo (current-buffer))
+ 			   nnmbox-mbox-file nil t)))
+ 	(buffer-disable-undo)
 
 	;; Go through the group alist and compare against
 	;; the mbox file.