[Mew-dist 14496] Re: b68

[Yasunari Momoi]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 14495] Re: b68
Date: Wed, 11 Oct 2000 14:19:04 +0900

> +inbox を渡すのは、あくまで "inc" との互換性のためです。実際 mewls は 
> +inbox に chdir() して mew-mbox-command を起動しますから、
> mew-mbox-command は +inbox を無視して、カレントディレクトリにメールを
> mv してくれば OK になっています。

ちょっと現実逃避 (^^;) に，上記の仕様で qmail の Maildir か
ら inc する shell script を書いてみました．小さいしいろいろ
手抜きしてますが，一応流しておきます．

適当なコマンド名 (以下では incdir) でどこかにおいて，以下の
設定をすれば使えます．

  (setq mew-mailbox-type 'mbox)
  (setq mew-mbox-command "incdir")
  (setq mew-mbox-command-arg "")

-- momo

-------------- next part --------------
#!/bin/sh

MDIR=~/Maildir
SEQ=`ls -f1 | sort -n | tail -1`
SEQ=$(($SEQ + 1))

[ ! \( -d $MDIR/new -a -d $MDIR/cur \) ] && exit 1

for f in $MDIR/new/*; do
    # sanity check
    while [ -f $SEQ ]; do
	SEQ=$(($SEQ + 1))
    done

    cp -p $f $SEQ
    echo $SEQ
    SEQ=$(($SEQ + 1))

    mv $f $MDIR/cur/`basename $f`:2,S
done

exit 0