From: teranisi <teranisi>
Date: Mon, 28 Aug 2000 01:03:58 +0000 (+0000)
Subject: * eword-encode.el (eword-encode-mailboxes-to-rword-list): New inline function.
X-Git-Tag: slim-1_14_2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b301fe17ac91aaaabb77c75ba021d31632e5d723;p=elisp%2Fflim.git

* eword-encode.el (eword-encode-mailboxes-to-rword-list): New inline function.
(eword-encode-address-to-rword-list): Ditto.
(eword-encode-addresses-to-rword-list):
Use `eword-encode-address-to-rword-list' instead of
`eword-encode-mailbox-to-rword-list'.

* std11.el (std11-address-string): Fix for group list.
---

diff --git a/ChangeLog b/ChangeLog
index 460905d..d29e805 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,21 +1,19 @@
-2000-08-24  Yuuichi Teranishi  <teranisi@gohome.org>
+2000-08-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
-	* eword-encode.el (eword-encode-address-to-rword-list): Define as
-	function.
-	(eword-encode-addresses-to-rword-list): Ditto.
+	* eword-encode.el (eword-encode-mailboxes-to-rword-list):
+	New inline function.
+	(eword-encode-address-to-rword-list): Ditto.
+	(eword-encode-addresses-to-rword-list):
+	Use `eword-encode-address-to-rword-list' instead of
+	`eword-encode-mailbox-to-rword-list'.
+
+	* std11.el (std11-address-string): Fix for group list.
 
 2000-08-23  Kenichi OKADA <okada@opaopa.org>
 
 	* smtp.el (smtp-fqdn): New variable.
 	(smtp-make-fqdn): Use `smtp-fqdn' if non-nil.
 
-2000-08-23  Yuuichi Teranishi <teranisi@gohome.org>
-
-	* eword-encode.el (eword-encode-address-to-rword-list): New function.
-	(eword-encode-addresses-to-rword-list):
-	Use eword-encode-address-to-rword-list.
-	* std11.el (std11-address-string): Fix.
-
 2000-08-23  Kenichi OKADA <okada@opaopa.org>
 
 	* mime-def.el (mime-library-product): Up.
diff --git a/eword-encode.el b/eword-encode.el
index fb988d0..f7111c1 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -517,7 +517,18 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 		      )))
     dest))
 
-(defun eword-encode-address-to-rword-list (address)
+(defsubst eword-encode-mailboxes-to-rword-list (mboxes)
+  (let ((dest (eword-encode-mailbox-to-rword-list (car mboxes))))
+    (if dest
+	(while (setq mboxes (cdr mboxes))
+	  (setq dest
+		(nconc dest
+		       (list '("," nil nil))
+		       (eword-encode-mailbox-to-rword-list
+			(car mboxes))))))
+    dest))
+
+(defsubst eword-encode-address-to-rword-list (address)
   (cond
    ((eq (car address) 'mailbox)
     (eword-encode-mailbox-to-rword-list address))
@@ -525,10 +536,10 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
     (nconc
      (eword-encode-phrase-to-rword-list (nth 1 address))
      (list (list ":" nil nil))
-     (eword-encode-addresses-to-rword-list (nth 2 address))
+     (eword-encode-mailboxes-to-rword-list (nth 2 address))
      (list (list ";" nil nil))))))
 
-(defun eword-encode-addresses-to-rword-list (addresses)
+(defsubst eword-encode-addresses-to-rword-list (addresses)
   (let ((dest (eword-encode-address-to-rword-list (car addresses))))
     (if dest
 	(while (setq addresses (cdr addresses))