[Mew-dist 2586] Re: Mew 1.92b4

[Mito]

※ "こ" こと y-koga at example.com さんの
   『[Mew-dist 2580] Re: Mew 1.92b4』からの引用です。

こ> > てっ取り早い対処は、mew-highlight.el 中の関数で window-system でない場
こ> > 合には何もしないようにすることかな。
こ> 
こ> ということで、とりあえず応急処置パッチです。

-nw でも bold, underline face は使いたいので、こんな感じにし
てみました。
1.92b4 オリジナルからの差分です。

＃ -nw はもう対応しないのかなぁ...。
-- 
10/20 21:45頃
NECソフトウェア新潟  水戸
mailto:mit at example.com
-------------- next part --------------
--- mew.el.original	Mon Oct 20 14:17:46 1997
+++ mew.el	Mon Oct 20 20:34:26 1997
@@ -978,8 +978,7 @@
 (require 'mew-ext)
 (require 'mew-fib)
 (require 'mew-sort)
-(if window-system (require 'mew-highlight))
-(eval-when-compile (require 'mew-highlight))
+(require 'mew-highlight)
 ;;;
 ;;; End of Mew
 ;;;
--- mew-highlight.el.original	Mon Oct 20 16:29:13 1997
+++ mew-highlight.el	Mon Oct 20 21:22:31 1997
@@ -13,21 +13,21 @@
 (defconst mew-highlight-version "mew-highlight.el version 0.01")
 
 (require 'mew)
-(require 'font-lock)
+(if window-system (require 'font-lock))
 
 ;;
 ;; options
 ;;
 
-(defvar mew-opt-highlight-cursor-line t
+(defvar mew-opt-highlight-cursor-line (or window-system (facep 'underline))
   "Put underline on the current line in Summary mode.")
 (defvar mew-opt-highlight-mouse-line mew-xemacs-p
   "Paint the line where mouse locates in Summary mode.")
-(defvar mew-opt-highlight-mark t
+(defvar mew-opt-highlight-mark (and window-system t)
   "Paint marked lines in Summary mode.")
-(defvar mew-opt-highlight-header t
+(defvar mew-opt-highlight-header (and window-system t)
   "Paint header in Message and Draft mode.")
-(defvar mew-opt-highlight-url t
+(defvar mew-opt-highlight-url (or window-system (facep 'bold))
   "Emphasize URL lines in Message mode.")
 (defvar mew-opt-highlight-url-regex
   "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]")
--- mew-summary.el.original	Mon Oct 20 13:14:21 1997
+++ mew-summary.el	Mon Oct 20 21:14:05 1997
@@ -669,7 +669,8 @@
 	    (progn
 	      (pop-to-buffer buf)
 	      (mew-summary-recenter)
-	      (if next
+              (if (not window-system) (mew-highlight-cursor-line))
+              (if next
 		  (cond 
 		   ((equal mew-summary-show-direction 'down)
 		    (mew-summary-display-down))
@@ -751,6 +752,7 @@
 	(progn
 	  (pop-to-buffer buf)
 	  (if (null notforce) (mew-summary-recenter))
+          (if (not window-system) (mew-highlight-cursor-line))
 	  )
 	)
       (set-buffer-modified-p nil)