From 77e2d2b3eb1a124a07120fcb9e1b1923755d899c Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 6 Feb 1998 00:39:23 +0000 Subject: [PATCH] (mime-edit-normalize-body): Must not ignore case to search "From " in beginning of line. --- mime-edit.el | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index af5f9d3..439707a 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.99 $ +;; Version: $Revision: 0.100 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -122,7 +122,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.99 1997-11-27 05:28:20 morioka Exp $") + "$Id: mime-edit.el,v 0.100 1998-02-06 00:39:23 morioka Exp $") (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID)) @@ -2021,18 +2021,19 @@ Content-Transfer-Encoding: 7bit (save-restriction (narrow-to-region beg (mime-edit-content-end)) (goto-char beg) - (if (re-search-forward "^From " nil t) - (unless encoding - (if (memq charset '(iso-2022-jp - iso-2022-jp-2 - iso-2022-int-1 - x-ctext)) - (while (progn - (replace-match "\e(BFrom ") - (re-search-forward "^From " nil t) - )) - (setq encoding "quoted-printable") - )))) + (let (case-fold-search) + (if (re-search-forward "^From " nil t) + (unless encoding + (if (memq charset '(iso-2022-jp + iso-2022-jp-2 + iso-2022-int-1 + x-ctext)) + (while (progn + (replace-match "\e(BFrom ") + (re-search-forward "^From " nil t) + )) + (setq encoding "quoted-printable") + ))))) ;; canonicalize line break code (or (member encoding '(nil "7bit" "8bit" "quoted-printable")) (save-restriction -- 1.7.10.4