[Mew-dist 15609] Re: sort error

[NINOMIYA Hideyuki]

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

パッチやなくて申し訳ないのですが ...

te-kun <j-kiss at example.com> は Sat, 23 Dec 2000 22:08:26 +0900 頃に
    Subject: [Mew-dist 15608] sort error
    Message-Id: <20001223.220630.01090116.j-kiss at example.com>
        に於いて以下のようにおっしゃっていました。
※都合により手を加えさせていただく事が有ります。御了承下さいマセヽ...
弓岡> お世話になってます、弓岡です。
弓岡> 
弓岡> b91 で sort をしようとすると、
弓岡> Wrong type argument: number-or-marker-p, (if (match-beginning 9) (let ((tmzn (substring s (match-beginning 9) (match-end 9))) int) (cond ((string-match "^[-+][0-9]+$" tmzn) (/ (string-to-int tmzn) 100)) ((setq int (mew-time-tmzn-str-to-int tmzn)) int) (t 0))) 0)
弓岡> となってしまいます。
弓岡> 毎度、毎度恐縮ですが、対処方法はどうすればよろしいのでしょうか。

mew-func.el に

(defsubst mew-time-rfc-tmzn ()
  '(if (match-beginning 9) ...

てのが在りますが

(defsubst mew-time-rfc-tmzn ()
  (if (match-beginning 9) ...

だと思います。defmacro -> defsubst 変更時の修正もれかと...
---
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
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html