[mew-dist 24322] thread-move-cursor with mew-summary-analyze-again()

Hideyuki SHIRAI ( 白井秀行 ) shirai at example.com
2004年 1月 6日 (火) 20:40:05 JST


thread で mew-summary-analyze-again() したときにカーソル位置が行
頭になってしまうので。。。

# 余分な funcall を避けるためなら話は別ですが、
# mew-summary-next/previous-line() の判定は必要ですね。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-summary2.el.orig	Tue Jan  6 20:18:43 2004
+++ mew-summary2.el	Tue Jan  6 15:05:48 2004
@@ -139,6 +139,7 @@
 (defun mew-summary-cursor-postscript ()
   (mew-summary-mode-line)
   (mew-summary-recenter)
+  (mew-thread-move-cursor)
   (mew-highlight-cursor-line)
   (set-buffer-modified-p nil))
 
@@ -655,8 +656,7 @@
   (while (or (looking-at mew-regex-thread-separator)
 	     (eq (get-text-property (point) 'invisible) t))
     (forward-line))
-  (if (and (mew-thread-p) mew-use-thread-cursor)
-      (mew-thread-move-cursor)))
+  (mew-thread-move-cursor))
 
 (defun mew-summary-previous-line ()
   (interactive)
@@ -665,8 +665,7 @@
   (while (or (looking-at mew-regex-thread-separator)
 	     (eq (get-text-property (point) 'invisible) t))
     (forward-line -1))
-  (if (and (mew-thread-p) mew-use-thread-cursor)
-      (mew-thread-move-cursor)))
+  (mew-thread-move-cursor))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;



Mew-dist メーリングリストの案内