/[emacs]/emacs/lisp/gnus/gnus-agent.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-agent.el

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

revision 1.21 by miles, Sun Sep 11 22:02:04 2005 UTC revision 1.22 by rfrancoise, Sat Sep 24 23:24:38 2005 UTC
# Line 2934  FORCE is equivalent to setting the expir Line 2934  FORCE is equivalent to setting the expir
2934        (if (or (not (eq articles t))        (if (or (not (eq articles t))
2935                (yes-or-no-p                (yes-or-no-p
2936                 (concat "Are you sure that you want to "                 (concat "Are you sure that you want to "
2937                         "expire all articles in " group ".")))                         "expire all articles in " group "? ")))
2938            (let ((gnus-command-method (gnus-find-method-for-group group))            (let ((gnus-command-method (gnus-find-method-for-group group))
2939                  (overview (gnus-get-buffer-create " *expire overview*"))                  (overview (gnus-get-buffer-create " *expire overview*"))
2940                  orig)                  orig)
# Line 3308  FORCE is equivalent to setting the expir Line 3308  FORCE is equivalent to setting the expir
3308        (gnus-agent-expire-group group articles force)        (gnus-agent-expire-group group articles force)
3309      (if (or (not (eq articles t))      (if (or (not (eq articles t))
3310              (yes-or-no-p "Are you sure that you want to expire all \              (yes-or-no-p "Are you sure that you want to expire all \
3311  articles in every agentized group."))  articles in every agentized group? "))
3312          (let ((methods (gnus-agent-covered-methods))          (let ((methods (gnus-agent-covered-methods))
3313                ;; Bind gnus-agent-expire-current-dirs to enable tracking                ;; Bind gnus-agent-expire-current-dirs to enable tracking
3314                ;; of agent directories.                ;; of agent directories.

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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