X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fyenc.el;h=b0f7b4115b23b81320ddb1bfeb77218dd37a2ee5;hb=51f52cc4d7920e4a8d2a9d682fd71ed3d6a483af;hp=be972ac6425d534fdcfc1d6325f456d80731f6d7;hpb=8b5af94e55ef83ee46b42d32d92fa1ce95dcacf5;p=gnus diff --git a/lisp/yenc.el b/lisp/yenc.el index be972ac64..b0f7b4115 100644 --- a/lisp/yenc.el +++ b/lisp/yenc.el @@ -1,6 +1,6 @@ ;;; yenc.el --- elisp native yenc decoder -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Jesper Harder ;; Keywords: yenc news @@ -89,8 +89,8 @@ (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) - (setq work-buffer (generate-new-buffer " *yenc-work*"))) + (letf (((default-value 'enable-multibyte-characters) nil)) + (setq work-buffer (generate-new-buffer " *yenc-work*"))) (while (< first last) (setq char (char-after first)) (cond ((or (eq char ?\r)