`tm-eword::addr-spec-to-rwl' -> `eword-addr-spec-to-rwl'.

[elisp/semi.git] / eword-encode.el

diff --git a/eword-encode.el b/eword-encode.el
index 80e8e87..1f376ff 100644 (file)
--- 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.25 $
+;; Version: $Revision: 0.26 $
 ;; 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.25 1997-06-26 09:21:38 morioka Exp $")
+  "$Id: eword-encode.el,v 0.26 1997-07-13 16:32:21 morioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
@@ -455,7 +455,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
         (list (list (concat "<" (std11-addr-to-string route) ">") nil nil))
         ))))
 
-(defun tm-eword::addr-spec-to-rwl (addr-spec)
+(defun eword-addr-spec-to-rwl (addr-spec)
   (if (eq (car addr-spec) 'addr-spec)
       (list (list (std11-addr-to-string (cdr addr-spec)) nil nil))
     ))
@@ -465,7 +465,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
        (comment (nth 2 mbox))
        dest)
     (setq dest (or (tm-eword::phrase-route-addr-to-rwl addr)
-                  (tm-eword::addr-spec-to-rwl addr)
+                  (eword-addr-spec-to-rwl addr)
                   ))
     (if comment
        (setq dest