lisp/gnus/qp.el: Don't replace "from " at bol

* lisp/gnus/qp.el (quoted-printable-encode-region): Bind `case-fold-search'
to nil when looking for "^From ".  Problem reported by Simon Josefsson.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el
index 6c48f0fc9a4..d7ed30d3749 100644
--- a/lisp/gnus/qp.el
+++ b/lisp/gnus/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