[mew-dist 18704] Re: Mark(*) slides after mew-scan

[YAMAKURA Makoto]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 18582] Re: Mark(*) slides after mew-scan

> From: YAMAKURA Makoto <yakina at example.com>
> Subject: [mew-dist 18581] Mark(*) slides after mew-scan
> 
> > となります。同じメッセージ(番号)に留まっていてくれると嬉しいです。
> 
> メールとマークの対応関係を保存しているのではありません。単純に上から何
> 番目かという情報を一時的に記録するだけです。ですから、実装上、要望を実
> 現することは残念ながらできません。

なぜそのように実装されているかは深く考えず、メールの番号とマークを対応
付けるように書き換えてみたところ、個人的に満足できる動作になりました。

--
山倉 真 / yakina at example.com


Index: mew-scan.el
===================================================================
RCS file: /cvsmew/mew/mew-scan.el,v
retrieving revision 1.28
diff -u -r1.28 mew-scan.el
--- mew-scan.el	2001/08/31 04:32:52	1.28
+++ mew-scan.el	2001/09/04 12:53:39
@@ -549,7 +549,7 @@
 	 (setq range (mew-input-range folder askp))
 	 (when (mew-range-erase-p range)
 	   (if (string= range mew-range-all)
-	       (setq lines (mew-summary-mark-collect3 mew-mark-collect)))
+	       (setq lines (mew-summary-mark-collect mew-mark-collect)))
 	   (mew-erase-buffer))
 	 (mew-scan (mew-scan-mewls-src folder range) lines))
 	(t
@@ -748,11 +748,13 @@
      (set-buffer folder)
      (setq opos (point))
      (setq reviews (mew-sinfo-get-reviews))
-     (while reviews
+     (when reviews
        (goto-char 1)
-       (forward-line (1- (car reviews)))
-       (mew-summary-mark-as mew-mark-collect)
-       (setq reviews (cdr reviews)))
+       (while (and reviews (not (eobp)))
+	 (when (re-search-forward (mew-regex-jmp-msg (car reviews)) nil t)
+	   (mew-summary-mark-as mew-mark-review)
+	   (forward-line))
+	 (setq reviews (cdr reviews))))
      (mew-summary-folder-cache-save)
      (goto-char opos)
      (widen) ;; for sort resion