* 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.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 3ff553d..a52f558 100644 (file)
--- 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 ()