(wl-thread-reparent-children children top-child)
(wl-append update-msgs children))))
;; delete myself from top list.
- (let ((older-brothers (wl-thread-entity-get-older-brothers
- entity nil))
- (younger-brothers (wl-thread-entity-get-younger-brothers
- entity nil)))
- (setq wl-thread-entity-list
- (append (append older-brothers
- (and top-child (list top-child)))
- younger-brothers))))))
+ (let ((match (memq msg wl-thread-entity-list)))
+ (when match
+ (if top-child
+ (setcar match top-child)
+ (setq wl-thread-entity-list
+ (delq msg wl-thread-entity-list))))))))
;;
(if deep
;; delete thread on buffer
(interactive "P")
(wl-thread-call-region-func 'wl-summary-mark-as-important-region arg))
+(defun wl-thread-mark-as-answered (&optional arg)
+ (interactive "P")
+ (wl-thread-call-region-func 'wl-summary-mark-as-answered-region arg))
+
(defun wl-thread-unmark (&optional arg)
(interactive "P")
(wl-thread-call-region-func 'wl-summary-unmark-region arg))