projects
/
claws.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cb4603f
)
allow for 'hidereadmsgs'
author
Paul Mangan
<paul@claws-mail.org>
Tue, 11 Dec 2001 15:07:15 +0000
(15:07 +0000)
committer
Paul Mangan
<paul@claws-mail.org>
Tue, 11 Dec 2001 15:07:15 +0000
(15:07 +0000)
tools/newscache_clean.pl
patch
|
blob
|
history
diff --git
a/tools/newscache_clean.pl
b/tools/newscache_clean.pl
index 7ce3921f164024d7b57b1d20828e2e6de1715136..11ed9ff843e93804ef8c598c4e94cbb362ee590d 100644
(file)
--- a/
tools/newscache_clean.pl
+++ b/
tools/newscache_clean.pl
@@
-75,7
+75,9
@@
foreach $folderlist (@folderlist) { ## remove old newsgroups directory trees
if ($wegotnews && $folderlist !~ m/<\/folder>\n/) {
if ($folderlist =~ m/<folderitem type="normal"/) {
$folderlist =~ s/<folderitem type="normal" name="[A-Z0-9.]+" path="//i;
if ($wegotnews && $folderlist !~ m/<\/folder>\n/) {
if ($folderlist =~ m/<folderitem type="normal"/) {
$folderlist =~ s/<folderitem type="normal" name="[A-Z0-9.]+" path="//i;
- $folderlist =~ s/" threaded="[0-1]+" mtime="[0-9]+" new="[0-9]+" unread="[0-9]+" total="[0-9]+" \/>//;
+ $folderlist =~ s/" threaded="[0-1]+//;
+ $folderlist =~ s/" hidereadmsgs="[0-1]+//;
+ $folderlist =~ s/" mtime="[0-9]+" new="[0-9]+" unread="[0-9]+" total="[0-9]+" \/>//;
$folderlist =~ s/ +//;
chomp $folderlist;
$saw{$folderlist}++;
$folderlist =~ s/ +//;
chomp $folderlist;
$saw{$folderlist}++;