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

Re: wanderlust install question



Hi Thomas,

At Wed, 08 Jan 2014 21:48:08 -0500,
Thomas Narten wrote:
> 
> Hi Erik.
> 
> > Or do you mean you want to wrap other people’s email? For that I use
> > this handy bit of code:
> 
> Yes, this is what I'm after - reformating other people's mail that
> contain long lines.
> 
> Your code snippet appears to be the same as what I pulled from
> http://emacs-fu.blogspot.com/2010/02/i-have-been-using-wanderlust-e-mail.html.
> 
> I haven't looked into it deeply, but I am running into occasional
> messages it doesn't fix up, and applying the re-format is effectively
> a no-op. 

Yes, I stole it from the mailing list a long time ago. :) It works for
me all the time, though, as far as I can tell.


> […]
>
> 
> Yes, this does the trick. After visiting multiple folders, I can
> "switch-to-buffer <Summary:...>" to get back to them quickly.
> 
> Before I start tweaking things, what I'd like to do is have a global
> key stroke that prompts me (with completion) for the name of available
> Summaries, and then goes directly there, without me having to
> first go to the Folder page.
> 
> I don't see anything right off that does that. Skimming the
> documentation, the only way I see to go visit/create a Summary for the first
> time is to start from the Folder buffer.

No that I know of, but searching with M-x wl--buffer yields some
functions that might help you, wl-summary-next-buffer and
wl-summary-previous-buffer. Modifying them slightly:

(defun wl-summary-switch-buffer ()
  (interactive)
  (let* ((buffers (sort (wl-collect-summary)
		       (lambda (buffer1 buffer2)
			 (string-lessp (buffer-name buffer1)
				       (buffer-name buffer2)))))
         (buffers-alist (mapcar (lambda (b) (list (buffer-name b) b)) buffers))
         (buffer-names (mapcar 'buffer-name buffers))
         (chosen-name (ido-completing-read "Buffer: " buffer-names))
         (chosen-buffer (assoc-string chosen-name buffer-alist)))
    (switch-to-buffer chosen-buffer)))

best, Erik
-- 
Sent from my free software system <http://fsf.org/>.