野口さん、
大変遅くなりました。
> まだ仕様の方針として確定していないということであれば、(採用していただ
> けるかどうかはともかく)私の希望をあげさしていただくと、
>
> ・$inbox(リモートフォルダ) に居る時 → s + "update"
> ・+inbox等のローカルフォルダに居る時 → inc
>
> となってくれると、これまでの手に染みついた操作と違和感がなく楽です。
まだ興味が続いているか分からないのですが、実装してみました。
これで OK であれば、commit します。
よろしくお願いします。
--かず
Index: mew-net.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-net.el,v
retrieving revision 1.106
diff -c -r1.106 mew-net.el
*** mew-net.el 3 Apr 2006 10:41:19 -0000 1.106
--- mew-net.el 26 May 2006 04:30:52 -0000
***************
*** 444,460 ****
(mew-rendezvous mew-summary-buffer-process))))
(defun mew-summary-retrieve (&optional no-flush)
! "Retrieve messages to +inbox asynchronously according to
! 'mew-mailbox-type'.
!
If 'mew-auto-flush-queue' is non-nil, +queue is flushed.
! If called with '\\[universal-argument]', +queue is not flushed."
(interactive "P")
! (let* ((case mew-case)
! (proto (mew-proto case))
! (inbox (mew-proto-inbox-folder proto case))
! (case:inbox (mew-case-folder case inbox))
! mailbox)
;; for mew-summary-exchange-point.
(mew-sinfo-set-ret-pos (point))
(mew-summary-visit-folder case:inbox)
--- 444,466 ----
(mew-rendezvous mew-summary-buffer-process))))
(defun mew-summary-retrieve (&optional no-flush)
! "In local folders, retrieve messages to +inbox asynchronously
! according to 'mew-mailbox-type'.
If 'mew-auto-flush-queue' is non-nil, +queue is flushed.
! If called with '\\[universal-argument]', +queue is not flushed.
!
! In remote folders, visit an inbox folder and scan with 'update."
(interactive "P")
! (let* ((folder (mew-sinfo-get-folder))
! (case (or (mew-sinfo-get-case) ;; remote
! mew-case)) ;; local
! (inbox (mew-proto-inbox-folder folder case)) ;; folder is proto
! case:inbox mailbox)
! (cond
! ((mew-folder-remotep folder)
! (setq case:inbox (mew-case-folder case inbox)))
! (t ;; local
! (setq case:inbox inbox)))
;; for mew-summary-exchange-point.
(mew-sinfo-set-ret-pos (point))
(mew-summary-visit-folder case:inbox)