From: morioka <morioka>
Date: Tue, 19 Nov 1996 07:08:47 +0000 (+0000)
Subject: (std11-strip-quoted-string): fixed.
X-Git-Tag: XEmacs-20_3-b6~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fe044c5f0d627cf43ab20b25882c10dc9009214f;p=elisp%2Fapel.git

(std11-strip-quoted-string): fixed.
---

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 <morioka@jaist.ac.jp>
 ;; 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