From 85875452312e16565a8df02cbea117f7aad9ecd8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 11 Aug 2004 22:32:24 +0000 Subject: [PATCH] (smtp-parse-progress-message-format): Fix regexp usage. --- ChangeLog | 4 ++++ smtp.el | 5 +---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 310e3da..30c6aa5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2004-08-11 Katsumi Yamaoka + * smtp.el (smtp-parse-progress-message-format): Fix regexp usage. + +2004-08-11 Katsumi Yamaoka + * 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) -- 1.7.10.4