[Mew-dist 14206] Re: b62

[Kazu Yamamoto ( 山本和彦 )]

From: Shigeya Suzuki <shigeya at example.com>
Subject: [Mew-dist 14198] Re: b62

> そのうえ、どうもうまく動いてない気がします。

すいません。以下のぱっちを当てて下さい。

> # mydate, mytime, myfrom は自分で定義してますが、関係ないので、省略
> 
> (setq mew-scan-form
>       '(type (4 mydate) "-" (4 mytime) " " (20 myfrom) " " (0 subj)))
> 
> とすると、OKだけど、

これは OK。

> (setq mew-scan-form
>       '(-4 type (4 mydate) "-" (4 mytime) " " (20 myfrom) " " (0 subj)))
> 
> は、エラーに (wrong-type-argument lisp -4) なっちゃう。また、

以下のパッチで直ります。ただ、この形式はほとんど隠し機能の位置づけです。

> (setq mew-scan-form
>       '((-4 num) mark type (4 mydate) "-" (4 mytime) " " (20 myfrom) " " (0 subj)))

これはやってはいけない。

--かず

Index: mew-scan.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-scan.el,v
retrieving revision 1.164
diff -c -r1.164 mew-scan.el
*** mew-scan.el	2000/09/24 04:59:16	1.164
--- mew-scan.el	2000/09/24 15:08:30
***************
*** 243,249 ****
  append '((N num) mark) to the FORM.
  Otherwise append 'mew-scan-form-header' to FORM."
    (if (integerp (car form))
!       (cons (list (car form) 'num) (cons 'mark form))
      (append mew-scan-form-header form)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 243,249 ----
  append '((N num) mark) to the FORM.
  Otherwise append 'mew-scan-form-header' to FORM."
    (if (integerp (car form))
!       (cons (list (car form) 'num) (cons 'mark (cdr form)))
      (append mew-scan-form-header form)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;