[Mew-dist 04221] Re: Mew-1.93b12 & IM-85 で ？なこと

[Murata Takashi]

  村田@NSGです。im*.shを使っている方がおられるようで嬉しいです。

From: KITAUCHI Akira <akira-k at example.com>
Subject: [Mew-dist 04208] Re: Mew-1.93b12 & IM-85で ？なこと
Date: Sun, 15 Mar 1998 05:02:33 +0900

> % imscan last:10
> 
> がうまく動かないので、"--*" 以外の引数はすべて scan に渡すようにして使っ
> ています。使っている人はあまりいないかもしれませんが、一応私が使ってい
> る imget.sh, imls.sh をつけておきます(小さいので、パッチじゃなくてファ
> イル全部をつけておきます)。

  そうでした。こういうのもありましたね。

  ついでに…公開するにはあまりに稚拙なのですが、こちらで作ってみた
imput.shを添付しておきます。Configとかには全然対応していませんが、
古いマシンを使っていてimputがあまりに重いこちらの環境では便利です。

┌───────────── 村田 隆 / Takashi.Murata at example.com ┐
└ 日本システム技術(株) 技術部  Tel:03-3503-8736  Fax:03-3580-7806 ┘

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

# imput.sh: emulate imput program using MH's send
#   options
#     -Draftfolder +dradt   -> -draftfolder +dradt
#     -draftmessage 1       -> -draftmessage 1 (add From: field)
#     --preserve=off        -> (ignore)
#     --help=no             -> (ignore)
#     --debug=no            -> (ignore)
#     --verbose             -> (ignore)
#     other options         -> (through)
#

mhdir=/usr/local/bin/mh
arg= fflag=0 dflag=0 folder=

addr="`sed -n 's/^Address=\([^ 	]*\).*/\1/p' $HOME/.im/Config`"
[ "$addr" = "" ] && addr="$USER at example.com"

sig="`sed -n 's/[ 	]*#.*//;s/^Name=\(.*\)$/\1/p' $HOME/.im/Config`"
[ "$sig" = "" ] && sig="`sed -n 's/^[Ss]ignature: //p' $HOME/.mh_profile`"
[ "$sig" = "" ] && sig="`awk -F: '{print $5}' /etc/passwd`"
if [ "$sig" != "" ]; then
    if [ "`echo $sig | grep '[.@]'`" = "" ]; then
        from="From: $sig <$addr>"
    else
        from="From: "\""$sig"\"" <$addr>"
    fi
else
    from="From: $addr"
fi

for opt in $*
do
    case $opt in
	-*=*) optarg=`echo $opt | sed 's/[-_a-zA-Z0-9]*=//'` ;;
	*) optarg= ;;
    esac
    
    case $opt in
	--preserve=*)
	    ;;  # ignore
	--help=*)
	    ;;  # ignore
	--debug=*)
	    ;;  # ignore
	-draftfolder)
	    fflag=1
	    arg="$arg $opt"
	    ;;
	-draftmessage)
	    dflag=1
	    arg="$arg $opt"
	    ;;
	-verbose)
	    ;;  # ignore
	*)
	    if [ $fflag = 1 ]; then
		folder=`echo $opt | sed 's/^+//'`
	    fi
	    if [ $dflag = 1 ]; then
		cd $HOME/Mail/$folder
		mv $opt ,$opt
		sed -n '1,/^-*$/p' ,$opt | sed 's/^\(-*\)$/'"$from"'\
\1/' > $opt
		sed '1,/^-*$/d' ,$opt >> $opt
	    fi
	    arg="$arg $opt" fflag=0 dflag=0
	    ;;
    esac
done

exec $mhdir/send $arg 2>&1 | sed "s/^\([^<=][^=>]\)/`basename $0`: ERROR: \1/"