From a6f7c85ba65bc0b9e82679d8ca6d878944ef08a6 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Tue, 31 Oct 2000 12:59:16 +0000 Subject: [PATCH] 2000-10-31 Katsumi Yamaoka * gnus-sum.el (gnus-summary-insert-line): Work with quoted double-quote charcters. (gnus-summary-prepare-threads): Ditto. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-sum.el | 10 ++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8a4825bab..c5ec9f0fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2000-10-31 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-insert-line): Work with quoted + double-quote charcters. + (gnus-summary-prepare-threads): Ditto. + 2000-10-31 08:36:03 ShengHuo ZHU * gnus-art.el (gnus-mime-display-single): Forward line -1. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index f001bcb83..075eba983 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -2664,9 +2664,8 @@ buffer that was in action when the last article was fetched." (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 @@ -4033,9 +4032,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 -- 2.25.1