Synch to No Gnus 200410010354.
[elisp/gnus.git-] / lisp / gnus-cite.el
index 7e72ab0..a8c13e3 100644 (file)
@@ -279,6 +279,7 @@ This should make it easier to see who wrote what."
 
 (defcustom gnus-cite-blank-line-after-header t
   "If non-nil, put a blank line between the citation header and the button."
+  :version "21.4"
   :group 'gnus-cite
   :type 'boolean)
 
@@ -290,6 +291,7 @@ This should make it easier to see who wrote what."
 If an article has more pages below the one you are looking at, but
 nothing on those pages is a word of at least three letters that is not
 in a boring face, then the pages will be skipped."
+  :version "21.4"
   :type '(repeat face)
   :group 'gnus-article-hiding)
 
@@ -749,7 +751,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.