[Mew-dist 16610] summary sort (message-count is not onn headers.)

[Kentaro Inagaki / 稲垣 健太郎]

稲垣です。

メーリングリストから来るメールのsummaryに付与されている番号
を元にソートしたかったのですがデフォルトでできるのでしょうか？

X-SequenceとかX-Mail-Countとかがついていないメールだとどうに
もうまくいかなかったのでいじってみたのですが。

ソースを深く読んでないのですが一応動いてはいるようなのです。

--- mew-sort.el.orig	Mon Feb 12 18:49:45 2001
+++ mew-sort.el	Fri Feb 23 01:15:47 2001
@@ -21,6 +21,7 @@
 (defvar mew-sort-switch
   '(("text" mew-sort-key-text mew-sort-string)
     ("ml"   mew-sort-key-ml   mew-sort-string)
+    ("ml2"  mew-sort-key-ml2  mew-sort-number)
     ("date" mew-sort-key-date mew-sort-string)
     ("num"  mew-sort-key-num  mew-sort-number)
     ("postnum" mew-sort-key-postnum mew-sort-number)))
@@ -36,6 +37,14 @@
 	  (setq ret (substring ret (match-end 0) nil))
 	  (mew-subject-simplify ret nil 'no-replace))
       ret)))
+
+(defsubst mew-sort-key-ml2 (key folder msg)
+  (let ((ret (mew-subject-simplify key nil 'no-replace)))
+    (if (string-match "[[(][^])]+[: ]+([0-9]+)[])][ \t]+" key)
+	(progn
+	  (string-to-int (mew-match 0 key))
+	  (mew-subject-simplify ret nil 'no-replace))
+      (string-to-int key))))
 
 (defsubst mew-sort-key-date (key folder msg)
   (if (string= key "")

----
Kentaro Inagaki / 稲垣 健太郎
ZOB Station BBS (TELNET: zmm.zob.ne.jp) zob23368(zob13052)/seraph