[Mew-dist 16208] Re: b102

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 16196] b102
Message-ID: <20010206.213332.41628506.kazu at example.com>
Date: Tue, 6 Feb 2001 21:32:32 +0900

kazu> お待たせしました。b102 です。
kazu> 	ftp://ftp.mew.org/pub/Mew/beta/mew-1.95b102.tar.gz

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

## ぱちぱち (^^)

kazu> (2) これに伴い、summary と virtual 間のマークの整合性をきちんとした
kazu> 	thread で "?" でも summary にマークが付く
kazu> 	U、ma、mr 周りも完璧

ですね。気持ちいいです。だけど、

* Obsoleting "mu". This is trade-off for thread(Virtual).

って、

(defun mew-summary-mark-undo-all ()
  "Unmark all message marked with 'o' or 'D' or 'X'."
  (interactive)
  (let ((marks mew-summary-mark-undo-marks))
    (message "Unmarking ... ")
    (while marks
      (mew-mark-undo-mark (car marks) 'nomsg)
      (setq marks (cdr marks)))
    (message "Unmarking ... done")))

これでも良いのでは無いでしょうか？ 3回 buffer をなめるから従来よ
り遅くなるけど。
一回で複数種類の mark を消す command は欲しいところです。

と思ったのだけど、本体にも以下のパッチが必要でした。
mew-summary-unmark-in-physical-alist() が save-excursion() の外
側にあるのがなにか意味があるならごめんなさい。


--- mew-mark.el.orig	Tue Feb  6 20:47:08 2001
+++ mew-mark.el	Wed Feb  7 00:43:08 2001
@@ -582,8 +582,8 @@
 	    (mew-mark-alist-set alist fld msg)
 	  (if func (funcall func fld msg))) ;; in physical only
 	(forward-line))  ;; make search faster
-      (set-buffer-modified-p nil))
-    (mew-summary-unmark-in-physical-alist alist func))
+      (set-buffer-modified-p nil)
+      (mew-summary-unmark-in-physical-alist alist func)))
   (or no-msg (message "Unmarking ... done")))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


-- 
白井秀行 (mailto:shirai at example.com)