[Mew-dist 13823] Re: b52

[Kenichi Niioka ( 新岡賢一 )]

新岡です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13783] b52
Date: Mon, 7 Aug 2000 22:51:30 +0900

> b52 をリリースします。

Date: Mon Aug  7 00:17:34 2000

のメールの scan でエラーになります。

Signaling: (error "Format specifier doesn't match argument type")
  format("%5s%c%c%02d/%02d %s " "360" 32 32 "nil" nil "mdonnelly at example.com" "")
  (setq ret1 (format "%5s%c%c%02d/%02d %s " num (cond ... ...)
  (cond ... ... ... ... ...) mon day (mew-substring from 14) ""))

  (let ((num ...) (subj ...) (s ...) (from ...) (to ...) (ct ...)
  (id ...) (case-fold-search t) day mon ret1 ret2 func faddr
  nickname duplicated) (if (string= s "") (setq s ...)) (if
  (string-match mew-time-rfc-regex s) (progn ... ...)) (if
  (string= from "") nil (setq faddr ...) (if ... ... ...)) (if
  (string= id "") nil (if ... ... ...)) (setq ret1 (format
  "%5s%c%c%02d/%02d %s " num ... ... mon day ... "")) (while
  (string-match "	" subj) (setq subj ...)) (setq ret2
  (mew-substring subj ...)) (list ret1 ret2))
  mew-scan-format(["360" nil "Mon Aug  7 00:17:34 2000"
  "mdonnelly at example.com" "freebsd-stable at example.com"
  "text/plain; charset=us-ascii"
  "<200008070427.AAA20162 at example.com>"] 80 "+inbox")

とりあえず、以下のようにいたしました。

--- mew-scan.el.orig    Tue Aug  8 01:30:19 2000
+++ mew-scan.el.new     Tue Aug  8 08:16:55 2000
@@ -104,7 +104,8 @@
     (if (string-match mew-time-rfc-regex s)
        (progn
          (setq day (mew-time-rfc-day))
-         (setq mon (mew-time-mon-str-to-int (mew-time-rfc-mon)))))
+         (setq mon (mew-time-mon-str-to-int (mew-time-rfc-mon))))
+       (setq day 1 mon 1))
     (if (string= from "")
        ()
       (setq faddr (mew-addrstr-parse-address from))

--
新岡賢一 (Kenichi Niioka)
niioka at example.com