189 |
(car active) (cdr active) group))))) |
(car active) (cdr active) group))))) |
190 |
|
|
191 |
(defun nnmbox-save-buffer () |
(defun nnmbox-save-buffer () |
192 |
(let ((coding-system-for-write |
(let ((coding-system-for-write |
193 |
(or nnmbox-file-coding-system-for-write |
(or nnmbox-file-coding-system-for-write |
194 |
nnmbox-file-coding-system))) |
nnmbox-file-coding-system))) |
195 |
(save-buffer))) |
(save-buffer))) |
264 |
(progn |
(progn |
265 |
(unless (eq nnmail-expiry-target 'delete) |
(unless (eq nnmail-expiry-target 'delete) |
266 |
(with-temp-buffer |
(with-temp-buffer |
267 |
(nnmbox-request-article (car articles) |
(nnmbox-request-article (car articles) |
268 |
newsgroup server |
newsgroup server |
269 |
(current-buffer)) |
(current-buffer)) |
270 |
(let ((nnml-current-directory nil)) |
(let ((nnml-current-directory nil)) |
271 |
(nnmail-expiry-target-group |
(nnmail-expiry-target-group |