/[emacs]/emacs/lisp/gnus/nnmbox.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnmbox.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by zsh, Fri Aug 23 03:32:58 2002 UTC revision 1.7 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 189  Line 189 
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)))
# Line 264  Line 264 
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

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26