From a6004b865bac2b6373900f9eb5bbb6318af35623 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 31 Oct 2000 06:53:32 +0000 Subject: [PATCH] (gnus-summary-insert-line): Work with quoted double-quotes. (gnus-summary-prepare-threads): Ditto. --- ChangeLog | 6 ++++++ lisp/gnus-sum.el | 10 ++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index d7d54b3..a0760a5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2000-10-31 Katsumi Yamaoka + + * 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 * 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 -- 1.7.10.4