Mercurial > emacs

comparison lisp/gnus/uudecode.el @ 90428:a8190f7e546e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 285-296) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: admin/FOR-RELEASE: Update refcard section. * gnus--rel--5.10 (patch 102-104) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-64
author Miles Bader <miles@gnu.org>
date Wed, 07 Jun 2006 18:05:10 +0000
parents c5406394f567 70b055c73c8c
children 95d0cdf160ea
comparison
equal deleted inserted replaced
90427:ddb25860d044 90428:a8190f7e546e
98 (make-temp-file "uu")) 98 (make-temp-file "uu"))
99 (expand-file-name 99 (expand-file-name
100 (make-temp-name "uu") 100 (make-temp-name "uu")
101 uudecode-temporary-file-directory)))) 101 uudecode-temporary-file-directory))))
102 (let ((cdir default-directory) 102 (let ((cdir default-directory)
103 default-process-coding-system) 103 (default-process-coding-system
104 (if (featurep 'xemacs)
105 ;; In XEmacs, `nil' is not a valid coding system.
106 '(binary . binary)
107 nil)))
104 (unwind-protect 108 (unwind-protect
105 (with-temp-buffer 109 (with-temp-buffer
106 (insert "begin 600 " (file-name-nondirectory tempfile) "\n") 110 (insert "begin 600 " (file-name-nondirectory tempfile) "\n")
107 (insert-buffer-substring cbuf firstline end) 111 (insert-buffer-substring cbuf firstline end)
108 (cd (file-name-directory tempfile)) 112 (cd (file-name-directory tempfile))