[Top][All Lists]
[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?
- [Bug-mit-scheme] imail, Julie Sussman, 2008/08/07
- Re: [Bug-mit-scheme] imail,
Taylor R Campbell <=
- [Bug-mit-scheme] imail, Julie Sussman, 2008/08/07
- Re: [Bug-mit-scheme] imail, Taylor R Campbell, 2008/08/07
- [Bug-mit-scheme] imail, Julie Sussman, 2008/08/09
- Re: [Bug-mit-scheme] imail, Taylor R Campbell, 2008/08/11
- [Bug-mit-scheme] imail, Julie Sussman, 2008/08/11
- Re: [Bug-mit-scheme] imail, Taylor R Campbell, 2008/08/11
- Re: [Bug-mit-scheme] imail, Chris Hanson, 2008/08/11