[mew-dist 23382] mew-summary-thread-up

[Kan Sasaki]

最近気がついたのですが、4.0.5x では mew-summary-thread-up が正しく動作
しないようです。こんな感じでしょうか。

Index: mew-thread.el
===================================================================
RCS file: /cvsmew/mew/mew-thread.el,v
retrieving revision 1.85
diff -u -r1.85 mew-thread.el
--- mew-thread.el       2003/03/14 05:16:56     1.85
+++ mew-thread.el       2003/03/24 03:06:27
@@ -346,6 +346,9 @@
 (defun mew-thread-get-property (beg)
   (get-text-property beg 'mew-thread-indent))
 
+(defun mew-thread-previous-property (beg)
+  (previous-single-property-change beg 'mew-thread-indent))
+
 (defun mew-thread-next-property (beg)
   (next-single-property-change beg 'mew-thread-indent))
 
@@ -611,7 +614,7 @@
        (setq pos (point))
        (catch 'loop
         (while (and (not (bobp))
-                    (setq pos (mew-thread-next-property pos)))
+                    (setq pos (mew-thread-previous-property pos)))
           (when (and pos (eq (mew-thread-get-property pos) 0))
             (throw 'loop (setq here pos))))))
      (if (not here)

-- 
Fusion Communications Corp.
佐々木  寛  sasaki at example.com