From: czkmt <czkmt>
Date: Wed, 25 Aug 1999 14:29:18 +0000 (+0000)
Subject: (gnus-offline-agent-automatic-expire): New variable.
X-Git-Tag: t-gnus-6_13_0-13~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9e769b2cb08242eeed6b12cb492974aae69b3ecb;p=elisp%2Fgnus.git-

(gnus-offline-agent-automatic-expire): New variable.
(gnus-offline-agent-expire): Check it; Bind
`gnus-agent-expire-all' to nil if `gnus-agent-expire-days' is 0.
(gnus-offline-after-jobs-done): Don't check `gnus-agent-expire-all'.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 4f09e2e..d7975dd 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -1,5 +1,5 @@
 ;;; gnus-offline.el --- To process mail & news at offline environment.
-;;; $Id: gnus-offline.el,v 1.1.2.5.2.36.4.2 1999-08-20 23:20:32 czkmt Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.36.4.3 1999-08-25 14:29:18 czkmt Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -193,6 +193,11 @@ If mail , gnus-offline only fetch mail articles.
   :group 'gnus-offline
   :type 'function)
 
+(defcustom gnus-offline-agent-automatic-expire t
+  "*Non-nil means expire articles pn every session."
+  :group 'gnus-offline
+  :type 'boolean)
+
 ;; These variables should be customized using `gnus-offline-customize',
 ;; not by `customize'.
 
@@ -564,8 +569,7 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
   (if (eq gnus-offline-articles-to-fetch 'mail)
       (gnus-offline-restore-mail-group-level))
   (if (eq gnus-offline-news-fetch-method 'nnagent)
-      (or gnus-agent-expire-all
-	  (gnus-offline-agent-expire)))
+      (gnus-offline-agent-expire))
   (if (and (featurep 'xemacs)
 	   (fboundp 'play-sound-file))
       (ding nil 'drum)
@@ -675,7 +679,11 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
 (defun gnus-offline-agent-expire ()
   "*Expire expirable article on News group."
   (interactive)
-  (gnus-agent-expire))
+  (when gnus-offline-agent-automatic-expire
+    (let ((gnus-agent-expire-all (if (eq 0 gnus-agent-expire-days)
+				     nil
+				   gnus-agent-expire-all)))
+      (gnus-agent-expire))))
 ;;
 ;; Menu.
 ;;