[Mew-dist 14992] mew-refile-view.el idea

[sen_ml at example.com]

refile-view-mode で "n" や "p" を使用した際に message buffer が
ついていってくれるとうれしいと思いました。

試しに mew-refile-view-goto-summary をベースに 
mew-refile-view-display-message を defun して "." に結びつけてみました。

(defun mew-refile-view-display-message ()
  "Display current message body."
  (interactive)
  (let ((this-buffer (current-buffer))
      num)
    (save-excursion
      (beginning-of-line)
      (setq num (if (looking-at mew-regex-msg)
                  (mew-match 1))))
    (if (not (and original-folder (get-buffer original-folder)))
      (progn
        (message "No Summary buffer for %s" original-folder)
        nil)
      (mew-pop-to-buffer original-folder)
      (if num (mew-summary-jump-message num))
      (mew-pop-to-buffer this-buffer)
      t)))

こんな感じで mew-refile-view-next-msg "n" や mew-refile-view-prev-msg "p" も
どうでしょう？