From fe1f915f8e9de528cf930599241f1c70b72848e7 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 23 Jul 1997 02:19:39 +0000 Subject: [PATCH] (eword-analyze-encoded-word): cdr of return value must not nil (cf.[tm-ja:2496]) --- eword-decode.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/eword-decode.el b/eword-decode.el index 9941117..30df1a8 100644 --- a/eword-decode.el +++ b/eword-decode.el @@ -10,7 +10,7 @@ ;; Renamed: 1993/06/03 to tiny-mime.el ;; Renamed: 1995/10/03 from tiny-mime.el (split off encoder) ;; Renamed: 1997/02/22 from tm-ew-d.el -;; Version: $Revision: 0.16 $ +;; Version: $Revision: 0.17 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -41,7 +41,7 @@ ;;; (defconst eword-decode-RCS-ID - "$Id: eword-decode.el,v 0.16 1997-06-18 13:26:28 morioka Exp $") + "$Id: eword-decode.el,v 0.17 1997-07-23 02:19:39 morioka Exp $") (defconst eword-decode-version (get-version-string eword-decode-RCS-ID)) @@ -345,10 +345,7 @@ It is max size of eword-lexical-analyze-cache - 1.") must-unfold)) string (substring string end)) ) - (cons (cons 'atom dest) - (if (string= string "") - nil - string)) + (cons (cons 'atom dest) string) ))) (defun eword-lexical-analyze-internal (string must-unfold) -- 1.7.10.4