bug-mit-scheme
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Bug-mit-scheme] imail


From: Taylor R Campbell
Subject: Re: [Bug-mit-scheme] imail
Date: Thu, 7 Aug 2008 12:27:09 -0400
User-agent: IMAIL/1.21; Edwin/3.116; MIT-Scheme/7.7.90.+

   Date: Thu, 7 Aug 2008 11:44:15 -0400
   From: Julie Sussman <address@hidden>

   If you say 'l' to summarize by flags, it defaults to (and displays)
   the last flag you gave it.  However if you say a to add 'a' flag,
   there is no default; so if you want to add the same flag to a sequence
   of messages, you have to keep retyping the flag.  I tried just
   typing Enter in case there was an invisible (undisplayed) default
   flag from before, but that gives an "internal error" about an
   empty string as a flag.

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

((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?)))

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?




reply via email to

[Prev in Thread] Current Thread [Next in Thread]