[Bug-mit-scheme] imail

[Julie Sussman]

    Try this (C-x C-e after the form):

That worked fine.


    ((lambda (form) (eval form (->environment '(EDWIN IMAIL FRONT-END))))
     '(define (imail-read-flag prompt require-match?)
        (prompt-for-string-table-name
         prompt #f
         (alist->string-table
          (map list
               (remove-duplicates (append standard-message-flags
                                          (folder-flags (selected-folder)))
                                  string=?)))
         ;; This was originally INSERTED-DEFAULT; let me know whether you
         ;; would prefer that, too -- I have a slight preference for a
         ;; visible but non-inserted default here, so that I needn't hit
         ;; M-DEL to switch to a different flag.
         'DEFAULT-TYPE 'VISIBLE-DEFAULT
         'HISTORY 'IMAIL-READ-FLAG
         'HISTORY-INDEX 0
         'REQUIRE-MATCH? require-match?)))

I see, with VISIBLE-DEFAULT you can see what will happen if
you just hit Enter, but the default is not "pre-typed" for you.
The advantage, as you say, is that you don't have to delete it
in order to specify a different flag.

I have actually found it troublesome that 'l' uses
INSERTED-DEFAULT, because after listing things with one flag,
if you want to do a different 'l' you have to delete that
inserted default the next time.  So I think that I would find
VISIBLE-DEFAULT to be preferable.  I wonder what the rest of
the user community thinks.


    Also, I'd like to add commands `imail-next-unflagged-message' and
    `imail-previous-unflagged-message', so that I can navigate non-filed
    messages in my inbox easily.  Any suggestions for keys to bind to such
    commands?

I have no opinion at this time.
I'm not familiar enough with the range of imail commands yet
to come up with sensible, consistent suggestions.
(I only started using it in mid-April and was away for several
weeks in July.)

Thanks,
Julie