mutt and slrn

[Martin Keseg - Sun Slovakia - SE]

Hi

is here a way how to set mutt as mailer in slrn.
I tryed Svens solution:
 set  mail_editor_command "mutt -H '%s' ; exit 1"
but this does not work perfect.

-- 
 The messenger is not important!

Re: mutt and slrn

[Thomas Roessler]

On 2000-01-31 15:04:32 +0100, Martin Keseg - Sun Slovakia - SE wrote:

 I tryed Svens solution:
  set  mail_editor_command "mutt -H '%s' ; exit 1"
 but this does not work perfect.

I'm using the attached slrn macro file, plus the attached shell
script wrapper.

Note that this solution requires formail (1) from the procmail
package.  Improvements are welcome.

-- 
http://www.guug.de/~roessler/


%
% replacement forward and reply functions for slrn.
% these will drop you to your normal mail user agent.
%

variable mua_script="/home/roessler/bin/slrn-mua";

define my_reply_to_article ()
{
  pipe_article (Sprintf ("%s -reply", mua_script, 1));
}

define my_forward_article ()
{
  pipe_article (Sprintf ("%s -forward", mua_script, 1));
}

definekey ("my_reply_to_article", "r", "article");
definekey ("my_forward_article", "F", "article");


#!/bin/sh --

#
# A small script which is used to reply to or forward an
# article from within slrn.
#
# The article is expected to come on stdin, while $1 is either
# -reply or -forward.
#

# where is mutt located?
MUTT=/usr/local/bin/mutt

# where is formail?
FORMAIL=/usr/bin/formail

TMPDIR=${TMPDIR-/tmp}/`basename $0`.$$
mkdir -m 0700 $TMPDIR || { echo "can't create $TMPDIR!"  2 ; exit ; }

trap "rm -rf $TMPDIR; trap '' 0; exit" 0 1 2 3 4

cat  $TMPDIR/article

# get various headers

SUBJECT="`formail -z -x Subject:  $TMPDIR/article`"
DATE="`formail -z -x Date:  $TMPDIR/article`"
FROM="`formail -z -x From:  $TMPDIR/article`"
REPLY_TO="`formail -z -x Reply-To:  $TMPDIR/article`"
MESSAGE_ID="`formail -z -x Message-ID:  $TMPDIR/article`"
REFERENCES="`formail -z -x References:  $TMPDIR/article`"

exec  $TMPDIR/template

#
# functions
#

prepare_reply () {
if [ -n "$REPLY_TO" ] ; then
echo "To: $REPLY_TO"
else
echo "To: $FROM"
fi

if [ -n "$MESSAGE_ID" ] ; then
echo "In-Reply-To: $MESSAGE_ID"
echo "References: $REFERENCES $MESSAGE_ID"
fi

echo -n "Subject: "

if [ -z "$SUBJECT" ] ; then
echo "Re: your mail"
else
echo -n "Re: "
echo "$SUBJECT" | sed -e 's/^Re: *//'
fi

echo

echo "On $DATE, $FROM wrote:" | fmt

sed -e 's/^/ /' $TMPDIR/article
}

prepare_forward () {
echo "Subject: Fwd: $SUBJECT" 
echo
echo "- Forwarded message -"
cat $TMPDIR/article
echo
echo " End forwarded message-"
}

#
# main
#


case "$1" in
-reply) 
prepare_reply
;;
-forward)
prepare_forward
;;
*)
echo "usage: `basename $0` {-reply|-forward}"  2
exit 1
;;
esac

exec  /dev/tty

$MUTT -H $TMPDIR/template  /dev/tty