[Mew-dist 15844] mI with mails got in multiple cases
Takashi SATOH
satoh at example.com
2001年 1月 12日 (金) 00:44:48 JST
さとーと申します。
"mI" をすると、"*" マークのついたメールの中で最後のメールの case を
使って mew-pop-get をします。
したがって "*" マークのついたメールの中に、複数の case で取ってきた
T マークのついたメールが含まれている場合には、"*" マークのついた
メールの中の最後のメールと同じ case の時に取ってきたメールしか取って
これません。
そこで、"*" マークのついたメールが持つ case 全てを順番に使って、結果と
しては "*" マークのついた全てのメールを取ってくるように変えてみました。
決して美しい方法ではないと思いますが、とりあえず指摘ということで。
*** mew-scan.el~ Thu Jan 11 01:45:03 2001
--- mew-scan.el Thu Jan 11 23:34:49 2001
***************
*** 433,439 ****
(interactive "P")
(mew-summary-only
(let* ((fld (mew-summary-folder-name))
! msgs msg usc xuidl uidl size case sul)
(setq msgs (mew-summary-mark-collect mew-mark-review))
(while msgs
(setq msg (car msgs))
--- 433,439 ----
(interactive "P")
(mew-summary-only
(let* ((fld (mew-summary-folder-name))
! msgs msg usc xuidl uidl size case cases sul)
(setq msgs (mew-summary-mark-collect mew-mark-review))
(while msgs
(setq msg (car msgs))
***************
*** 450,457 ****
(setq uidl (mew-scan-usc-uidl usc))
(setq size (mew-scan-usc-size usc))
(setq case (mew-scan-usc-case usc))
(setq sul (cons (list size uidl msg) sul))))
! (mew-pop-get case sul rev-del))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
--- 450,463 ----
(setq uidl (mew-scan-usc-uidl usc))
(setq size (mew-scan-usc-size usc))
(setq case (mew-scan-usc-case usc))
+ (if (member case cases)
+ ()
+ (setq cases (cons case cases)))
(setq sul (cons (list size uidl msg) sul))))
! (while cases
! (setq case (car cases))
! (setq cases (cdr cases))
! (mew-pop-get case sul rev-del)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
Mew-dist メーリングリストの案内