[Mew-dist 15466] Re: 弱気

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 15465] Re: 弱気
Message-ID: <20001214.120850.41708884.kazu at example.com>
Date: Thu, 14 Dec 2000 12:08:34 +0900

kazu> From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
kazu> Subject: [Mew-dist 15464] Re: 弱気
kazu> 
kazu> > 背中からもう一押し。
kazu> 
kazu> さらに言えば、19.28 には auto-show.el がありません。すると、thread 遊

# といったのは私の様な気がする。

kazu> びをしている人は、すべからく 19.28 を使っていないことになりますね。

ですね。pp も autoload されないし。

kazu> --かず＠古い ` の形式は嫌い

ふむ。で、話は変わってパッチなんですが ^^;
mew-thread.el の方はこうしないと、sub part が開いているときに間
違ったメッセージにマークをつけてしまいます。

mew-summary.el の方は(個人的な趣味かもしれないけど) thread が深
くなったときに、全然右側が見えないから auto-show を活用する、
といった感じです。

-- 
白井秀行＠実は、mew-decode-syntax-delete()でいいとは知らなかった


--- mew-thread.el.orig	Thu Dec 14 02:13:05 2000
+++ mew-thread.el	Thu Dec 14 12:12:15 2000
@@ -458,6 +458,8 @@
    (let* ((folder (mew-summary-folder-name))
 	  (column (mew-summary-scan-form folder 'column))
 	  (regex ""))
+     (mew-summary-goto-message)
+     (mew-decode-syntax-delete)
      (save-excursion
        (move-to-column column)
        (while (looking-at mew-thread-indent-regex)
--- mew-summary.el.orig	Thu Dec 14 00:50:01 2000
+++ mew-summary.el	Thu Dec 14 12:21:46 2000
@@ -1080,7 +1080,12 @@
   (forward-line)
   (cond 
    ((re-search-forward mew-regex-msg-or-part nil t)
-    (beginning-of-line)
+    (if (not (mew-thread-p))
+	(beginning-of-line)
+      (move-to-column
+       (mew-summary-scan-form (mew-summary-folder-name) 'column))
+      (while (looking-at mew-thread-indent-regex)
+	(forward-char mew-thread-indent-length)))
     (setq mew-summary-buffer-direction 'down)
     t)
    (t 
@@ -1095,6 +1100,12 @@
 (defun mew-summary-up ()
   (cond 
    ((re-search-backward mew-regex-msg-or-part nil t)
+    (if (not (mew-thread-p))
+	()
+      (move-to-column
+       (mew-summary-scan-form (mew-summary-folder-name) 'column))
+      (while (looking-at mew-thread-indent-regex)
+	(forward-char mew-thread-indent-length)))
     (setq mew-summary-buffer-direction 'up)
     t)
    (t