[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 メーリングリストの案内