From: Stefan Monnier Date: Fri, 12 Apr 2002 03:11:40 +0000 (+0000) Subject: (nnfolder-possibly-change-group): Don't assume point-min == 1. X-Git-Tag: ttn-vms-21-2-B4~15679 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be1ad76795e9530b74a8d77207f84de051f807ba;p=emacs.git (nnfolder-possibly-change-group): Don't assume point-min == 1. --- diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 8ba41d95072..6a4a7f794c5 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -624,7 +624,8 @@ deleted. Point is left where the deleted region was." (let ((nnmail-file-coding-system (or nnfolder-file-coding-system-for-write nnfolder-file-coding-system-for-write))) - (nnmail-write-region 1 1 file t 'nomesg))) + (nnmail-write-region (point-min) (point-min) + file t 'nomesg))) (when (setq nnfolder-current-buffer (nnfolder-read-folder group)) (set-buffer nnfolder-current-buffer) (push (list group nnfolder-current-buffer)