From: teranisi <teranisi>
Date: Sat, 23 Aug 2003 10:57:10 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-update-persistent-mark): Highlight the
X-Git-Tag: merged-trunk-to-elmo-mark-20~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=717f9a4c0e2c15cd45025199f533322157c0cf76;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-update-persistent-mark): Highlight the
line even when the mark string is not changed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index de476ea..1cd0478 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-summary.el (wl-summary-update-persistent-mark): Highlight the
+	line even when the mark string is not changed.
+
 	* wl-thread.el (wl-thread-update-line-on-buffer-sub): Follow the
 	argument change in the wl-summary-create-line.
 	(wl-thread-insert-entity-sub): Ditto.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index cf93d3c..13fb445 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2811,11 +2811,11 @@ Return non-nil if the mark is updated"
 	      (new-mark (wl-summary-persistent-mark)))
 	  (unless (string= new-mark mark)
 	    (delete-backward-char 1)
-	    (insert new-mark)
-	    (when wl-summary-highlight
-	      (wl-highlight-summary-current-line))
-	    (set-buffer-modified-p nil)
-	    t)))
+	    (insert new-mark))
+	  (when wl-summary-highlight
+	    (wl-highlight-summary-current-line))
+	  (set-buffer-modified-p nil)
+	  t))
     (when wl-summary-highlight
       (wl-highlight-summary-current-line))
     (set-buffer-modified-p nil)))
@@ -3148,7 +3148,7 @@ Return non-nil if the mark is updated"
     (setq line (concat line
 		       "\r"
 		       (number-to-string
-			(elmo-msgdb-overview-entity-get-number 
+			(elmo-msgdb-overview-entity-get-number
 			 wl-message-entity))))
     (if wl-summary-highlight
 	(wl-highlight-summary-line-string line