From: teranisi <teranisi>
Date: Mon, 10 Sep 2001 10:33:55 +0000 (+0000)
Subject: * elmo-util.el (elmo-msgid-to-cache): Enclose with `save-match-data'.
X-Git-Tag: wl-2_7_4~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f1a8e39b454efc1db981e08e4f0233407ec12762;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-msgid-to-cache): Enclose with `save-match-data'.
(Pointed out by Akihiro MOTOKI <amotoki@dd.iij4u.or.jp>)
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 795316c..f814abb 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-util.el (elmo-msgid-to-cache): Enclose with `save-match-data'.
+	(Pointed out by Akihiro MOTOKI <amotoki@dd.iij4u.or.jp>)
+
 	* mmimap.el (mime-imap-entity::requested): New slot.
 	(mime-imap-location-fetch-entity-p): New generic function.
 	(mime-decode-parameters): Define using `defun-maybe'.
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index d7e5dfd..c962194 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1704,9 +1704,10 @@ If KBYTES is kilo bytes (This value must be float)."
 ;;;
 ;; msgid to path.
 (defun elmo-msgid-to-cache (msgid)
-  (when (and msgid
-	     (string-match "<\\(.+\\)>$" msgid))
-    (elmo-replace-string-as-filename (elmo-match-string 1 msgid))))
+  (save-match-data
+    (when (and msgid
+	       (string-match "<\\(.+\\)>$" msgid))
+      (elmo-replace-string-as-filename (elmo-match-string 1 msgid)))))
 
 (defun elmo-cache-get-path (msgid &optional folder number)
   "Get path for cache file associated with MSGID, FOLDER, and NUMBER."