[Mew-dist 16157] patch for `mI'

[Tatsuya Kinoshita]

`mI'(mew-summary-mark-retrieve-message)で、caseが切り替わらない不具合
を見つけたので修正しました。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute, and/or modify it 
 without restriction.  There is NO WARRANTY.

diff -ur mew-1.95b101/mew-scan.el mew-1.95b101-tats20010203/mew-scan.el
--- mew-1.95b101/mew-scan.el	Thu Jan 25 20:32:29 2001
+++ mew-1.95b101-tats20010203/mew-scan.el	Sat Feb  3 21:11:22 2001
@@ -435,7 +435,7 @@
   (interactive "P")
   (mew-summary-only
    (let* ((fld (mew-summary-folder-name))
-	  msgs msg usc xuidl uidl size case sul)
+	  msgs msg usc xuidl uidl size case sul case-sul sul-alist)
      (setq msgs (mew-summary-mark-collect mew-mark-review))
      (while msgs
        (setq msg (car msgs))
@@ -452,8 +452,17 @@
 	 (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-retrieve case sul rev-del fld))))
+	 (setq case-sul (assoc case sul-alist))
+	 (if case-sul
+	     (setcdr case-sul (cons (list size uidl msg) (cdr case-sul)))
+	   (setq sul-alist
+		 (cons (list case (list size uidl msg)) sul-alist)))))
+     (while sul-alist
+       (setq case-sul (car sul-alist))
+       (setq sul-alist (cdr sul-alist))
+       (setq case (car case-sul))
+       (setq sul (cdr case-sul))
+       (mew-pop-retrieve case sul rev-del fld)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;