[Mew-dist 17264] Re: フォルダの統合
Yasunari Momoi
momo at example.com
2001年 5月 3日 (木) 20:10:38 JST
From: Kuniyasu SUZAKI <k.suzaki at example.com>
Subject: [Mew-dist 17261] フォルダの統合
Date: Mon, 30 Apr 2001 16:10:14 +0900
> 須崎@産総研です。
>
> 以前使っていたマシンの Mew のフォルダを新しいマシンの Mew のフォルダと
> 統合したいのですが可能でしょうか。フォルダ名は一緒です。
2 つのフォルダを 1 つにまとめる場合,それぞれのメールは普通
のファイルなので,それを番号が重ならないようにコピーするだけ
です.
たとえば添付の shell script (無保証 :-) を
% mvfolder ~/OLDMail/inbox ~/Mail/inbox
のようにすれば,~/OLDMail/inbox のファイルを ~/Mail/inbox に,
番号が重ならないようにコピーします.
> またこの際、同一のメッセージは削除できるのでしょうか。
(setq mew-scan-form-mark-delete t) して,それぞれの folder
で scan すれば,同一 Message-Id: のメールに D mark をつけて
くれます.
-- momo
-------------- next part --------------
#!/bin/sh
FROM=$1
TO=$2
if [ ! -d $FROM ]; then
echo "$FROM folder does not exists"
exit 1
fi
if [ ! -d $TO ]; then
echo "$TO folder does not exists"
exit 1
fi
SEQ=$(ls -f1 $TO | egrep '^[1-9][0-9]*$' | sort -n | tail -1)
if [ "$SEQ"X = ""X ]; then
SEQ=1
else
SEQ=$(($SEQ + 1))
fi
for f in $FROM/[0-9]*; do
# sanity check
[ ! -f $f ] && continue
while [ -f $TO/$SEQ ]; do
SEQ=$(($SEQ + 1))
done
cp -p $f $TO/$SEQ
echo $SEQ
SEQ=$(($SEQ + 1))
done
exit 0
Mew-dist メーリングリストの案内