diff lisp/gnus/mm-util.el @ 96275:1730aeea7acf

* mm-util.el (mm-with-multibyte, mm-with-unibyte): Remove. * nnkiboze.el (nnkiboze-generate-group): Use explicit mm-disable-multibyte rather than mm-with-unibyte.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 25 Jun 2008 15:10:16 +0000
parents f42ef85caf91
children 512497325cb3
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el	Wed Jun 25 15:05:33 2008 +0000
+++ b/lisp/gnus/mm-util.el	Wed Jun 25 15:10:16 2008 +0000
@@ -1093,20 +1093,6 @@
 (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0)
 (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
 
-(defmacro mm-with-unibyte (&rest forms)
-  "Eval the FORMS with the default value of `enable-multibyte-characters' nil."
-  `(let (default-enable-multibyte-characters)
-     ,@forms))
-(put 'mm-with-unibyte 'lisp-indent-function 0)
-(put 'mm-with-unibyte 'edebug-form-spec '(body))
-
-(defmacro mm-with-multibyte (&rest forms)
-  "Eval the FORMS with the default value of `enable-multibyte-characters' t."
-  `(let ((default-enable-multibyte-characters t))
-     ,@forms))
-(put 'mm-with-multibyte 'lisp-indent-function 0)
-(put 'mm-with-multibyte 'edebug-form-spec '(body))
-
 (defun mm-find-charset-region (b e)
   "Return a list of Emacs charsets in the region B to E."
   (cond