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

[Romain Francoise]

Index: emacs/lisp/gnus/gnus-agent.el
diff -c emacs/lisp/gnus/gnus-agent.el:1.21 emacs/lisp/gnus/gnus-agent.el:1.22
*** emacs/lisp/gnus/gnus-agent.el:1.21  Sun Sep 11 22:02:04 2005
--- emacs/lisp/gnus/gnus-agent.el       Sat Sep 24 23:24:38 2005
***************
*** 2934,2940 ****
        (if (or (not (eq articles t))
                (yes-or-no-p
                 (concat "Are you sure that you want to "
!                        "expire all articles in " group ".")))
            (let ((gnus-command-method (gnus-find-method-for-group group))
                  (overview (gnus-get-buffer-create " *expire overview*"))
                  orig)
--- 2934,2940 ----
        (if (or (not (eq articles t))
                (yes-or-no-p
                 (concat "Are you sure that you want to "
!                        "expire all articles in " group "? ")))
            (let ((gnus-command-method (gnus-find-method-for-group group))
                  (overview (gnus-get-buffer-create " *expire overview*"))
                  orig)
***************
*** 3308,3314 ****
        (gnus-agent-expire-group group articles force)
      (if (or (not (eq articles t))
              (yes-or-no-p "Are you sure that you want to expire all \
! articles in every agentized group."))
          (let ((methods (gnus-agent-covered-methods))
                ;; Bind gnus-agent-expire-current-dirs to enable tracking
                ;; of agent directories.
--- 3308,3314 ----
        (gnus-agent-expire-group group articles force)
      (if (or (not (eq articles t))
              (yes-or-no-p "Are you sure that you want to expire all \
! articles in every agentized group? "))
          (let ((methods (gnus-agent-covered-methods))
                ;; Bind gnus-agent-expire-current-dirs to enable tracking
                ;; of agent directories.