diff options
author | Glenn Morris <rgm@gnu.org> | 2009-09-04 02:45:43 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-09-04 02:45:43 +0000 |
commit | 9c1cf6317b979165675307b3b73e5dad9e617b8a (patch) | |
tree | 91ce303022d058af38f0ce407eb4f85505b51502 /lisp/gnus | |
parent | 3ef49c53697b30c29e01e3ea045daf26f1191cef (diff) |
(quoted-printable-encode-string): Use mm-enable-multibyte, or
mm-disable-multibyte, rather than default-enable-multibyte-characters.
Diffstat (limited to 'lisp/gnus')
-rw-r--r-- | lisp/gnus/qp.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el index d8d6d5d552e..aeec743ce55 100644 --- a/lisp/gnus/qp.el +++ b/lisp/gnus/qp.el @@ -1,7 +1,7 @@ ;;; qp.el --- Quoted-Printable functions -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008, 2009 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: mail, extensions @@ -154,11 +154,13 @@ encode lines starting with \"From\"." (defun quoted-printable-encode-string (string) "Encode the STRING as quoted-printable and return the result." - (let ((default-enable-multibyte-characters (mm-multibyte-string-p string))) - (with-temp-buffer - (insert string) - (quoted-printable-encode-region (point-min) (point-max)) - (buffer-string)))) + (with-temp-buffer + (if (mm-multibyte-string-p string) + (mm-enable-multibyte) + (mm-disable-multibyte)) + (insert string) + (quoted-printable-encode-region (point-min) (point-max)) + (buffer-string))) (provide 'qp) |