From c9330935597c0ad76aab3ca57713a609ba423bed Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 24 Jan 2005 11:11:20 +0000 Subject: [PATCH] Synch to No Gnus 200501240955. --- lisp/ChangeLog | 5 +++++ lisp/mail-source.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 561395b..e40f4b4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-01-24 Harald Meland (tiny change) + + * mail-source.el (mail-source-fetch-imap): Search for ^From case + sensitively. + 2005-01-21 Derek Atkins (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 201426b..a4d754b 100644 --- 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 @@ -1025,7 +1025,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)) -- 1.7.10.4