Re: Message buffer names

[Thomas Narten <narten@us.ibm.com>]

Agreed that hiding the message buffer goes totally against how I
actually work. I constantly want to switch back to it for
cut-and-paste and the like.

Below is a hack that lets you go get back to either the most recent
message or the most recent Summary buffer. I think one reason the
buffers are hidden and that making the buffer name visible is
complicated is that there is a cache of something like 4 messages that
holds the four most recently formatted messages, but the names of
those buffers are not tied directly the message itself. There's a
level of indirection there or something.

Another thing I want to do that WL doesn't support directly is switch
directly to the message I'm currently editing/composing. ^C^O only
works when you are already in a Summary Buffer.

Thomas

(global-set-key "\C-xB" 'tn:switch-to-wl-message-buffer)

(defun tn:switch-to-wl-message-buffer (arg) "Switch to WL message buffer, or with prefix-arg, Summary buffer"
  (interactive "P")
  (let ((message-buf))
    (if (= (prefix-numeric-value arg) 4)
	(switch-to-buffer wl-current-summary-buffer)
        (save-window-excursion
	    (switch-to-buffer wl-current-summary-buffer)
          (setq message-buf wl-message-buffer)
          )
	  (if message-buf
            (switch-to-buffer message-buf)
	    (message "most recent message deleted"))
	)
    )
)