From: yamaoka <yamaoka>
Date: Wed, 11 Aug 2004 22:32:24 +0000 (+0000)
Subject: (smtp-parse-progress-message-format): Fix regexp usage.
X-Git-Tag: flim-1_14_7~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=85875452312e16565a8df02cbea117f7aad9ecd8;p=elisp%2Fflim.git

(smtp-parse-progress-message-format): Fix regexp usage.
---

diff --git a/ChangeLog b/ChangeLog
index 310e3da..30c6aa5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2004-08-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* smtp.el (smtp-parse-progress-message-format): Fix regexp usage.
+
+2004-08-11  Katsumi Yamaoka  <yamaoka@jpl.org>
+
 	* smtp.el (smtp-progress-message-format): New user option.
 	(smtp-primitive-data): Show progress message.
 	(smtp-parse-progress-message-format): New function.
diff --git a/smtp.el b/smtp.el
index 6e86626..b3d83e0 100644
--- a/smtp.el
+++ b/smtp.el
@@ -795,10 +795,7 @@ nil, the symbols `b', `k' and `l'."
 						       (point-max))))))
 			  nil nil format))
 	  (setq index (1+ (match-end 0))
-		format (replace-match (concat "%%"
-					      (or (match-string 1 format)
-						  (match-string 2 format)))
-				      nil nil format))))
+		format (replace-match "%\\&" nil nil format))))
       (cons format type))))
 
 (defun smtp-show-progress-message (def prev)