comparison lisp/gnus/uudecode.el @ 75555:d276dce1561f

Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 197-199) - Merge from emacs--devo--0 - Update from CVS 2007-01-28 Andreas Seltenreich <[e-mail]> * lisp/gnus/nnslashdot.el (nnslashdot-request-article): Update end-of-article regexp. 2007-01-24 Katsumi Yamaoka <[e-mail]> * lisp/gnus/uudecode.el (uudecode-string-to-multibyte): New function emulating string-to-multibyte. (uudecode-decode-region-internal): Use it. 2007-01-28 Andreas Seltenreich <[e-mail]> * man/gnus.texi (Batching Agents): Fix example. Reported by Tassilo Horn <[e-mail]>. Revision: [e-mail]/emacs--devo--0--patch-621

75554:26b46f8828ba

	      (delete-region start end)
	      (let (format-alist)
		(insert-file-contents-literally tempfile)))
	  (message "Can not uudecode")))
      (ignore-errors (or file-name (delete-file tempfile))))))

;;;###autoload
(defun uudecode-decode-region-internal (start end &optional file-name)
  "Uudecode region between START and END without using an external program.
If FILE-NAME is non-nil, save the result to FILE-NAME."

	      (with-temp-file file-name
		(insert (apply 'concat (nreverse result)))))
	  (or (markerp end) (setq end (set-marker (make-marker) end)))
	  (goto-char start)
	  (if enable-multibyte-characters
	      (mapc #'(lambda (x) (insert (string-to-multibyte x)))
		    (nreverse result))
	    (insert (apply 'concat (nreverse result))))
	  (delete-region (point) end))))))

;;;###autoload

75555:d276dce1561f

	      (delete-region start end)
	      (let (format-alist)
		(insert-file-contents-literally tempfile)))
	  (message "Can not uudecode")))
      (ignore-errors (or file-name (delete-file tempfile))))))

(eval-and-compile
  (defalias 'uudecode-string-to-multibyte
    (cond
     ((featurep 'xemacs)
      'identity)
     ((fboundp 'string-to-multibyte)
      'string-to-multibyte)
     (t
      (lambda (string)
	"Return a multibyte string with the same individual chars as string."
	(mapconcat
	 (lambda (ch) (string-as-multibyte (char-to-string ch)))
	 string ""))))))

;;;###autoload
(defun uudecode-decode-region-internal (start end &optional file-name)
  "Uudecode region between START and END without using an external program.
If FILE-NAME is non-nil, save the result to FILE-NAME."

	      (with-temp-file file-name
		(insert (apply 'concat (nreverse result)))))
	  (or (markerp end) (setq end (set-marker (make-marker) end)))
	  (goto-char start)
	  (if enable-multibyte-characters
	      (mapc #'(lambda (x) (insert (uudecode-string-to-multibyte x)))
		    (nreverse result))
	    (insert (apply 'concat (nreverse result))))
	  (delete-region (point) end))))))

;;;###autoload