From: Daiki Ueno Date: Fri, 4 Dec 2015 04:36:31 +0000 (+0900) Subject: qp.el: Don't replace "from " at bol X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=6aa54ac28a20311bdd9655fbecdcbe4bdcea32c1 qp.el: Don't replace "from " at bol * qp.el (quoted-printable-encode-region): Bind `case-fold-search' to nil when looking for "^From ". Problem reported by Simon Josefsson. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 137f625d1..e2eba9824 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-12-04 Daiki Ueno + + * qp.el (quoted-printable-encode-region): Bind `case-fold-search' to + nil when looking for "^From ". Problem reported by Simon Josefsson. + 2015-11-25 Katsumi Yamaoka * nnml.el (nnml-retrieve-groups): Remove. See: diff --git a/lisp/qp.el b/lisp/qp.el index 6c48f0fc9..d7ed30d37 100644 --- a/lisp/qp.el +++ b/lisp/qp.el @@ -143,7 +143,8 @@ encode lines starting with \"From\"." (and (boundp 'mm-use-ultra-safe-encoding) mm-use-ultra-safe-encoding))) (when (or fold mm-use-ultra-safe-encoding) - (let ((tab-width 1)) ; HTAB is one character. + (let ((tab-width 1) ; HTAB is one character. + (case-fold-search nil)) (goto-char (point-min)) (while (not (eobp)) ;; In ultra-safe mode, encode "From " at the beginning