From: okazaki <okazaki>
Date: Sat, 24 Feb 2001 20:05:53 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-delete): Use `match-string' instead of
X-Git-Tag: wl-2_6-root~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=652af84d9c5abaeb3c5fc29693d21dd3813dd1bc;p=elisp%2Fwanderlust.git

* 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
--- 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 ()