From 1ba2b6a075f018d6a0d53d59ecf41e9e356ad8b0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 2 Mar 2001 06:20:23 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-sum.el | 11 ++++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dddd53f..0940022 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-03-01 23:00:00 ShengHuo ZHU + + * gnus-sum.el (gnus-summary-limit-include-expunged): Fix. + 2001-03-01 22:00:00 ShengHuo ZHU From Katsumi Yamaoka . diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index d4927e1..f3fcf12 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -2029,7 +2029,7 @@ increase the score of each group you read." gnus-summary-limit-exclude-childless-dormant t] ;;["Hide thread" gnus-summary-limit-exclude-thread t] ["Hide marked" gnus-summary-limit-exclude-marks t] - ["Show expunged" gnus-summary-show-all-expunged t]) + ["Show expunged" gnus-summary-limit-include-expunged t]) ("Process Mark" ["Set mark" gnus-summary-mark-as-processable t] ["Remove mark" gnus-summary-unmark-as-processable t] @@ -9028,8 +9028,8 @@ even ticked and dormant ones." (let ((scored gnus-newsgroup-scored) headers h) (while scored - (unless (gnus-number-to-header (caar scored)) - (and (setq h (gnus-summary-article-header (caar scored))) + (unless (gnus-summary-article-header (caar scored)) + (and (setq h (gnus-number-to-header (caar scored))) (< (cdar scored) gnus-summary-expunge-below) (push h headers))) (setq scored (cdr scored))) @@ -9037,6 +9037,11 @@ even ticked and dormant ones." (when (not no-error) (error "No expunged articles hidden")) (goto-char (point-min)) + (push gnus-newsgroup-limit gnus-newsgroup-limits) + (setq gnus-newsgroup-limit (copy-sequence gnus-newsgroup-limit)) + (mapcar (lambda (x) (push (mail-header-number x) + gnus-newsgroup-limit)) + headers) (gnus-summary-prepare-unthreaded (nreverse headers)) (goto-char (point-min)) (gnus-summary-position-point) -- 1.7.10.4