[Mew-dist 05755] Re: Underline of Summary buffer

[Mito]

※ "酒" こと ksakai at example.com さんの
   『[Mew-dist 05747] Re: Underline of Summary buffer』より

酒> これを書いた後に、以前、水戸さんが Summary buffer を拡張して、現在表示
酒> しているメールを示す column を追加する方法を提案していたのを思い出した
酒> のですが、buffer に直接書き込むのではなくて、overlay-arrow-string を使っ
酒> て表示するようにすると、buffer を書き換えなくて済むのでいいような気が
酒> します。

これはナイスアイディアです。(^_^)

試しに mew-highlight-cursor-line() に仕込んでみたらなかなか
よさそうです。

ところで、overlay-arrow-(position|string) は local 変数じゃ
ないようですが、mew-end-of-(message|part)-string 用のは 
local にしなくてもいいのでしょうか？
-- 
7/31 14:34頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n
-------------- next part --------------
--- mew-highlight.el	1998/07/31 05:03:33	1.1
+++ mew-highlight.el	1998/07/31 05:13:28
@@ -22,6 +22,7 @@
 
 (defalias 'mew-virtual-highlight-setup 'mew-summary-highlight-setup)
 
+(defvar mew-use-cursor-mark nil)
 (defun mew-highlight-cursor-line ()
   "A function to highlight the cursor line in Summary and Virtual mode."
   (if mew-use-highlight-cursor-line
@@ -36,7 +37,20 @@
 		 (save-excursion (end-of-line) (point))))
 	  (mew-overlay-put mew-overlay-cursor-line 'face 
 			   mew-highlight-cursor-line-face)
-	  ))))
+	  )))
+  (if mew-use-cursor-mark
+      (progn
+        (if (local-variable-p 'overlay-arrow-position)
+            ()
+          (make-local-variable 'overlay-arrow-position)
+          (setq overlay-arrow-position (make-marker)))
+        (if (local-variable-p 'overlay-arrow-string)
+            ()
+          (make-local-variable 'overlay-arrow-string)
+          (setq overlay-arrow-string ">"))
+        (set-marker overlay-arrow-position
+                    (save-excursion (beginning-of-line) (point)))))
+  )
 
 (defun mew-highlight-url ()
   "A function to highlight URL in Message mode."