[Emacs-diffs] emacs/lisp/gnus ChangeLog mm-util.el yenc.el

[Glenn Morris]

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

Modified files:
        lisp/gnus      : ChangeLog mm-util.el yenc.el 

Log message:
        Use default-value rather than default-enable-multibyte-characters.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.825&r2=1.826
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mm-util.el?cvsroot=emacs&r1=1.84&r2=1.85
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/yenc.el?cvsroot=emacs&r1=1.12&r2=1.13

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.825
retrieving revision 1.826
diff -u -b -r1.825 -r1.826
--- ChangeLog   3 Sep 2009 07:26:31 -0000       1.825
+++ ChangeLog   4 Sep 2009 02:47:26 -0000       1.826
@@ -1,3 +1,14 @@
+2009-09-04  Glenn Morris  <address@hidden>
+
+       * qp.el (quoted-printable-encode-string): Use mm-enable-multibyte, or
+       mm-disable-multibyte, rather than default-enable-multibyte-characters.
+       * utf7.el (utf7-encode, utf7-decode): Use mm-with-multibyte-buffer, or
+       mm-with-unibyte-buffer, rather than default-enable-multibyte-characters.
+       * mm-util.el (mm-with-unibyte-current-buffer)
+       (mm-find-buffer-file-coding-system):
+       * yenc.el (yenc-decode-region): Use default-value rather than
+       default-enable-multibyte-characters.
+
 2009-09-03  Glenn Morris  <address@hidden>
 
        * mm-util.el (mm-emacs-mule, mm-default-multibyte-p):

Index: mm-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/mm-util.el,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -b -r1.84 -r1.85
--- mm-util.el  3 Sep 2009 07:26:32 -0000       1.84
+++ mm-util.el  4 Sep 2009 02:47:27 -0000       1.85
@@ -1227,7 +1227,7 @@
 
 (defmacro mm-with-unibyte-current-buffer (&rest forms)
   "Evaluate FORMS with current buffer temporarily made unibyte.
-Also bind `default-enable-multibyte-characters' to nil.
+Also bind the default-value of `enable-multibyte-characters' to nil.
 Equivalent to `progn' in XEmacs
 
 NOTE: Use this macro with caution in multibyte buffers (it is not
@@ -1242,12 +1242,12 @@
         (let ((,multibyte enable-multibyte-characters)
               (,buffer (current-buffer)))
           (unwind-protect
-              (let (default-enable-multibyte-characters)
+              (letf (((default-value 'enable-multibyte-characters) nil))
                 (set-buffer-multibyte nil)
                 ,@forms)
             (set-buffer ,buffer)
             (set-buffer-multibyte ,multibyte)))
-       (let (default-enable-multibyte-characters)
+       (letf (((default-value 'enable-multibyte-characters) nil))
         ,@forms))))
 (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0)
 (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
@@ -1590,7 +1590,7 @@
                            filename))
                    (mm-decompress-buffer filename nil t))))
       (when decomp
-       (set-buffer (let (default-enable-multibyte-characters)
+       (set-buffer (letf (((default-value 'enable-multibyte-characters) nil))
                      (generate-new-buffer " *temp*")))
        (insert decomp)
        (setq filename (file-name-sans-extension filename)))

Index: yenc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/yenc.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- yenc.el     5 Jan 2009 03:22:20 -0000       1.12
+++ yenc.el     4 Sep 2009 02:47:27 -0000       1.13
@@ -89,7 +89,7 @@
              (when (re-search-forward "^=yend.*$" end t)
                (setq last (match-beginning 0))
                (setq footer-alist (yenc-parse-line (match-string 0)))
-               (let (default-enable-multibyte-characters)
+               (letf (((default-value 'enable-multibyte-characters) nil))
                  (setq work-buffer (generate-new-buffer " *yenc-work*")))
                (while (< first last)
                  (setq char (char-after first))