From 3ef8a95dc3b5967e09122227391f0b13f35786d4 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 24 Aug 2000 00:22:52 +0000 Subject: [PATCH] * eword-encode.el (eword-encode-address-to-rword-list): Define as function. (eword-encode-addresses-to-rword-list): Ditto. --- ChangeLog | 6 ++++++ eword-encode.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index d42056b..460905d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2000-08-24 Yuuichi Teranishi + + * eword-encode.el (eword-encode-address-to-rword-list): Define as + function. + (eword-encode-addresses-to-rword-list): Ditto. + 2000-08-23 Kenichi OKADA * smtp.el (smtp-fqdn): New variable. diff --git a/eword-encode.el b/eword-encode.el index e328ca7..fb988d0 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -517,7 +517,7 @@ MODE is allows `text', `comment', `phrase' or nil. Default value is ))) dest)) -(defsubst eword-encode-address-to-rword-list (address) +(defun eword-encode-address-to-rword-list (address) (cond ((eq (car address) 'mailbox) (eword-encode-mailbox-to-rword-list address)) @@ -528,7 +528,7 @@ MODE is allows `text', `comment', `phrase' or nil. Default value is (eword-encode-addresses-to-rword-list (nth 2 address)) (list (list ";" nil nil)))))) -(defsubst eword-encode-addresses-to-rword-list (addresses) +(defun eword-encode-addresses-to-rword-list (addresses) (let ((dest (eword-encode-address-to-rword-list (car addresses)))) (if dest (while (setq addresses (cdr addresses)) -- 1.7.10.4