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 (file)
--- 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 (file)
--- 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)