[Mew-dist 2580] Re: Mew 1.92b4

[Maybe TABOO]

こが:
> > Font-lock に全面的に移行したバージョンである 1.92b を
> > 	ftp.aist-nara.ac.jp/pub/elisp/Mew/beta
> > に置きました。
> -nw で Emacs を起動すると mew-message-highlight-setup がないと言われて 
> Mew が起動しません。
> いろんなところに highlight まわりの呼び出しが入っているので、結構嫌か
> も。
> てっ取り早い対処は、mew-highlight.el 中の関数で window-system でない場
> 合には何もしないようにすることかな。

ということで、とりあえず応急処置パッチです。
----
ＮＥＣ ネットワーキング技術研究所 ＆ 慶應義塾ＳＦＣ研究所
こがよういちろう <y-koga at example.com>
-------------- next part --------------
--- mew.el.ORG	Mon Oct 20 14:17:46 1997
+++ mew.el	Mon Oct 20 17:38:36 1997
@@ -978,7 +978,7 @@
 (require 'mew-ext)
 (require 'mew-fib)
 (require 'mew-sort)
-(if window-system (require 'mew-highlight))
+(require 'mew-highlight)
 (eval-when-compile (require 'mew-highlight))
 ;;;
 ;;; End of Mew
--- mew-highlight.el.ORG	Mon Oct 20 16:29:13 1997
+++ mew-highlight.el	Mon Oct 20 18:25:28 1997
@@ -42,6 +42,11 @@
 (defvar mew-highlight-header-comment-face 'mew-highlight-header-comment-face)
 (defvar mew-highlight-header-important-face 'mew-highlight-header-important-face)
 (defvar mew-highlight-header-default-face 'mew-highlight-header-default-face)
+(if window-system ()
+  (setq mew-opt-highlight-header nil)
+  (setq mew-opt-highlight-cursor-line nil)
+  (setq mew-opt-highlight-mark nil)
+  (setq mew-opt-highlight-url nil))
 
 (defvar mew-highlight-header-keywords
   '(("\\(^Subject: .*$\\)"           1 mew-highlight-header-subject-face t)
@@ -61,7 +66,9 @@
 (defvar mew-highlight-mark-regex "\\(^ +[0-9]+%s.*$\\)")
 
 (defun mew-highlight-mark-make-regex (mark)
-  (format mew-highlight-mark-regex (regexp-quote (char-to-string mark))))
+  (if window-system
+      (format mew-highlight-mark-regex (regexp-quote (char-to-string mark))))
+  )
 
 (defvar mew-highlight-mark-keywords
   (list 
@@ -80,7 +87,7 @@
 ;;
 
 (defun mew-highlight-cursor-line ()
-  (if mew-opt-highlight-cursor-line
+  (if (and window-system mew-opt-highlight-cursor-line)
       (progn
 	(if (mew-overlayp mew-underline-overlay)
 	    (mew-move-overlay mew-underline-overlay
@@ -93,7 +100,7 @@
 	(mew-overlay-put mew-underline-overlay 'face 'underline))))
 
 (defun mew-highlight-url ()
-  (if mew-opt-highlight-url
+  (if (and window-system mew-opt-highlight-url)
       (let ((url-regex mew-opt-highlight-url-regex) overlay)
 	(save-excursion
 	  (goto-char (point-min))
@@ -105,9 +112,9 @@
 
 (defun mew-summary-highlight-setup ()
   ;; mouse line for XEmacs
-  (if (and mew-xemacs-p mew-opt-highlight-mouse-line)
+  (if (and window-system (and mew-xemacs-p mew-opt-highlight-mouse-line))
       (setq mode-motion-hook 'mode-motion-highlight-line))
-  (if mew-opt-highlight-mark
+  (if (and window-system mew-opt-highlight-mark)
       (progn
 	(cond
 	 ((boundp 'font-lock-defaults)
@@ -122,7 +129,7 @@
 (defalias 'mew-virtual-highlight-setup 'mew-summary-highlight-setup)
 
 (defun mew-message-highlight-setup ()
-  (if mew-opt-highlight-header
+  (if (and window-system mew-opt-highlight-header)
       (cond
        ((boundp 'font-lock-defaults)
 	(make-local-variable 'font-lock-defaults)
@@ -142,7 +149,7 @@
 (defalias 'mew-draft-highlight-setup 'mew-message-highlight-setup)
 
 (defun mew-highlight-header-region (beg end)
-  (if mew-opt-highlight-header
+  (if (and window-system mew-opt-highlight-header)
       (save-excursion
 	(cond
 	 ((fboundp (function font-lock-hack-keywords))
--- mew-scan.el.ORG	Mon Oct 20 11:14:18 1997
+++ mew-scan.el	Mon Oct 20 18:13:17 1997
@@ -85,7 +85,7 @@
     (mew-current-set 'part nil)
     (mew-current-set 'cache nil)
     (setq mew-summary-buffer-direction 'down)
-    (if mew-opt-highlight-mark
+    (if (and window-system mew-opt-highlight-mark)
 	(let ((font-lock-verbose nil))
 	  (font-lock-mode 0)))
     (mew-decode-syntax-delete)
@@ -185,7 +185,7 @@
 (defun mew-summary-scan-sentinel (process event)
   (save-excursion
     (set-buffer (process-buffer process)) ;; just in case
-    (if mew-opt-highlight-mark
+    (if (and window-system mew-opt-highlight-mark)
 	(let ((font-lock-verbose nil))
 	  (font-lock-mode 1)))
     (let ((prog (process-name process))