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 137f625..e2eba98 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-12-04  Daiki Ueno  <ueno@gnu.org>
+
+       * 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  <yamaoka@jpl.org>
 
        * nnml.el (nnml-retrieve-groups): Remove.  See:

diff --git a/lisp/qp.el b/lisp/qp.el
index 6c48f0f..d7ed30d 100644 (file)
--- 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