[Mew-dist 13748] Re: scan problem?

[Ninomiya Hideyuki]

おはようございます	二宮@お四国 です

Takahiro Igarashi <tigara at example.com> は Sun, 30 Jul 2000 01:50:31 +0900 頃に
    Subject:    [Mew-dist 13747] Re: scan problem?
    Message-ID: <20000730.014948.125130611.tigara at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
五十嵐> 五十嵐と申します。

五十嵐> > On Sat, 29 Jul 2000 18:16:06 +0900
五十嵐> > Ninomiya Hideyuki <nin at example.com> wrote
五十嵐> > about [Mew-dist 13746] Re: scan problem?.

五十嵐> > assoc-ignore-case って関数使っていますが、これって全 Emacs に
五十嵐> > 在るんでしょうか ?
五十嵐> 
五十嵐> mule 2.3 にはないようでした。

そっか、、Emacs 19.34 base には無いのかっ...

五十嵐> # mew-month-str-to-int を利用して cdr() の返り値をしらべてい

こんな関数在ったんですねっ
ちょこっと改良版です。
# assoc-ignore-case が在れば使う....だけ f^^;

Index: mew-func.el
===================================================================
RCS file: /tmp/am/od/cvs/mew/mew-func.el,v
retrieving revision 0.2
diff -u -r0.2 mew-func.el
--- mew-func.el	2000/07/27 07:34:11	0.2
+++ mew-func.el	2000/07/29 23:04:41
@@ -940,7 +940,11 @@
 			  ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)))
 
 (defun mew-month-str-to-int (str)
-  (cdr (assoc str mew-month-alist)))
+  (cond
+   ((if (fboundp 'assoc-ignore-case)
+	(cdr (assoc-ignore-case str mew-month-alist))
+      (cdr (assoc str mew-month-alist))))
+   (t 0)))
 
 (defvar mew-time-regex
   "\\([^ ]+\\) +\\([^ ]+\\) +\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)")
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 22:53:11
@@ -131,7 +131,7 @@
 		   ((string-match "Multipart/Encrypted" ct) ?E)
 		   ((string-match "Multipart/" ct) ?M)
 		   (t 32))
-		  (cdr (assoc month mew-month-alist))
+		  (mew-month-str-to-int month)
 		  (string-to-int day)
 		  (mew-substring from 14) ""))
     ;; convert TAB to space
---
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