From: morioka <morioka>
Date: Thu, 26 Jun 1997 09:12:48 +0000 (+0000)
Subject: (tm-eword::encode-string-1): avoid infinite loop caused by long
X-Git-Tag: semi-0_96~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e668f02a1b01b781a226b3bfc884beba89118c7f;p=elisp%2Fsemi.git

(tm-eword::encode-string-1): avoid infinite loop caused by long
non-encoded-word element.
---

diff --git a/eword-encode.el b/eword-encode.el
index 1609998..d83e260 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.23 $
+;; Version: $Revision: 0.24 $
 ;; 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.23 1997-06-21 15:15:31 morioka Exp $")
+  "$Id: eword-encode.el,v 0.24 1997-06-26 09:12:48 morioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
@@ -280,7 +280,8 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 	 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))
 	       )