From: hmurata <hmurata>
Date: Mon, 5 Nov 2001 14:09:01 +0000 (+0000)
Subject: * elmo-util.el (elmo-parse-token): Fixed how to treat quoted-pair
X-Git-Tag: wl-2_7_6~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=81851be8a05acbeeafb18fce032f4a9f45d4bd53;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-parse-token): Fixed how to treat quoted-pair
in quoted-stirng.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6d02a2e..3eb2350 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-util.el (elmo-parse-token): Fixed how to treat quoted-pair
+	in quoted-stirng.
+
 2001-11-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-pop3.el (elmo-folder-initialize): Rewrite.
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 4a175fb..caacaeb 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1362,8 +1362,8 @@ But if optional argument AUTO is non-nil, DEFAULT is returned."
 	(cond
 	 ((and in (eq c ?\\))
 	  (setq i (1+ i)
-		i (1+ i)
-		content (cons (aref string i) content)))
+		content (cons (aref string i) content)
+		i (1+ i)))
 	 ((eq c ?\")
 	  (setq in (not in)
 		i (1+ i)))
@@ -1384,7 +1384,7 @@ But if optional argument AUTO is non-nil, DEFAULT is returned."
     (cons "" string)))
 
 ;;; Number set defined by OKAZAKI Tetsurou <okazaki@be.to>
-;; 
+;;
 ;; number          ::= [0-9]+
 ;; beg             ::= number
 ;; end             ::= number