* 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 (file)
--- 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 (file)
--- 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."