From f9e54240fc63f1ead8962e2afbc9b75e53994cd5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 11 Jun 2001 06:13:57 +0000 Subject: [PATCH] * 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. --- ChangeLog | 5 +++++ lisp/nnshimbun.el | 10 +--------- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 557da7e..2a79f6d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2001-06-11 Katsumi Yamaoka + * 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) -- 1.7.10.4