- (loop for key from 0 to (- (length notmuch-hello-recent-searches) 1)
- do (let ((widget-symbol (intern (format "notmuch-hello-search-%d" key))))
- (local-set-key (number-to-string key)
- `(lambda ()
- (interactive)
- (notmuch-search (widget-value ,widget-symbol)
- notmuch-search-oldest-first
- nil nil #'notmuch-hello-search-continuation)))))