From: yamaoka <yamaoka>
Date: Mon, 30 Jul 2001 02:38:49 +0000 (+0000)
Subject: * nnshimbun.el (nnshimbun-request-expire-articles): Bind
X-Git-Tag: t-gnus-6_15_3-03-last-~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0b13ef679f6973b49e9e80c8cf90fdf35fc9e6d6;p=elisp%2Fgnus.git-

* nnshimbun.el (nnshimbun-request-expire-articles): Bind
 `nnmail-expiry-wait-function' to nil if the group's parameter `expiry-wait'
 is specified by the user or the shimbun's default value is provided.
---

diff --git a/ChangeLog b/ChangeLog
index 00ff490..7d49591 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2001-07-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/nnshimbun.el (nnshimbun-request-expire-articles): Bind
+	`nnmail-expiry-wait-function' to nil if the group's parameter
+	`expiry-wait' is specified by the user or the shimbun's default
+	value is provided.
+
 2001-07-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-msg.el (gnus-message-make-user-agent): New
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index baf57a0..b10fff2 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -668,15 +668,20 @@ and the NOV is open.  The optional fourth argument FORCE is ignored."
 	(let* ((expirable (copy-sequence articles))
 	       (name (concat "nnshimbun+" server ":" group))
 	       ;; If the group's parameter `expiry-wait' is non-nil,
-	       ;; `nnmail-expiry-wait' is bound to that value, and
-	       ;; `nnmail-expiry-wait-function' is bound to nil.
-	       ;; See the source code of `gnus-summary-expire-articles'.
-	       ;; Prefer the shimbun's default to `nnmail-expiry-wait'
-	       ;; only when the group's parameter is nil.
+	       ;; the value of the option `nnmail-expiry-wait' will be
+	       ;; bound to that value, and the value of the option
+	       ;; `nnmail-expiry-wait-function' will be bound to nil.
+	       ;; See the source code of `gnus-summary-expire-articles'
+	       ;; how does it work.  If the group's parameter is not
+	       ;; specified by user, the shimbun's default value will
+	       ;; be used.
 	       (nnmail-expiry-wait
 		(or (nnshimbun-find-parameter name 'expiry-wait t)
 		    (shimbun-article-expiration-days nnshimbun-shimbun)
 		    nnmail-expiry-wait))
+	       (nnmail-expiry-wait-function (if nnmail-expiry-wait
+						nil
+					      nnmail-expiry-wait-function))
 	       article end time)
 	  (save-excursion
 	    (set-buffer buffer)
@@ -801,4 +806,5 @@ and the NOV is open.  The optional fourth argument FORCE is ignored."
 
 
 (provide 'nnshimbun)
-;;; nnshimbun.el ends here.
+
+;;; nnshimbun.el ends here