From: yamaoka <yamaoka>
Date: Tue, 31 Oct 2000 06:53:32 +0000 (+0000)
Subject: (gnus-summary-insert-line): Work with quoted double-quotes.
X-Git-Tag: t-gnus-6_14_5-06~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a6004b865bac2b6373900f9eb5bbb6318af35623;p=elisp%2Fgnus.git-

(gnus-summary-insert-line): Work with quoted double-quotes.
(gnus-summary-prepare-threads): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index d7d54b3..a0760a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-31  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-sum.el (gnus-summary-insert-line): Work with quoted
+	double-quote charcters.
+	(gnus-summary-prepare-threads): Ditto.
+
 2000-10-22  Katsuhiro Hermit Endo <hermit@tomato.saino.ne.jp>
 
 	* texi/gnus-ja.texi (Changing Servers): Fix typo.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index d5e8cc1..0fd7048 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2662,9 +2662,8 @@ marks of articles."
 	  (cond
 	   ((string-match "<[^>]+> *$" gnus-tmp-from)
 	    (let ((beg (match-beginning 0)))
-	      (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from)
-		       (substring gnus-tmp-from (1+ (match-beginning 0))
-				  (1- (match-end 0))))
+	      (or (and (string-match "^\".+\"" gnus-tmp-from)
+		       (substring gnus-tmp-from 1 (1- (match-end 0))))
 		  (substring gnus-tmp-from 0 beg))))
 	   ((string-match "(.+)" gnus-tmp-from)
 	    (substring gnus-tmp-from
@@ -4035,9 +4034,8 @@ or a straight list of headers."
 	     (cond
 	      ((string-match "<[^>]+> *$" gnus-tmp-from)
 	       (setq beg-match (match-beginning 0))
-	       (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from)
-			(substring gnus-tmp-from (1+ (match-beginning 0))
-				   (1- (match-end 0))))
+	       (or (and (string-match "^\".+\"" gnus-tmp-from)
+			(substring gnus-tmp-from 1 (1- (match-end 0))))
 		   (substring gnus-tmp-from 0 beg-match)))
 	      ((string-match "(.+)" gnus-tmp-from)
 	       (substring gnus-tmp-from