(gnus-agent-expire-1,2): Pass the dir argument from g-a-e-1 to g-a-e-2.

[gnus] / lisp / gnus-agent.el

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index f2cc8e6..3ef12c8 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -2113,7 +2113,8 @@ return only unread articles."
   (or (gnus-gethash group gnus-category-group-cache)
       (assq 'default gnus-category-alist)))
 
-(defun gnus-agent-expire-2 (expiring-group active articles overview day force)
+(defun gnus-agent-expire-2 (expiring-group active articles overview day force
+                                          dir)
   (gnus-agent-load-alist expiring-group)
   (gnus-message 5 "Expiring articles in %s" expiring-group)
   (let* ((info (gnus-get-info expiring-group))
@@ -2430,7 +2431,8 @@ See `gnus-agent-expire'."
 
                      (when active
                        (gnus-agent-expire-2 expiring-group active
-                                            articles overview day force)))))))
+                                            articles overview day force
+                                            dir)))))))
        (kill-buffer overview)))))
 
 (defun gnus-agent-expire (&optional articles group force)