From: teranisi <teranisi>
Date: Wed, 7 Feb 2001 06:43:29 +0000 (+0000)
Subject: 2001-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
X-Git-Tag: wl-2_6-root~127
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b8bfe51f31ae2909235ba38b66ca8d64f66560f4;p=elisp%2Fwanderlust.git

2001-02-07  Yuuichi Teranishi  <teranisi@gohome.org>

	* wl-draft.el (wl-draft-parse-msg-id-list-string): Fix.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fbe8512..fb33a16 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-parse-msg-id-list-string): Fix.
+
 2001-02-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-mime.el (wl-draft-preview-message):
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 057cbf3..e82c707 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -798,20 +798,11 @@ to find out how to use this."
 
 (defun wl-draft-parse-msg-id-list-string (string)
   "Get msg-id list from STRING."
-  (let ((parsed (std11-parse-msg-ids-string string))
-	tokens msg-id msg-id-list)
-    (while parsed
-      (setq msg-id nil)
-      (when (eq (car (car parsed)) 'msg-id)
-	(setq tokens (cdr (car parsed)))
-	(while tokens
-	  (if (or (eq (car (car tokens)) 'atom)
-		  (eq (car (car tokens)) 'specials))
-	      (setq msg-id (concat msg-id (cdr (car tokens)))))
-	  (setq tokens (cdr tokens))))
-      (if msg-id (setq msg-id-list (cons (concat "<" msg-id ">")
-					 msg-id-list)))
-      (setq parsed (cdr parsed)))
+  (let (msg-id-list)
+    (dolist (parsed-id (std11-parse-msg-ids-string string))
+      (when (eq (car parsed-id) 'msg-id)
+	(setq msg-id-list (cons (std11-msg-id-string parsed-id)
+				msg-id-list))))
     (nreverse msg-id-list)))
 
 (defun wl-draft-parse-mailbox-list (field &optional remove-group-list)