From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 12 Apr 2002 03:09:47 +0000 (+0000)
Subject: (nnmbox-create-mbox): Don't assume point-min == 1.
X-Git-Tag: ttn-vms-21-2-B4~15681
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a76a438129cacd3120792eb4317e92671f795f6e;p=emacs.git

(nnmbox-create-mbox): Don't assume point-min == 1.
---

diff --git a/lisp/gnus/nnmbox.el b/lisp/gnus/nnmbox.el
index 43b00a65098..4c340b2547f 100644
--- a/lisp/gnus/nnmbox.el
+++ b/lisp/gnus/nnmbox.el
@@ -523,7 +523,8 @@
     (let ((nnmail-file-coding-system
 	   (or nnmbox-file-coding-system-for-write
 	       nnmbox-file-coding-system)))
-      (nnmail-write-region 1 1 nnmbox-mbox-file t 'nomesg))))
+      (nnmail-write-region (point-min) (point-min)
+			   nnmbox-mbox-file t 'nomesg))))
 
 (defun nnmbox-read-mbox ()
   (nnmail-activate 'nnmbox)