Mercurial > emacs

comparison lisp/gnus/uudecode.el @ 71262:70b055c73c8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 103-104) - Update from CVS Revision: emacs@sv.gnu.org/emacs--devo--0--patch-295
author Miles Bader <miles@gnu.org>
date Wed, 07 Jun 2006 16:39:16 +0000
parents 1077b8039c32
children caf8e7cf2b54 a8190f7e546e
comparison
equal deleted inserted replaced
71261:c6e18badb0a7 71262:70b055c73c8c
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))