[Mew-dist 05882] Re: 1.93b53

[Maybe TABOO]

Kazu Yamamoto (山本和彦) <kazu at example.com>:
> > --- mew-encode.el.ORG	Tue Aug 11 16:05:05 1998
> > +++ mew-encode.el	Tue Aug 11 16:42:53 1998
> > @@ -40,7 +40,7 @@
> >        (save-excursion
> >  	(goto-char (point-min))
> >  	(re-search-forward (concat "^" mew-subj:) (mew-header-end) t 1)
> > -	(if (looking-at " \t*")
> > +	(if (looking-at "\\s-*$")
> >  	    (progn
> >  	      (replace-match " " nil t)
> >  	      (mew-header-insert (read-string (concat mew-subj: " "))))))))
> 
> どうして？ 検索範囲は、ヘッダの終りまでなので、---- とかは範囲内に入っ
> ていませんよ。

(re-search-forward ...) でのカーソルの移動先が空白の手前なんで、
Subject: フィールドに文字列があっても、必ずこの (if ) に引っかかって聞
かれてしまいます。

なお、

`\sCODE'
     matches any character whose syntax is CODE.  Here CODE is a
     character that represents a syntax code: thus, `w' for word
     constituent, `-' for whitespace, `(' for open parenthesis, etc.
     *Note Syntax Tables::, for a list of syntax codes and the
     characters that stand for them.

というわけで、Subject: 行が空か whitespace だけの場合、です。"-" じゃ
ありません。
----
こがよういちろう