[Mew-dist 16228] Re: b102

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 16209] Re: b102
Message-ID: <20010207.101123.74747361.kazu at example.com>
Date: Wed, 7 Feb 2001 10:10:24 +0900

kazu> > 一回で複数種類の mark を消す command は欲しいところです。
kazu> 
kazu> やっぱり、使っている人がいるんですか...

多用しています。
Process them ? とか聞かれていやなときに、どんな mark があるのか
すでにわかっていないから UoUDUX と打つより、100倍楽だし。

# "mU" ですべての mark を消す、とかいうのも作っています。

以下本題。

kazu> (1) 白井さんの拡張： thread で "?"、Virtual でも "/"。

"C-u t" や "mm" のように thread にすべての message が表示されて
いないときの問題が 2点ほどありました。
 
○ 無限ループ突入 ')' がずれた？
○ thread に表示していない message も Physical folder では mark
 づけしてしまう。
 
-- 
白井秀行 (mailto:shirai at example.com)

*** mew-pick.el.orig	Tue Feb  6 20:47:10 2001
--- mew-pick.el	Wed Feb  7 17:53:04 2001
***************
*** 44,49 ****
--- 44,50 ----
  	   (setq threadmsgs (mew-summary-thread-get-msglst
  			     mew-virtual-buffer-thread-top 'separator))
  	   (setq total (length threadmsgs))
+ 	   (setq msgsback nil)
  	   (goto-char (point-min))
  	   (while (and msgs (not (eobp)))
  	     (setq linenum (member (car msgs) threadmsgs))
***************
*** 53,59 ****
  	       (forward-line (- linenum preline))
  	       (setq preline linenum)
  	       (mew-summary-mark-as mew-mark-review)
! 	       (setq msgs (cdr msgs))))
  	   (set-buffer-modified-p nil))
  	 ;; Physical folder
  	 (if (not (get-buffer folder))
--- 54,62 ----
  	       (forward-line (- linenum preline))
  	       (setq preline linenum)
  	       (mew-summary-mark-as mew-mark-review)
! 	       (setq msgsback (cons (car msgs) msgsback)))
! 	     (setq msgs (cdr msgs)))
! 	   (setq msgsback (nreverse msgsback))
  	   (set-buffer-modified-p nil))
  	 ;; Physical folder
  	 (if (not (get-buffer folder))