X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fyenc.el;h=46f30399b66b026e48469b22241919b2ca1932cd;hb=9679f7609e3e122e5a59a46a8379644ef2f06dcb;hp=8cb522c4ec707a4a4b3d3c45c56a430e8de1e90e;hpb=f3439c4a8215fce6d732faf167b2284ce09c029b;p=gnus diff --git a/lisp/yenc.el b/lisp/yenc.el index 8cb522c4e..46f30399b 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, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 2002-2012 Free Software Foundation, Inc. ;; Author: Jesper Harder ;; Keywords: yenc news @@ -89,9 +89,9 @@ (when (re-search-forward "^=yend.*$" end t) (setq last (match-beginning 0)) (setq footer-alist (yenc-parse-line (match-string 0))) - (with-current-buffer - (setq work-buffer (generate-new-buffer " *yenc-work*")) - (set-buffer-multibyte nil)) + (setq work-buffer (generate-new-buffer " *yenc-work*")) + (unless (featurep 'xemacs) + (with-current-buffer work-buffer (set-buffer-multibyte nil))) (while (< first last) (setq char (char-after first)) (cond ((or (eq char ?\r) @@ -136,5 +136,4 @@ (provide 'yenc) -;; arch-tag: 74df17e8-6fa8-4071-9f7d-54d548d79d9a ;;; yenc.el ends here