From: morioka <morioka>
Date: Sun, 13 Jul 1997 19:30:26 +0000 (+0000)
Subject: (eword-phrase-route-addr-to-rwl): Use function
X-Git-Tag: semi-0_97~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58844e68d41082e7c4002759e0697a8a46618d5d;p=elisp%2Fsemi.git

(eword-phrase-route-addr-to-rwl): Use function
`eword-addr-seq-to-rwl'.
---

diff --git a/eword-encode.el b/eword-encode.el
index bbd2c0f..0739c85 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 0.29 $
+;; Version: $Revision: 0.30 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -36,7 +36,7 @@
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.29 1997-07-13 18:15:32 morioka Exp $")
+  "$Id: eword-encode.el,v 0.30 1997-07-13 19:30:26 morioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
@@ -494,7 +494,10 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 	  )
 	(append
 	 dest
-	 (list (list (concat "<" (std11-addr-to-string route) ">") nil nil))
+	 (eword-addr-seq-to-rwl
+	  (append '((specials . "<"))
+		  route
+		  '((specials . ">"))))
 	 ))))
 
 (defun eword-addr-spec-to-rwl (addr-spec)