[prev in list] [next in list] [prev in thread] [next in thread] 

List:       exmh-users
Subject:    Re: extra reply entry
From:       "Brent B. Welch" <bwelch () sunlabs ! eng ! Sun ! COM>
Date:       1995-12-20 16:55:18
[Download RAW message or body]

Model your procedure after Sedit_Mailto.  The main trick is that the ID
of the most recent sedit window is available as $sedit(t),
so you can operate on it after it is opened.  You'll probably also need
the name of the draft file, and you can see that being passed to
Sedit_Start in the code below.

>>>John Harres said:
 > I would like to add an entry to the Reply... menu to reply to the current
 > message, insert a specific file into the message, then do an Insert @ after
 > the file's text.
 > 
 > I understand how to add an entry to the Reply... menu, just not how to add
 > one that does multiple commands.  Any easy way to do this?

proc Sedit_Mailto { url } {
    global mhProfile sedit
    MhExec comp -nowhatnowproc
    Sedit_Start [Mh_Path $mhProfile(draft-folder) cur]
    regsub mailto: $url {} url
    SeditSetHeader $sedit(t) to $url 
}

You might try something like:

proc ComplexReply {} {
    global mhProfile sedit
    Msg_Reply -filter somefile -nocc me
    set draft [Mh_Path $mhProfile(draft-folder) cur]
    set t $sedit(t)
    SeditInsertFile $draft $t @
}
--	Brent Welch	Sun Labs	brent.welch@sun.com


[prev in list] [next in list] [prev in thread] [next in thread]