[Mew-dist 13624] Re: b45

[Masaki KONUMA]

こぬまです。

scan で Message-Id がないものに "D" が付くのは嫌なのでパッチです。

--- mew-scan.el.orig	Sat Jul  8 13:49:16 2000
+++ mew-scan.el	Wed Jul 12 17:21:50 2000
@@ -112,9 +112,11 @@
 		 (setq func (mew-addrbook-func mew-addrbook-for-summary))
 		 (setq nickname (funcall func faddr)))
 	    (setq from nickname))))
-    (if (member id mew-scan-ids)
-	(setq duplicated t)
-      (setq mew-scan-ids (cons id mew-scan-ids)))
+    (if (string= id "")
+	()
+      (if (member id mew-scan-ids)
+	  (setq duplicated t)
+	(setq mew-scan-ids (cons id mew-scan-ids))))
     (setq ret1
 	  (format "%5s%c%c%02d/%02d %s "
 		  num

ついでに:

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13615] Re: mewls
Date: Wed, 12 Jul 2000 13:55:55 +0900

kazu> おそらく、Mew の方を修正すべきだと考えています。

--- mew-minibuf.el.orig	Fri Jul  7 13:34:45 2000
+++ mew-minibuf.el	Wed Jul 12 14:16:13 2000
@@ -200,7 +200,10 @@
 	    (setq ret mew-range-all) ;; buffer is empty.
 	  (forward-line -1)
 	  (mew-summary-goto-message)
-	  (setq ret (mew-summary-message-number))))))
+	  (setq ret
+		(concat (int-to-string
+			 (1+ (string-to-int (mew-summary-message-number))))
+			"-0"))))))
     (mew-decode-syntax-delete)
     ret))
 
-- 小沼雅樹