From: yamaoka <yamaoka>
Date: Wed, 23 Jun 2004 14:26:47 +0000 (+0000)
Subject: Synch to No Gnus 200406231423.
X-Git-Tag: t-gnus-6_17_4-quimby-~848
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8b7d169301e9171c23e88ecdd2b8b18a98792bd0;p=elisp%2Fgnus.git-

Synch to No Gnus 200406231423.
---

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  <yamaoka@jpl.org>
 
+	* gnus-cite.el (gnus-cite-parse): Don't ignore case when finding
+	">From ".  Thanks to Reiner Steib <Reiner.Steib@gmx.de>.
+
+2004-06-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
 	* gnus-cite.el (gnus-cite-ignore-quoted-from): New user option.
 	(gnus-cite-parse): Ignore quoted envelope From_.  Suggested by
 	Karl Chen <quarl@nospam.quarl.org>.
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.