Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-rmail.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 4b173ad71786
children 131b0175ea99
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
1 ;;; tm-rmail.el --- MIME extension for RMAIL 1 ;;; tm-rmail.el --- MIME extension for RMAIL
2 2
3 ;; Copyright (C) 1994,1995,1996 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 ;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp> 6 ;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
7 ;; Created: 1994/8/30 7 ;; Created: 1994/8/30
8 ;; Version: $Revision: 1.2 $ 8 ;; Version: $Revision: 1.3 $
9 ;; Keywords: mail, MIME, multimedia, multilingual, encoded-word 9 ;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
10 10
11 ;; This file is not part of tm (Tools for MIME). 11 ;; This file is not part of tm (Tools for MIME).
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
38 38
39 ;;; @ variables 39 ;;; @ variables
40 ;;; 40 ;;;
41 41
42 (defconst tm-rmail/RCS-ID 42 (defconst tm-rmail/RCS-ID
43 "$Id: tm-rmail.el,v 1.2 1996/12/22 00:29:42 steve Exp $") 43 "$Id: tm-rmail.el,v 1.3 1997/02/16 01:29:34 steve Exp $")
44 (defconst tm-rmail/version (get-version-string tm-rmail/RCS-ID)) 44 (defconst tm-rmail/version (get-version-string tm-rmail/RCS-ID))
45 45
46 (defvar tm-rmail/decode-all nil) 46 (defvar tm-rmail/decode-all nil)
47 47
48 48
187 (delete-other-windows) 187 (delete-other-windows)
188 ) 188 )
189 189
190 (defun tm-rmail/quitting-method-to-article () 190 (defun tm-rmail/quitting-method-to-article ()
191 (setq tm-rmail/decode-all nil) 191 (setq tm-rmail/decode-all nil)
192 (mime-viewer/kill-buffer) 192 (let ((buffer
193 ) 193 (mime::preview-content-info/buffer
194 (mime-preview/point-pcinfo (point))))
195 )
196 (mime-viewer/kill-buffer)
197
198 ;; Make sure we return to RMAIL buffer
199 (if buffer
200 (switch-to-buffer buffer))
201 ))
194 202
195 (defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article) 203 (defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article)
196 204
197 205
198 (defun tm-rmail/over-to-previous-method () 206 (defun tm-rmail/over-to-previous-method ()