Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-play.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents e04119814345
children 8d2a9b52c682
comparison
equal deleted inserted replaced
39:06f275776fba 40:7e54bd776075
2 2
3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1995/9/26 (separated from tm-view.el) 6 ;; Created: 1995/9/26 (separated from tm-view.el)
7 ;; Version: $Id: tm-play.el,v 1.6 1997/03/16 05:55:43 steve Exp $ 7 ;; Version: $Id: tm-play.el,v 1.7 1997/03/22 05:29:24 steve Exp $
8 ;; Keywords: mail, news, MIME, multimedia 8 ;; Keywords: mail, news, MIME, multimedia
9 9
10 ;; This file is part of tm (Tools for MIME). 10 ;; This file is part of tm (Tools for MIME).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
271 (defvar mime-article/coding-system-alist 271 (defvar mime-article/coding-system-alist
272 (list (cons 'mh-show-mode *noconv*) 272 (list (cons 'mh-show-mode *noconv*)
273 (cons t (mime-charset-to-coding-system default-mime-charset)) 273 (cons t (mime-charset-to-coding-system default-mime-charset))
274 )) 274 ))
275 275
276 (cond (running-mule-merged-emacs 276 (cond ((boundp 'MULE) ; for MULE 2.3 or older
277 (defun mime-article::write-region (start end file)
278 (let ((file-coding-system
279 (cdr
280 (or (assq major-mode mime-article/coding-system-alist)
281 (assq t mime-article/coding-system-alist)
282 ))))
283 (write-region start end file)
284 ))
285 )
286 ((featurep 'mule) ; for Emacs/mule and XEmacs/mule
277 (defun mime-article::write-region (start end file) 287 (defun mime-article::write-region (start end file)
278 (let ((coding-system-for-write 288 (let ((coding-system-for-write
279 (cdr 289 (cdr
280 (or (assq major-mode mime-article/coding-system-alist) 290 (or (assq major-mode mime-article/coding-system-alist)
281 (assq t mime-article/coding-system-alist) 291 (assq t mime-article/coding-system-alist)
282 )))) 292 ))))
283 (write-region start end file) 293 (write-region start end file)
284 )) 294 ))
285 ) 295 )
286 ((or (boundp 'MULE) 296 ((boundp 'NEMACS) ; for NEmacs
287 running-xemacs-with-mule)
288 (defun mime-article::write-region (start end file)
289 (let ((file-coding-system
290 (cdr
291 (or (assq major-mode mime-article/coding-system-alist)
292 (assq t mime-article/coding-system-alist)
293 ))))
294 (write-region start end file)
295 ))
296 )
297 ((boundp 'NEMACS)
298 (defun mime-article::write-region (start end file) 297 (defun mime-article::write-region (start end file)
299 (let ((kanji-fileio-code 298 (let ((kanji-fileio-code
300 (cdr 299 (cdr
301 (or (assq major-mode mime-article/kanji-code-alist) 300 (or (assq major-mode mime-article/kanji-code-alist)
302 (assq t mime-article/kanji-code-alist) 301 (assq t mime-article/kanji-code-alist)
303 )))) 302 ))))
304 (write-region start end file) 303 (write-region start end file)
305 )) 304 ))
306 ) 305 )
307 (t 306 (t ; for Emacs 19 or older and XEmacs without mule
308 (defalias 'mime-article::write-region 'write-region) 307 (defalias 'mime-article::write-region 'write-region)
309 )) 308 ))
310 309
311 (defun mime-article/decode-message/partial (beg end cal) 310 (defun mime-article/decode-message/partial (beg end cal)
312 (goto-char beg) 311 (goto-char beg)