624 |
(let ((nnmail-file-coding-system |
(let ((nnmail-file-coding-system |
625 |
(or nnfolder-file-coding-system-for-write |
(or nnfolder-file-coding-system-for-write |
626 |
nnfolder-file-coding-system-for-write))) |
nnfolder-file-coding-system-for-write))) |
627 |
(nnmail-write-region 1 1 file t 'nomesg))) |
(nnmail-write-region (point-min) (point-min) |
628 |
|
file t 'nomesg))) |
629 |
(when (setq nnfolder-current-buffer (nnfolder-read-folder group)) |
(when (setq nnfolder-current-buffer (nnfolder-read-folder group)) |
630 |
(set-buffer nnfolder-current-buffer) |
(set-buffer nnfolder-current-buffer) |
631 |
(push (list group nnfolder-current-buffer) |
(push (list group nnfolder-current-buffer) |