[mew-dist 18790] Re: preserving marks

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 18786] Re: preserving marks
Message-ID: <20010907.162001.68545469.kazu at example.com>
Date: Fri, 07 Sep 2001 16:20:01 +0900 (JST)

kazu> > 待てる時間になると予想しているので
kazu> > 同期になってもかまいません。
kazu> > #mew-summary-make-thread 程度を予想しています。
kazu> 
kazu> たぶんそうでしょう。

# この方針のコードが CVS に反映しつつありますが、忘れないうちに
# 言っておきます。(土日が入るし ^^;;;)

message の number の幅が 5 固定なのは困りますです。

pack 時点では (mew-sinfo-get-scan-form) が nil の可能性があるの
で、こんなパッチかしら。
(mew-sinfo-set-scan-form) しちゃってもいいけど。

-- 
白井秀行＠たくさん候補が出てわけがわからないぞ、LDAP

--- mew-sort.el.~1.22~	Fri Sep  7 18:41:37 2001
+++ mew-sort.el	Fri Sep  7 20:22:11 2001
@@ -235,6 +235,9 @@
 	      (default-directory dir)
 	      (n 1)
 	      (inhibit-quit t)
+	      (form (format
+		     "%%%ds"
+		     (abs (car (rassoc '(num) (mew-summary-scan-form folder))))))
 	      msgs msg src dst src-dst ent face start)
 	 (setq mew-summary-buffer-process t)
 	 (setq msgs (mew-dir-messages "."))
@@ -287,7 +290,7 @@
 		 (setq face (get-text-property start 'face))
 		 (mew-elet
 		  (delete-region start (point))
-		  (insert (format "%5s" dst))
+		  (insert (format form dst))
 		  (put-text-property start (point) 'face face))
 		 (forward-line)))))))))))