[Mew-dist 2598] Re: Mew 1.92b4

[Mito]

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

山> う、見逃していた。b5 用に作り直して頂けると、嬉しいです。

では、お言葉に甘えて。
お願いします。(_ _)
-- 
10/21 11:35頃
NECソフトウェア新潟  水戸
mailto:mit at example.com
-------------- next part --------------
--- mew-highlight.el	1997/10/21 02:25:14	1.1
+++ mew-highlight.el	1997/10/21 02:27:00
@@ -127,7 +127,7 @@
 ;;
 
 (defun mew-highlight-cursor-line ()
-  (if (and window-system mew-opt-highlight-cursor-line)
+  (if mew-opt-highlight-cursor-line
       (progn
 	(if (mew-overlayp mew-underline-overlay)
 	    (mew-move-overlay mew-underline-overlay
@@ -140,7 +140,7 @@
 	(mew-overlay-put mew-underline-overlay 'face 'underline))))
 
 (defun mew-highlight-url ()
-  (if (and window-system mew-opt-highlight-url)
+  (if mew-opt-highlight-url
       (let ((url-regex mew-opt-highlight-url-regex) overlay)
 	(save-excursion
 	  (goto-char (point-min))

--- mew-summary.el	1997/10/21 02:34:29	1.1
+++ mew-summary.el	1997/10/21 02:34:48
@@ -669,6 +669,7 @@
 	    (progn
 	      (pop-to-buffer buf)
 	      (mew-summary-recenter)
+              (if (not window-system) (mew-highlight-cursor-line))
 	      (if next
 		  (cond 
 		   ((equal mew-summary-show-direction '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)