* 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-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'.
)))
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)
)
(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)
"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)