From 407a4772977cf747232c966a9c8b0ab433ed35f9 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 19 Nov 1996 07:08:47 +0000 Subject: [PATCH] (std11-strip-quoted-string): fixed. --- std11.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/std11.el b/std11.el index 7eb7931..b331657 100644 --- a/std11.el +++ b/std11.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Keywords: mail, news, RFC 822, STD 11 -;; Version: $Id: std11.el,v 0.34 1996-10-01 13:33:32 morioka Exp $ +;; Version: $Id: std11.el,v 0.35 1996-11-19 07:08:47 morioka Exp $ ;; This file is part of MU (Message Utilities). @@ -231,14 +231,14 @@ If BOUNDARY is not nil, it is used as message header separator. (defun std11-strip-quoted-string (string) "Strip quoted-string STRING. [std11.el]" - (std11-strip-quoted-pair - (let ((max (1- (length string)))) - (if (and (eq (aref string 0) ?\") - (eq (aref string max) ?\") - ) - (substring string 1 max) - string) - ))) + (let ((len (length string))) + (or (and (>= len 2) + (let ((max (1- len))) + (and (eq (aref string 0) ?\") + (eq (aref string max) ?\") + (std11-strip-quoted-pair (substring string 1 max)) + ))) + string))) ;;; @ composer -- 1.7.10.4