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