[Mew-dist 2447] Re: 1.92b2

[Mito]

※ "山" こと Kazu at example.com の
   『[Mew-dist 2428] 1.92b2』からの引用です。

山> 混乱している Mew 1.92 b1 ですが、とりあえず b2 を作りました。

見にいったら、b3 があったので、mew-1.92b3.tar.gz を持ってき
ましたが、

1. mew-1.92/bin/config.cache があるため、make install で不正
2. mew-temacs.el で hilit19 を require しているため、
   batch-byte-compile できない

の不具合がありました。

2 の方は、
Emacs 19.34.1 ベースの Mule Version 2.3 (SUETSUMUHANA) を X 
なしで make し、emacs -nw で使っているためです。

特殊な環境なのかもしれませんが、一応修正したものをつけます。
-- 
10/13 11:21頃
NECソフトウェア新潟  水戸
mailto:mit at example.com
-------------- next part --------------
--- mew-temacs.el	1997/10/13 01:54:57	1.1
+++ mew-temacs.el	1997/10/13 01:59:42
@@ -2,7 +2,7 @@
 ;; Highlight
 ;;
 
-(require 'hilit19)
+;(require 'hilit19)
 
 (defvar mew-opt-highlight-cursor-line nil
   "Put underline on the current line in Summary mode.")
@@ -58,10 +58,11 @@
   )
 
 (defun mew-highlight-headers (beg end xface)
-  (if mew-opt-highlight-headers
+  (if (and (featurep 'hilit19) mew-opt-highlight-headers)
       (hilit-rehighlight-buffer-quietly)))
 
-(if (not (mew-assoc-equal 'mew-message-mode hilit-patterns-alist 0))
+(if (and (featurep 'hilit19)
+         (not (mew-assoc-equal 'mew-message-mode hilit-patterns-alist 0)))
     (hilit-set-mode-patterns 
      '(mew-message-mode)
      '(("^Subject:.*$" nil msg-subject)
@@ -69,7 +70,8 @@
        ("^X-.*:.*$" nil msg-quote)
        ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header))))
 
-(if (not (mew-assoc-equal 'mew-draft-mode hilit-patterns-alist 0))
+(if (and (featurep 'hilit19)
+         (not (mew-assoc-equal 'mew-draft-mode hilit-patterns-alist 0)))
     (hilit-set-mode-patterns 
      '(mew-draft-mode)
      '(("^Subject:.*$" nil msg-subject)