From 7ef8671f43bdb50225926f92bbac98711f008b31 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 17 Mar 2005 17:34:14 +0000 Subject: [PATCH] * wl-thread.el (wl-thread-update-line-on-buffer-sub): Avoid duplicate call of `wl-summary-print-argument' on the wrong line. --- wl/ChangeLog | 5 +++++ wl/wl-thread.el | 10 +++------- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 7084b7a..7bdd60b 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2005-03-17 Yoichi NAKAYAMA + + * wl-thread.el (wl-thread-update-line-on-buffer-sub): Avoid + duplicate call of `wl-summary-print-argument' on the wrong line. + 2005-03-17 Hiroya Murata * wl-summary.el (wl-summary-jump-to-msg): Don't interactive input diff --git a/wl/wl-thread.el b/wl/wl-thread.el index 655407a..0d48474 100644 --- a/wl/wl-thread.el +++ b/wl/wl-thread.el @@ -367,15 +367,14 @@ ENTITY is returned." (parent-msg (or parent-msg (wl-thread-entity-get-parent entity))) (buffer-read-only nil) (inhibit-read-only t) - message-entity temp-mark summary-line invisible-top dest-pair) + message-entity temp-mark summary-line invisible-top) (if (wl-thread-delete-line-from-buffer msg) (progn (cond ((memq msg wl-summary-buffer-target-mark-list) (setq temp-mark "*")) ((setq temp-mark (wl-summary-registered-temp-mark msg)) - (setq dest-pair (cons (nth 0 temp-mark)(nth 2 temp-mark)) - temp-mark (nth 1 temp-mark))) + (setq temp-mark (nth 1 temp-mark))) (t (setq temp-mark (wl-summary-get-score-mark msg)))) (when (setq message-entity (elmo-message-entity wl-summary-buffer-elmo-folder @@ -394,10 +393,7 @@ ENTITY is returned." nil (wl-thread-maybe-get-children-num msg)) (wl-thread-make-indent-string entity) - (wl-thread-entity-get-linked entity))) - (if dest-pair - (wl-summary-print-argument (car dest-pair) - (cdr dest-pair))))) + (wl-thread-entity-get-linked entity))))) ;; insert thread (moving thread) (if (not (setq invisible-top (wl-thread-entity-parent-invisible-p entity))) -- 1.7.10.4