> For my personal needs I've written a script to generate hooks from aliases:

> Output:
> fcc-hook '~C [EMAIL PROTECTED] ~C [EMAIL PROTECTED]' +a1a2
> save-hook '~L [EMAIL PROTECTED] ~L [EMAIL PROTECTED]' +a1a2
> fcc-save-hook [EMAIL PROTECTED] +a1
> fcc-save-hook [EMAIL PROTECTED] +a2
> fcc-save-hook [EMAIL PROTECTED] +a3
> fcc-save-hook [EMAIL PROTECTED] +a3
> fcc-save-hook [EMAIL PROTECTED] +a4
> fcc-save-hook [EMAIL PROTECTED] +a5
> set my_list_folders = /list1$|/list2$
> mailboxes =list1 =list2
> subscribe [EMAIL PROTECTED] [EMAIL PROTECTED]

Nice. What exactly are your settings doing? What my_list_folders does?

Over time I developed my approach to subscribing lists. I wanted
 - to be 'subscribe'd to the list
 - everything to be stored in .muttrc, no external files
 - pressing 'm' for new mail automatically offers list address
 - pressing 'r' for reply is redefined to <list-reply>
 - sorting is threads

I don't set up 'mailboxes' automatically, since I want to set the order
in which they are reported to have new mail according to my taste. This
is because I'm subscribed to many aliases, but usually only few are
significant to me, so I want them to be reported first.

I put this definitions somewhere in the .muttrc. For mutt theese lines
are just comments:
=========================== List definitions ===========================
# LIST vim-dev            [EMAIL PROTECTED]
# LIST dtrace-discuss     [EMAIL PROTECTED]
# LIST mutt-users         [email protected]
...
========================================================================

And at the end of .muttrc this perl script which parses .muttrc for
# LIST. $x is chr(39) is single quote "'".
========================================================================
`cat $HOME/.muttrc | perl -e '                                   \
  $x=chr(39);                                                    \
  map { $list{$1}=$2 if /^# LIST\s*(\S*)\s*(\S*)/ } <>;          \
  print "subscribe ", (join " ",  keys %list), " ; ";            \
  if (keys %list)                                                \
  {                                                              \
    for (keys %list)                                             \
    {                                                            \
      $mail =  $list{$_};                                        \
      print "folder-hook =$_ ${x}";                              \
      print "macro index,pager,attach \"m\" \"<mail>$mail\" ; "; \
      print "set sort=threads ; ";                               \
      print "macro index,pager,attach \"r\" \"<list-reply>\"";   \
      print "${x};";                                             \
    }                                                            \
  }                                                              \
  print "\n";'`
========================================================================

Hopefully that will be useful to someone. Thanks for starting this
thread :)

-- 
        Vlad

Attachment: pgpSD3CCRKF2e.pgp
Description: PGP signature

Reply via email to