* elmo-spam.el (elmo-spam-scheme): Add 'sa' as a candidate.

[elisp/wanderlust.git] / wl / wl-thread.el

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 30e3cc5..b99bbc6 100644 (file)
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -567,12 +567,12 @@ ENTITY is returned."
                  (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))
-                 (younger-brothers (wl-thread-entity-get-younger-brothers entity)))
-             (setq wl-thread-entity-list
-                   (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
@@ -739,6 +739,10 @@ Message is inserted to the summary 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))