From: teranisi <teranisi>
Date: Wed, 7 Feb 2001 06:45:29 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-parse-msg-id-list-string): Fix.
X-Git-Tag: wl-2_8-root^2~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1d7c8a8eeaa2e5e2b71b893ea47effd6b7c3ff89;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 23050bf..ef3532a 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-summary.el (wl-summary-save-view): Renamed from
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index ddc1e18..7c85068 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -802,20 +802,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)