[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 メーリングリストの案内