[Mew-dist 104] Re: Mew-1.52 がコンパイルできない

[SAKAI Kiyotaka]

>> In article <199611201834.DAA10328 at example.com>, Tatsuya BIZENN <bizenn at example.com> writes:

>     Mew-1.52 がリリースされたということで、さっそく取ってきたのですが、
> make しようとすると、

> Vishnu(bizenn):~/src/mew-1.52$ make
> emacs -batch -l ./lp.el -l ./mew.el -f batch-byte-compile mew-attach.el
> Symbol's function definition is void: mew-delq
> make: *** [mew-attach.elc] Error 255

> という具合になってコンパイルできません。ちょっと mew.el を見てみると、
> 156行目で、

>   (if (rassq 'mh-letter-mode auto-mode-alist)
>       (setq auto-mode-alist
> 	    (mew-delq (rassq 'mh-letter-mode auto-mode-alist) ; <== ここ
> 		      auto-mode-alist)))

> ずっと後ろで定義されている mew-delq を実行しているのが原因のようです。

これですが、わざわざ mew-delq を使う必要はあるのでしょうか？

  (cond (mew-emacs19p (...)))

の内部で実行していますので、小林さんのコードにあったように delete を使っ
ても問題ないと思うのですが。

Emacs 19 では、delete() は C で書かれていますので、Emacs Lisp のコード
を使うよりも速いと思いますし。

===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el	1996/11/22 02:10:32	1.1
+++ mew.el	1996/11/22 02:12:55
@@ -153,7 +153,7 @@
   ;; to avoid competition with mh-e.el
   (if (rassq 'mh-letter-mode auto-mode-alist)
       (setq auto-mode-alist
-	    (mew-delq (rassq 'mh-letter-mode auto-mode-alist)
+	    (delete (rassq 'mh-letter-mode auto-mode-alist)
 		      auto-mode-alist)))
 ;;  (setq auto-mode-alist
 ;;	(cons '("/drafts/[0-9]+\\'" . mew-draft-mode) auto-mode-alist))

-- 
酒井 清隆 (E-mail: ksakai at example.com)