X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmbox.el;h=1f05d1d16b5f12f328ec2ee69c9e7c72b8a351ff;hb=b60d3f136dbeb0dab4db1439250d1aa869c3b1e7;hp=13fc297be2ca691a9301a67412192b9309d947be;hpb=f9268fd0f1ccb795f165b849afc6c31871319faa;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el
index 13fc297..1f05d1d 100644
--- a/lisp/nnmbox.el
+++ b/lisp/nnmbox.el
@@ -166,7 +166,6 @@
 	    (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)
@@ -266,6 +265,7 @@
      (nnmbox-request-article article group server)
      (save-excursion
        (set-buffer buf)
+       (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (insert-buffer-substring nntp-server-buffer)
        (goto-char (point-min))
@@ -426,9 +426,8 @@
     (save-excursion
       (set-buffer (setq nnmbox-mbox-buffer
 			(nnheader-find-file-noselect
-			 nnmbox-mbox-file nil t)))
-      (mm-enable-multibyte)
-      (buffer-disable-undo)))
+			 nnmbox-mbox-file nil 'raw)))
+      (buffer-disable-undo (current-buffer))))
   (when (not nnmbox-group-alist)
     (nnmail-activate 'nnmbox))
   (if newsgroup
@@ -514,9 +513,8 @@
 	    start end number)
 	(set-buffer (setq nnmbox-mbox-buffer
 			  (nnheader-find-file-noselect
-			   nnmbox-mbox-file nil t)))
-	(mm-enable-multibyte)
-	(buffer-disable-undo)
+			   nnmbox-mbox-file nil 'raw)))
+	(buffer-disable-undo (current-buffer))
 
 	;; Go through the group alist and compare against
 	;; the mbox file.