From 652af84d9c5abaeb3c5fc29693d21dd3813dd1bc Mon Sep 17 00:00:00 2001 From: okazaki Date: Sat, 24 Feb 2001 20:05:53 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-delete): Use `match-string' instead of `elmo-match-string' where users don't care about the speed. (wl-draft-save): Ditto. --- wl/wl-draft.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 3ff553d..a52f558 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -671,7 +671,7 @@ Reply to author if WITH-ARG is non-nil." (let ((msg (and wl-draft-buffer-file-name (string-match "[0-9]+$" wl-draft-buffer-file-name) (string-to-int - (elmo-match-string 0 wl-draft-buffer-file-name))))) + (match-string 0 wl-draft-buffer-file-name))))) (wl-draft-config-info-operation msg 'delete)))) (set-buffer-modified-p nil) ; force kill (kill-buffer editing-buffer)))) @@ -1132,7 +1132,7 @@ If optional argument is non-nil, current draft buffer is killed" (wl-draft-config-info-operation (and (string-match "[0-9]+$" wl-draft-buffer-file-name) (string-to-int - (elmo-match-string 0 wl-draft-buffer-file-name))) + (match-string 0 wl-draft-buffer-file-name))) 'save)) (defun wl-draft-mimic-kill-buffer () -- 1.7.10.4