[Mew-dist 09530] Re: Regexp in mew-refile-guess-alist

[Kyotaro HORIGUCHI]

堀口です. ぎく. わたしのせいですか?

At Fri, 2 Jul 1999 11:34:44 +0900, Kanako Shoji <nikorin at example.com> wrote in <19990702113441O.nikorin at example.com>
> ところが,この書き方で o, C-u o をしてみると,
> 
> Symbol's function definition is void: cadr
> とミニバッファにエラーメッセージが出ます.

 [Mew-dist 09289] で私が出したパッチの中に cadr が使われてますね.

mew-refile.el(0.74):184
> (defun mew-refile-guess-by-alist2 (regexp field string)
>   (let (match-strings match-list)
>     (string-match regexp field)
>     (setq match-list (cdr (cdr (match-data))))
>     (while (car match-list)
>       (setq match-strings
> 	    (cons (substring field
-			     (car match-list) (cadr match-list))
+			     (car match-list) (car (cdr match-list)))

でしょうか.

--
堀口恭太郎