(mail-source-fetch-imap): Search for ^From case sensitively.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c965df..985aa4f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-24  Harald Meland <harald.meland@usit.uio.no>  (tiny change)
+
+       * mail-source.el (mail-source-fetch-imap): Search for ^From case
+       sensitively.
+
 2005-01-21  Derek Atkins <warlord@MIT.EDU>  (tiny change)
 
        * pgg-pgp.el (pgg-pgp-decrypt-region): Use passphrase cache.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index b40163c..d7acc14 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -1,5 +1,5 @@
 ;;; mail-source.el --- functions for fetching mail
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -1017,7 +1017,8 @@ This only works when `display-time' is enabled."
                  (insert "From imap " (current-time-string) "\n")
                  (save-excursion
                    (insert str "\n\n"))
-                 (while (re-search-forward "^From " nil t)
+                 (while (let ((case-fold-search nil))
+                          (re-search-forward "^From " nil t))
                    (replace-match ">From "))
                  (goto-char (point-max))))
              (nnheader-ms-strip-cr))