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

(gnus-summary-prepare-threads): Ditto.

diff --git a/ChangeLog b/ChangeLog
index d7d54b3..a0760a5 100644 (file)
--- 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 (file)
--- 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