[Emacs-diffs] Changes to emacs/lisp/gnus/nnbabyl.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/nnbabyl.el
diff -c emacs/lisp/gnus/nnbabyl.el:1.3 emacs/lisp/gnus/nnbabyl.el:1.4
*** emacs/lisp/gnus/nnbabyl.el:1.3      Tue Sep 19 09:37:09 2000
--- emacs/lisp/gnus/nnbabyl.el  Thu Aug 22 23:32:58 2002
***************
*** 280,285 ****
--- 280,293 ----
                     (buffer-substring
                      (point) (progn (end-of-line) (point))) force))
              (progn
+               (unless (eq nnmail-expiry-target 'delete)
+                 (with-temp-buffer
+                   (nnbabyl-request-article (car articles) 
+                                            newsgroup server 
+                                            (current-buffer))
+                   (let ((nnml-current-directory nil))
+                     (nnmail-expiry-target-group
+                      nnmail-expiry-target newsgroup))))
                (nnheader-message 5 "Deleting article %d in %s..."
                                  (car articles) newsgroup)
                (nnbabyl-delete-mail))