projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cfc6aa8
)
Synch with Oort Gnus.
author
yamaoka
<yamaoka>
Fri, 2 Mar 2001 06:20:23 +0000
(06:20 +0000)
committer
yamaoka
<yamaoka>
Fri, 2 Mar 2001 06:20:23 +0000
(06:20 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-sum.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
dddd53f
..
0940022
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,7
@@
+2001-03-01 23:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-sum.el (gnus-summary-limit-include-expunged): Fix.
+
2001-03-01 22:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
From Katsumi Yamaoka <yamaoka@jpl.org>.
2001-03-01 22:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
From Katsumi Yamaoka <yamaoka@jpl.org>.
diff --git
a/lisp/gnus-sum.el
b/lisp/gnus-sum.el
index
d4927e1
..
f3fcf12
100644
(file)
--- 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]
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]
("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
(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)))
(< (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))
(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)
(gnus-summary-prepare-unthreaded (nreverse headers))
(goto-char (point-min))
(gnus-summary-position-point)