From: kaoru <kaoru>
Date: Sun, 16 May 2004 08:27:14 +0000 (+0000)
Subject: Backport change:
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a17b4000e60d2e80757e8980f65620890dc1679c;p=elisp%2Fwanderlust.git

Backport change:
2003-07-15  Mito  <mito@mxa.nes.nec.co.jp>

        * wl-summary.el (wl-summary-entity-info-msg): Don't replace % to %%.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 59d3855..2149610 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -19,6 +19,10 @@
 	* wl-draft.el (wl-draft-normal-send-func): Fixed bug for removing
 	empty lines.
 
+2003-07-15  Mito  <mito@mxa.nes.nec.co.jp>
+
+	* wl-summary.el (wl-summary-entity-info-msg): Don't replace % to %%.
+
 2003-07-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 2.10.1 is released.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 3301a07..f0dd2c6 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1047,11 +1047,9 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 (defun wl-summary-entity-info-msg (entity finfo)
   (or (and entity
 	   (concat
-	    (elmo-replace-in-string
-	     (if (memq 'ask-folder wl-use-folder-petname)
-		 (wl-folder-get-petname entity)
-	       entity)
-	     "%" "%%")
+	    (if (memq 'ask-folder wl-use-folder-petname)
+		(wl-folder-get-petname entity)
+	      entity)
 	    (if (null (car finfo))
 		" (? new/? unread)"
 	      (format