(gnus-cite-parse): Don't ignore case when finding ">From ".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 525a8d5..ae97e67 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index fb44773..572327f 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -748,7 +748,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.