Mercurial > hg > xemacs-beta
diff lisp/tm/tm-ew-e.el @ 167:85ec50267440 r20-3b10
Import from CVS: tag r20-3b10
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:45:46 +0200 |
| parents | 28f395d8dc7a |
| children |
line wrap: on
line diff
--- a/lisp/tm/tm-ew-e.el Mon Aug 13 09:44:44 2007 +0200 +++ b/lisp/tm/tm-ew-e.el Mon Aug 13 09:45:46 2007 +0200 @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Version: $Revision: 1.4 $ +;; Version: $Revision: 1.5 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of tm (Tools for MIME). @@ -35,7 +35,7 @@ ;;; (defconst tm-ew-e/RCS-ID - "$Id: tm-ew-e.el,v 1.4 1997/06/14 20:31:38 steve Exp $") + "$Id: tm-ew-e.el,v 1.5 1997/06/29 23:13:28 steve Exp $") (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID)) @@ -54,6 +54,7 @@ ) '(("X-Nsubject" . iso-2022-jp-2) ("Newsgroups" . nil) + ("Message-ID" . nil) (t . mime) )) "*Alist to specify field encoding method. @@ -293,7 +294,8 @@ string len) (if (null ret) (cond ((and (setq string (car rword)) - (<= (setq len (+ (length string) column)) 76) + (or (<= (setq len (+ (length string) column)) 76) + (<= column 1)) ) (setq rwl (cdr rwl)) )