diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-04-12 03:11:40 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-04-12 03:11:40 +0000 |
| commit | be1ad76795e9530b74a8d77207f84de051f807ba (patch) | |
| tree | ed0e9b7db80ed1621fe3c0dddd08ccebe4754a4f | |
| parent | bcb0fd5c82678e1a8d308cac4ae1bfc7edf7d011 (diff) | |
| download | emacs-be1ad76795e9530b74a8d77207f84de051f807ba.tar.gz | |
(nnfolder-possibly-change-group): Don't assume point-min == 1.
| -rw-r--r-- | lisp/gnus/nnfolder.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |