From 8c99fbb2fa1c212afded4a2417737d8b9bdbed36 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 23 Aug 2000 13:27:44 +0000 Subject: [PATCH] 2000-08-23 Yuuichi Teranishi * 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 | 23 ++++++++++++++++++++--- eword-encode.el | 17 +++++++++++++---- mime-def.el | 2 +- std11.el | 2 +- 4 files changed, 35 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index e0d3662..d49c5eb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,14 +1,31 @@ -2000-08-12 Kenichi OKADA +2000-08-23 Kenichi OKADA + + * smtp.el (smtp-system-name): New variable. + (smtp-make-fqdn): Use `smtp-system-name' if non-nil. + +2000-08-23 Yuuichi Teranishi + + * 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 + + * mime-def.el (mime-library-product): Up. + + +2000-08-12 Kenichi OKADA * SLIM: Version 1.14.1 released. SLIM-TIPS: Update. -2000-08-12 Kenichi OKADA +2000-08-12 Kenichi OKADA * starttls.el (starttls-open-stream): Put `starttls-extra-args' on the last arg. -2000-08-11 Kenichi OKADA +2000-08-11 Kenichi OKADA * starttls.el (starttls-open-ssl-stream): New function. (starttls-open-stream): Move `starttls-extra-args'. diff --git a/eword-encode.el b/eword-encode.el index 5735e04..e328ca7 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -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) diff --git a/mime-def.el b/mime-def.el index 807a131..24c8244 100644 --- a/mime-def.el +++ b/mime-def.el @@ -36,7 +36,7 @@ ) (eval-and-compile - (defconst mime-library-product ["SLIM" (1 14 1) "松田純"] + (defconst mime-library-product ["SLIM" (1 14 2) "松田純"] "Product name, version number and code name of MIME-library package.")) (defmacro mime-product-name (product) diff --git a/std11.el b/std11.el index 982b895..dc7bde5 100644 --- 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) -- 1.7.10.4