[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 メーリングリストの案内