From: yamaoka <yamaoka>
Date: Mon, 11 Jun 2001 06:13:57 +0000 (+0000)
Subject: * nnshimbun.el (nnshimbun-request-expire-articles): Don't refer to the
X-Git-Tag: t-gnus-6_15_4-02-quimby~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f9e54240fc63f1ead8962e2afbc9b75e53994cd5;p=elisp%2Fgnus.git-

* nnshimbun.el (nnshimbun-request-expire-articles): Don't refer to the
 variable `nnshimbun-keep-last-article', we should keep the last article
 anyway.
(nnshimbun-keep-last-article): Abolished.
---

diff --git a/ChangeLog b/ChangeLog
index 557da7e..2a79f6d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2001-06-11  Katsumi Yamaoka <yamaoka@jpl.org>
 
+	* lisp/nnshimbun.el (nnshimbun-request-expire-articles): Don't
+	refer to the variable `nnshimbun-keep-last-article', we should
+	keep the last article anyway.
+	(nnshimbun-keep-last-article): Abolished.
+
 	* lisp/gnus.el: Autoload "nnshimbun" for the command `gnus-group-
 	make-shimbun-group'.
 
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 3a6743f..94e954f 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -57,13 +57,6 @@
   "Reading Web Newspapers with Gnus."
   :group 'gnus)
 
-(defcustom nnshimbun-keep-last-article t
-  "*If non-nil, nnshimbun will never delete a group's last article.
-It can be marked expirable, so it will be deleted when it is no
-longer last."
-  :group 'nnshimbun
-  :type 'boolean)
-
 (defcustom nnshimbun-keep-unparsable-dated-articles t
   "*If non-nil, nnshimbun will never delete articles whose NOV date is unparsable."
   :group 'nnshimbun
@@ -543,8 +536,7 @@ and the NOV is open.  The optional fourth argument FORCE is ignored."
 	      (setq article (pop expirable))
 	      (when (and (nnheader-find-nov-line article)
 			 (setq end (line-end-position))
-			 (not (and nnshimbun-keep-last-article
-				   (= (point-max) (1+ end)))))
+			 (not (= (point-max) (1+ end))))
 		(setq time (and (search-forward "\t" end t)
 				(search-forward "\t" end t)
 				(search-forward "\t" end t)