At Fri, 20 Aug 2010 10:20:48 -0800,
Dave Abrahams wrote:
> On Aug 20, 2010, at 10:01 AM, Erik Hetzner <ehetzner@gmail.com> wrote:
> > (Virtual folders also allow you to create virtual folders that
> > simulate gmail conversation view. See the above wiki.)
>
> Yeah; tried it but it didn't work for me. In fact it was kind of
> awful. See this thread for the full report:
> http://www.mail-archive.com/dovecot@dovecot.org/msg24923.html
>
> My guess is that this feature hasnt had much testing
I haven’t tested the conversation view much. But the all virtual
mailbox is working pretty well for me.
> I never tried switching the search backend, but with a large message
> history searching was anything but fast.
Solr is fast. WL spends more time building summaries than waiting for
an IMAP response. Unfortunately it requires setting up a search
server.
> I think I may be on the trail of developing that feature. Coul
> really use some help tho
Here is a start. It only works after you have displayed a message (I’m
sure there is a fix for this). The real trouble is that we need to
follow the trail of references up to the first message to really get
the full thread, which entails a back-and-forth with the IMAP server.
(defun egh:wl-all-folder ()
"%xxx:xxx@xxx.com:993!")
(defun egh:wl-summary-visit-conversation ()
(interactive)
(let* ((f (lambda (str)
(mapcar (lambda (msgid)
(substring msgid 1 -1))
(split-string str " "))))
(msg (elmo-message-entity
wl-summary-buffer-elmo-folder
wl-summary-buffer-current-msg))
(ids (append
(funcall f (elmo-message-entity-field msg 'message-id))
(funcall f (elmo-message-entity-field msg 'references)))))
(wl-summary-goto-folder-subr
(concat
"/"
(mapconcat
(lambda (ref)
(concat "message-id:" ref
"|references:" ref))
ids "|")
"/"
(egh:wl-all-folder))
'update nil nil t)))
best, ErikAttachment:
pgpSBtYf3XORN.pgp
Description: PGP signature