From: okazaki <okazaki>
Date: Sun, 6 Aug 2000 09:34:03 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-parse-overview-string): In regexps
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=667317eb22b847b104907da26132e28921b97a3f;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-parse-overview-string): In regexps
for server responses, quote `*' regardless of where it appears.
---

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index aa0a237..cadc05a 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -852,14 +852,14 @@ BUFFER must be a single-byte buffer."
       (insert string)
       (goto-char (point-min))
       (setq beg (point))
-      (if (re-search-forward "^\* \\([0-9]+\\) FETCH" 
+      (if (re-search-forward "^\\* \\([0-9]+\\) FETCH"
 			     nil t)
 	  (progn
 	    (setq beg (point))
 	    (unless elmo-imap4-use-uid
 	      (setq number (string-to-int (elmo-match-buffer 1))))
 	    (while (re-search-forward 
-		    "^\* \\([0-9]+\\) FETCH" 
+		    "^\\* \\([0-9]+\\) FETCH"
 		    nil t)
 	      (setq attr (elmo-imap4-make-attributes-object
 			  (buffer-substring beg (match-beginning 0))))