projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tm 7.66.1.
[elisp/tm.git]
/
tm-ew-e.el
diff --git
a/tm-ew-e.el
b/tm-ew-e.el
index
f500554
..
e51b5c9
100644
(file)
--- 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>
;;; 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).
;;; 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
;;;
(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))
(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)
))
(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
(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)
(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
"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
)
(t
(catch 'tag