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

[ShengHuo ZHU]

Index: emacs/lisp/gnus/nnmbox.el
diff -c emacs/lisp/gnus/nnmbox.el:1.5 emacs/lisp/gnus/nnmbox.el:1.6
*** emacs/lisp/gnus/nnmbox.el:1.5       Thu Apr 11 23:09:47 2002
--- emacs/lisp/gnus/nnmbox.el   Thu Aug 22 23:32:58 2002
***************
*** 262,267 ****
--- 262,275 ----
                     (buffer-substring
                      (point) (progn (end-of-line) (point))) force))
              (progn
+               (unless (eq nnmail-expiry-target 'delete)
+                 (with-temp-buffer
+                   (nnmbox-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)
                (nnmbox-delete-mail))