diff options
author | Daiki Ueno <ueno@gnu.org> | 2015-12-04 05:15:59 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-12-04 05:15:59 +0000 |
commit | 97e4be833be6d336088c170d7a1bddda40c430a1 (patch) | |
tree | fcdacfbb55da0fa5ac206dfe1336c684bc416254 | |
parent | eaa1fd6dbff8346eb38485de5ebf0fbfacf374d9 (diff) | |
download | emacs-97e4be833be6d336088c170d7a1bddda40c430a1.tar.gz |
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.
-rw-r--r-- | lisp/gnus/qp.el | 3 |
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 |