[Emacs-diffs] emacs/lisp/gnus qp.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/04 02:45:43

Modified files:
        lisp/gnus      : qp.el 

Log message:
        (quoted-printable-encode-string): Use mm-enable-multibyte, or
        mm-disable-multibyte, rather than default-enable-multibyte-characters.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/qp.el?cvsroot=emacs&r1=1.31&r2=1.32

Patches:
Index: qp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/qp.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- qp.el       5 Jan 2009 03:22:17 -0000       1.31
+++ qp.el       4 Sep 2009 02:45:43 -0000       1.32
@@ -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 <address@hidden>
 ;; Keywords: mail, extensions
@@ -154,11 +154,13 @@
 
 (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
+    (if (mm-multibyte-string-p string)
+       (mm-enable-multibyte)
+      (mm-disable-multibyte))
       (insert string)
       (quoted-printable-encode-region (point-min) (point-max))
-      (buffer-string))))
+    (buffer-string)))
 
 (provide 'qp)