[Mew-dist 13746] Re: scan problem?

[Ninomiya Hideyuki]

こんばんは	二宮@お四国 です

Shigeya Suzuki <shigeya at example.com> は Sat, 29 Jul 2000 11:52:22 +0900 頃に
    Subject:    [Mew-dist 13745] scan problem?
    Message-ID: <20000729.114838.115905693.shigeya at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
すずき> とりあえず、ご報告。

すずき> 一つ問題あって、以下に attach するメールがある
すずき> メールボックスを scan したら腐って、それから後のメッセージ
すずき> が全部でなくなりました。

確かに....
<彼のメール＞
Date: Tue, 09 MAY 2000 16:44:00
              ~~~
               が May じゃないのが原因のようです。

取り合えず以下の patch で良いと思いますが、もっと厳しくチェック
すべきかも知れません。

っというか....

    (if (string-match "\\([0-9][0-9]?\\) \\([A-Z][a-z][a-z]\\)" date)
	(progn
	  (setq day (mew-match 1 date))
	  (setq month (mew-match 2 date)))
      (setq day "0" month "Jan"))

ここのチェックをすり抜けてるのがまずいのか ? .....

Index: mew-scan.el
===================================================================
RCS file: /tmp/am/od/cvs/mew/mew-scan.el,v
retrieving revision 0.2
diff -u -r0.2 mew-scan.el
--- mew-scan.el	2000/07/27 13:51:40	0.2
+++ mew-scan.el	2000/07/29 08:42:27
@@ -131,7 +131,7 @@
 		   ((string-match "Multipart/Encrypted" ct) ?E)
 		   ((string-match "Multipart/" ct) ?M)
 		   (t 32))
-		  (cdr (assoc month mew-month-alist))
+		  (cdr (assoc-ignore-case month mew-month-alist))
 		  (string-to-int day)
 		  (mew-substring from 14) ""))
     ;; convert TAB to space

assoc-ignore-case って関数使っていますが、これって全 Emacs に在る
んでしょうか ?
---
ICQ UIN:57442553                        二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:  http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com http://user.shikoku.ne.jp/~nin/index.html