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

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

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

revision 1.3 by gerd, Tue Sep 19 13:37:09 2000 UTC revision 1.3.18.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 280  Line 280 
280                       (buffer-substring                       (buffer-substring
281                        (point) (progn (end-of-line) (point))) force))                        (point) (progn (end-of-line) (point))) force))
282                (progn                (progn
283                    (unless (eq nnmail-expiry-target 'delete)
284                      (with-temp-buffer
285                        (nnbabyl-request-article (car articles)
286                                                 newsgroup server
287                                                 (current-buffer))
288                        (let ((nnml-current-directory nil))
289                          (nnmail-expiry-target-group
290                           nnmail-expiry-target newsgroup))))
291                  (nnheader-message 5 "Deleting article %d in %s..."                  (nnheader-message 5 "Deleting article %d in %s..."
292                                    (car articles) newsgroup)                                    (car articles) newsgroup)
293                  (nnbabyl-delete-mail))                  (nnbabyl-delete-mail))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.18.1

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