(defvar wl-thread-entities nil)
(defvar wl-thread-entity-list nil) ; entity list
(defvar wl-thread-entity-hashtb nil) ; obarray
-(defvar wl-thread-indent-regexp nil)
(make-variable-buffer-local 'wl-thread-entity-hashtb)
(make-variable-buffer-local 'wl-thread-entities) ; ".wl-thread-entity"
(make-variable-buffer-local 'wl-thread-entity-list) ; ".wl-thread-entity-list"
-(make-variable-buffer-local 'wl-thread-entity-cur)
-(make-variable-buffer-local 'wl-thread-indent-regexp)
;;; global flag
(defvar wl-thread-insert-force-opened nil)
"If parent of ENTITY is invisible, the top invisible ancestor entity of
ENTITY is returned."
(let ((cur-entity entity)
- ret-val)
+ top)
(catch 'done
(while (setq cur-entity (wl-thread-entity-get-parent-entity
cur-entity))
(if (null (wl-thread-entity-get-number cur-entity))
- ;; top!!
- (progn
- ;;(setq ret-val nil)
- (throw 'done nil))
+ (throw 'done nil)
(when (not (wl-thread-entity-get-opened cur-entity))
- ;; not opened!!
- (setq ret-val cur-entity)))))
- ;; top of closed entity in the path.
- ret-val))
+ (setq top cur-entity)))))
+ top))
(defun wl-thread-entity-get-nearly-older-brother (entity &optional parent)
(let ((brothers (wl-thread-entity-get-older-brothers entity parent)))
parent-msg (wl-summary-buffer-msgdb)))
(when parent
;; use thread structure.
- (wl-thread-entity-get-nearly-older-brother
- child-entity parent))) ; return value
-;;; (wl-thread-entity-get-number
-;;; (wl-thread-entity-get-top-entity parent)))) ; return value;
+ ;;(wl-thread-entity-get-nearly-older-brother
+ ;; child-entity parent))) ; return value
+ (wl-thread-entity-get-number parent))) ; return value
;;; (setq beg (point))
;;; (wl-thread-goto-bottom-of-sub-thread)
;;; (wl-thread-update-indent-string-region beg (point)))
(wl-summary-jump-to-msg msg)
(wl-thread-close
(wl-thread-get-entity (wl-summary-message-number)))))))
+ (when wl-summary-lazy-highlight
+ (wl-highlight-summary-window))
(wl-summary-set-message-modified)
(set-buffer-modified-p nil))))
(save-excursion
(goto-char beg)
(while (< (point) end)
- ;(wl-thread-update-indent-string)
- (wl-thread-update-line-on-buffer)
+ (save-excursion
+ (wl-thread-update-line-on-buffer-sub nil (wl-summary-message-number)))
(forward-line 1))))
(defsubst wl-thread-make-indent-string (entity)