[Mew-dist 13747] Re: scan problem?

[Takahiro Igarashi]

五十嵐と申します。

僕も b31 から b49 に昨日変更した際に Date: field がおかしな 
mail があり同じようにそれ以降の mail が buffer に出なくなっ
たのですが

> 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 にはないようでした。
# ただ手元にないので他の site のものを利用したために勘違いか
# もしれません

ちなみに僕は以下のようにして対処しました。
# cdr() が nil を返してきてもいいように mew-func.el の中の 
# mew-month-str-to-int を利用して cdr() の返り値をしらべてい
# ます
## cdr() が nil になるのは例外とみて 0 がかえります

--- mew-scan.el.orig	Wed Jul 26 00:48:04 2000
+++ mew-scan.el	Sun Jul 29 06:46:32 2000
@@ -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

--- mew-func.el.orig	Wed Jul 26 00:42:39 2000
+++ mew-func.el	Sun Jul 29 06:46:52 2000
@@ -940,7 +940,9 @@
 			  ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)))
 
 (defun mew-month-str-to-int (str)
-  (cdr (assoc str mew-month-alist)))
+  (cond
+   ((cdr (assoc str mew-month-alist)))
+   (t 0)))
 
 (defvar mew-time-regex
   "\\([^ ]+\\) +\\([^ ]+\\) +\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)")

ではこれで

-- 
  Takahiro Igarashi