From efd0cbf2b8c9987e34fc73c3469d64fb67b54a00 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 7 Feb 2001 06:42:59 +0000 Subject: [PATCH] 2001-02-07 Yuuichi Teranishi * wl-draft.el (wl-draft-parse-msg-id-list-string): Fix. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 19 +++++-------------- 2 files changed, 9 insertions(+), 14 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 0cb8e55..0d802c3 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-02-07 Yuuichi Teranishi + + * wl-draft.el (wl-draft-parse-msg-id-list-string): Fix. + 2001-02-06 Yuuichi Teranishi * tm-wl.el (wl-draft-preview-message): Same as last change. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index da07072..4fd94f1 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) -- 1.7.10.4