From: teranisi <teranisi>
Date: Mon, 10 Sep 2001 11:28:07 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-std11-parse-addresses): Ignore trailing
X-Git-Tag: wl-2_7_4~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=95ee50934d47e5f0e153d171ce8174e56a164080;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-std11-parse-addresses): Ignore trailing
 spaces (Adviced by NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a42747a..a224bd9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-draft.el (wl-draft-std11-parse-addresses): Ignore trailing
+	spaces (Adviced by NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>).
+
 	* wl-address.el (wl-address-specials-regexp): Eliminated.
 	(wl-address-quote-specials): Rewrite.
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index f4d817d..34b12ad 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -827,6 +827,8 @@ to find out how to use this."
 		      )
 	    (setq dest (cons (car ret) dest))
 	    (setq lal (cdr ret)))
+	  (while (eq 'spaces (car (car lal)))
+	    (setq lal (cdr lal)))
 	  (if lal (error "Error while parsing address"))
 	  (nreverse dest)))))