home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / mail / mh / 988 < prev    next >
Encoding:
Text File  |  1992-07-29  |  1.8 KB  |  51 lines
  1. Newsgroups: comp.mail.mh
  2. Path: sparky!uunet!mcsun!sunic!ericom!eos.ericsson.se!etxmesa
  3. From: etxmesa@eos.ericsson.se (Michael Salmon)
  4. Subject: Re: tweak xmh to view mail in emacs ?
  5. Message-ID: <1992Jul30.080823.4926@ericsson.se>
  6. Sender: news@ericsson.se
  7. Nntp-Posting-Host: eos6c02.ericsson.se
  8. Reply-To: etxmesa@eos.ericsson.se (Michael Salmon)
  9. Organization: Ericsson Telecom AB
  10. References:  <1230001@hpcc01.corp.hp.com>
  11. Date: Thu, 30 Jul 1992 08:08:23 GMT
  12. Lines: 37
  13.  
  14. In article <1230001@hpcc01.corp.hp.com>, cford@hpcc01.corp.hp.com (Charlie Ford) writes:
  15. |> I want xmh to let me read my messages in my emacs buffer, rather than in the 
  16. |> xmh view window (which I think is known as scrn->viewwidget).
  17. |> 
  18. |> Xmh already puts things into my emacs buffer for compose, forward and reply,
  19. |> which is just fine. My emacs is 18.57.5. My xmh won't `what`; it's not too old. 
  20. |> 
  21. |> I'm hoping it's already & easily done. I think the action might be XmhInsert(). 
  22. |> BTW Jerry had a Peek at this, & suggested XmhShellCommand(). More hints welcome.
  23.  
  24. From the app-defaults here is the part that displays a message that you
  25. click with the middle button:
  26.  
  27. *toc.Translations: #override\n\
  28.         <Btn2Down>:     select-start()\n\
  29.         <Btn2Up>:       select-end(PRIMARY)XmhViewNextMessage()\n\
  30.  
  31. and here is an example of using XmhShellCommand():
  32.  
  33. Xmh*commandBox.button10.translations: #override\
  34.         <Btn1Down>,<Btn1Up>: XmhShellCommand(mh.memo.xlate) unset()
  35.  
  36. where mh.memo.xlate is an executable perl script. I think that what you
  37. need to do is replace XmhViewNextMessage() with XmhShellCommand(emacs).
  38. Then of course you have to take care of every other view command, good
  39. luck.
  40.  
  41. -- 
  42.  
  43. Michael Salmon
  44.  
  45. #include    <standard.disclaimer>
  46. #include    <witty.saying>
  47. #include    <fancy.pseudo.graphics>
  48.  
  49. Ericsson Telecom AB
  50. Stockholm
  51.