2000-08-23 Yuuichi Teranishi <teranisi@gohome.org>
authorokada <okada>
Wed, 23 Aug 2000 13:27:44 +0000 (13:27 +0000)
committerokada <okada>
Wed, 23 Aug 2000 13:27:44 +0000 (13:27 +0000)
* 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.

ChangeLog
eword-encode.el
mime-def.el
std11.el

index e0d3662..d49c5eb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,14 +1,31 @@
-2000-08-12     Kenichi OKADA   <okada@opaopa.org>
+2000-08-23  Kenichi OKADA <okada@opaopa.org>
+
+       * smtp.el (smtp-system-name): New variable.
+       (smtp-make-fqdn): Use `smtp-system-name' 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.
+
+\f
+2000-08-12  Kenichi OKADA   <okada@opaopa.org>
 
        * SLIM: Version 1.14.1 released.
        SLIM-TIPS: Update.
 
-2000-08-12     Kenichi OKADA   <okada@opaopa.org>
+2000-08-12  Kenichi OKADA   <okada@opaopa.org>
 
        * starttls.el (starttls-open-stream): Put `starttls-extra-args' on
        the last arg.
 
-2000-08-11     Kenichi OKADA   <okada@opaopa.org>
+2000-08-11  Kenichi OKADA   <okada@opaopa.org>
 
        * starttls.el (starttls-open-ssl-stream): New function.
        (starttls-open-stream): Move `starttls-extra-args'.
index 5735e04..e328ca7 100644 (file)
@@ -517,17 +517,26 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
                      )))
     dest))
 
+(defsubst eword-encode-address-to-rword-list (address)
+  (cond
+   ((eq (car address) 'mailbox)
+    (eword-encode-mailbox-to-rword-list address))
+   ((eq (car address) 'group)
+    (nconc
+     (eword-encode-phrase-to-rword-list (nth 1 address))
+     (list (list ":" nil nil))
+     (eword-encode-addresses-to-rword-list (nth 2 address))
+     (list (list ";" nil nil))))))
+
 (defsubst eword-encode-addresses-to-rword-list (addresses)
-  (let ((dest (eword-encode-mailbox-to-rword-list (car addresses))))
+  (let ((dest (eword-encode-address-to-rword-list (car addresses))))
     (if dest
        (while (setq addresses (cdr addresses))
          (setq dest
                (nconc dest
                       (list '("," nil nil))
                       ;; (list '(" " nil nil))
-                      (eword-encode-mailbox-to-rword-list (car addresses))
-                      ))
-         ))
+                      (eword-encode-address-to-rword-list (car addresses))))))
     dest))
 
 (defsubst eword-encode-msg-id-to-rword-list (msg-id)
index 807a131..24c8244 100644 (file)
@@ -36,7 +36,7 @@
   )
 
 (eval-and-compile
-  (defconst mime-library-product ["SLIM" (1 14 1) "\e$B>>ED=c\e(B"]
+  (defconst mime-library-product ["SLIM" (1 14 2) "\e$B>>ED=c\e(B"]
     "Product name, version number and code name of MIME-library package."))
 
 (defmacro mime-product-name (product)
index 982b895..dc7bde5 100644 (file)
--- a/std11.el
+++ b/std11.el
@@ -765,7 +765,7 @@ represents addr-spec of RFC 822."
   "Return string of address part from parsed ADDRESS of RFC 822."
   (cond ((eq (car address) 'group)
         (mapconcat (function std11-address-string)
-                   (car (cdr address))
+                   (nth 2 address)
                    ", ")
         )
        ((eq (car address) 'mailbox)