From 8b7d169301e9171c23e88ecdd2b8b18a98792bd0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Jun 2004 14:26:47 +0000 Subject: [PATCH] Synch to No Gnus 200406231423. --- lisp/ChangeLog | 5 +++++ lisp/gnus-cite.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ec0dc0..6fd6cfb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2004-06-23 Katsumi Yamaoka + * gnus-cite.el (gnus-cite-parse): Don't ignore case when finding + ">From ". Thanks to Reiner Steib . + +2004-06-23 Katsumi Yamaoka + * gnus-cite.el (gnus-cite-ignore-quoted-from): New user option. (gnus-cite-parse): Ignore quoted envelope From_. Suggested by Karl Chen . diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 7e72ab0..bcb000c 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -749,7 +749,10 @@ See also the documentation for `gnus-article-highlight-citation'." (setq end (+ begin gnus-cite-max-prefix))) ;; Ignore quoted envelope From_. (when (and gnus-cite-ignore-quoted-from - (looking-at ">from ")) + (prog2 + (setq case-fold-search nil) + (looking-at ">From ") + (setq case-fold-search t))) (setq end (1+ begin))) (while (re-search-forward prefix-regexp (1- end) t) ;; Each prefix. -- 1.7.10.4