Using Gbuffy with exmh

  Subject: Re: Exmh not modifying unseen sequence on the fly
  From: Diego Zamboni
  Date: Tue, 24 Oct 2000 18:24:39 -0500 (16:24 PDT)
  In case anyone is interested, here's why I was interested in this: I
  discovered a very nice program called Gbuffy (http://www.fiction.net/blong/programs/gbuffy/)
  that can show you a per-folder count of messages for certain  folders,
  and with one click, you can see the subjects and senders of messages
  in a specific folder. It is much nicer than a generic "you have mail"
  indicator that tells you nothing about what the mail is about.
  Gbuffy supports MH folders, but it only used the Status: header to determine
  whether a message had been read. I added support for it to use the unseen
  sequence, changed my .maildelivery filters to procmail filters (so that mail
  gets put in the MH folders immediately) and now I have a very nice way of
  knowing at a glance if I have any interesting mail. And now that my exmh
  updates the unseen sequence immediately, I always have a good count of how
  many unseen messages I have in each folder.
  Gbuffy can also execute a specific command when you middle-click on a folder,
  so I came up with the script below to have it switch to the folder and show
  the first unseen message (this script was derived from ExmhNsComp which
  launches a compose window, and which in turn I snagged from somewhere -
  probably this list).
  I am now completely happy :-)
  If anyone is interested in the changes I made to Gbuffy, send me email and
  I'll send you the patch.
  Thanks again,
  --Diego
  #!/p/tcl-8.3/bin/wish
  # Use: ExmhSwitchFolder folder [Msg_ShowUnseen]
  # Folder must not have the + sign. If Msg_ShowUnseen is given, the
  # first unread message in the folder is shown
  # Diego Zamboni, Oct 2000.
  set exmh_path /usr/local/exmh-2.2/bin
  set exmh_bin exmh
  wm withdraw .
  # if exmh isn't running , start it up
  if {[lsearch [winfo interps] $exmh_bin ]==-1} {
      exec $exmh_path/$exmh_bin  > /dev/null &
      while {[lsearch [winfo interps] $exmh_bin ]==-1} {
        after 200
      }
  if { 0 == [string length $argv] } {
          # do nothing
  } else {
        send exmh Folder_Change $argv
  exit 0