X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tm-ew-e.el;h=e51b5c96a2ca865f5ebd06e952bfdfc9a00b0abf;hb=5822d3f1822ae0e279af4b76d3990b201caa598b;hp=f500554a422271c7f7e87d456bd71f7add4a1036;hpb=80871efc12c5b65a0780f0084c087076eb3bcbc8;p=elisp%2Ftm.git

diff --git a/tm-ew-e.el b/tm-ew-e.el
index f500554..e51b5c9 100644
--- a/tm-ew-e.el
+++ b/tm-ew-e.el
@@ -6,7 +6,7 @@
 ;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Revision: 7.18 $
+;;; Version: $Revision: 7.20 $
 ;;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -36,7 +36,7 @@
 ;;;
 
 (defconst tm-ew-e/RCS-ID
-  "$Id: tm-ew-e.el,v 7.18 1996/05/09 18:08:47 morioka Exp $")
+  "$Id: tm-ew-e.el,v 7.20 1996/06/03 14:33:35 morioka Exp $")
 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
 
 
@@ -317,8 +317,14 @@
     ))
 
 (defun tm-eword::encode-rwl (column rwl &optional mode)
-  (let (ret dest ps special str)
+  (let (ret dest ps special str ew-f pew-f)
     (while rwl
+      (setq ew-f (nth 2 (car rwl)))
+      (if (and pew-f ew-f)
+	  (setq rwl (cons '(" ") rwl)
+		pew-f nil)
+	(setq pew-f ew-f)
+	)
       (setq ret (tm-eword::encode-string-1 column rwl mode))
       (setq str (car ret))
       (if (eq (elt str 0) ?\n)
@@ -483,7 +489,7 @@
 					 "bcc" "resent-bcc" "dcc")
 				       )
 			       (car (tm-eword::encode-address-list
-				     (+ (length field-name) 1) field-body))
+				     (+ (length field-name) 2) field-body))
 			       )
 			      (t
 			       (catch 'tag