[mew-dist 24495] mark vs XEmacs

[Shun-ichi TAHARA ( 田原 俊一 )]

Mew4 を XEmacs で使うと、マークを打った際に

・行頭のマークの文字の部分から text-property (mouse-face 等) が外れる
・マーク行の直上にマルチパートがある場合、マークを打ちながら添付部分を
  展開する(上に動きながらマークを打つ)と、mark-face が展開した添付部分
  にも付いてしまう

という問題がありました。

マークが行頭に付くようになったせいで、start-open 属性が悪さをしている
ようです(XEmacs は insert-and-inherit が効かないらしい…)。

# その割に、mouse-face が広がらなかったのは謎ですが
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint:  16 9E 70 3B 05 86 5D 08  B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

diff -rcb mew-4.0.63.orig/mew-mark.el mew-4.0.63/mew-mark.el
*** mew-4.0.63.orig/mew-mark.el	2003-10-23 18:15:25.000000000 +0900
--- mew-4.0.63/mew-mark.el	2004-02-03 09:06:22.000000000 +0900
***************
*** 121,137 ****
    (save-excursion
      (mew-summary-goto-mark)
      (mew-elet
       (delete-char 1)
       (insert-and-inherit (char-to-string mark)) ;; inherit highlight
!      (mew-highlight-mark-line mark))))
  
  (defsubst mew-mark-remove ()
    (save-excursion
      (mew-summary-goto-mark)
      (mew-elet
       (delete-char 1)
       (insert-and-inherit " ") ;; inherit highlight
!      (mew-highlight-unmark-line))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 121,143 ----
    (save-excursion
      (mew-summary-goto-mark)
      (mew-elet
+      (let* ((beg (point)) (end (1+ beg)))
+        (mew-front-sticky beg end) ;; for XEmacs
         (delete-char 1)
         (insert-and-inherit (char-to-string mark)) ;; inherit highlight
!        (mew-front-nonsticky beg end)
!        (mew-highlight-mark-line mark)))))
  
  (defsubst mew-mark-remove ()
    (save-excursion
      (mew-summary-goto-mark)
      (mew-elet
+      (let* ((beg (point)) (end (1+ beg)))
+        (mew-front-sticky beg end) ;; for XEmacs
         (delete-char 1)
         (insert-and-inherit " ") ;; inherit highlight
!        (mew-front-nonsticky beg end)
!        (mew-highlight-unmark-line)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;