Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-play.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 9f59509498e1
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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.3 1997/03/08 23:26:57 steve Exp $ 7 ;; Version: $Id: tm-play.el,v 1.4 1997/03/16 03:05:47 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)
422 421
423 422
424 ;;; @ rot13-47 423 ;;; @ rot13-47
425 ;;; 424 ;;;
426 425
427 (condition-case nil 426 (require 'view)
428 (require 'view-less)
429 (error (require 'view)))
430 427
431 (defconst mime-view-text/plain-mode-map (copy-keymap view-mode-map)) 428 (defconst mime-view-text/plain-mode-map (copy-keymap view-mode-map))
432 (define-key mime-view-text/plain-mode-map 429 (define-key mime-view-text/plain-mode-map
433 "q" (function mime-view-text/plain-exit)) 430 "q" (function mime-view-text/plain-exit))
434 431