Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-rmail.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 8fc7fe29b841
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; tm-rmail.el --- MIME extension for RMAIL 1 ;;;
2 2 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc. 3 ;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
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.3 $ 8 ;;; Version:
9 ;; Keywords: mail, MIME, multimedia, multilingual, encoded-word 9 ;;; $Revision: 1.1.1.1 $
10 10 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
11 ;; This file is not part of tm (Tools for MIME). 11 ;;;
12 12 ;;; This file is part of tm (Tools for MIME).
13 ;; This program is free software; you can redistribute it and/or 13 ;;;
14 ;; modify it under the terms of the GNU General Public License as 14 ;;; This program is free software; you can redistribute it and/or
15 ;; published by the Free Software Foundation; either version 2, or (at 15 ;;; modify it under the terms of the GNU General Public License as
16 ;; your option) any later version. 16 ;;; published by the Free Software Foundation; either version 2, or
17 17 ;;; (at your option) any later version.
18 ;; This program is distributed in the hope that it will be useful, but 18 ;;;
19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 19 ;;; This program is distributed in the hope that it will be useful,
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 20 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; General Public License for more details. 21 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 22 ;;; General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License 23 ;;;
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the 24 ;;; You should have received a copy of the GNU General Public License
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 25 ;;; along with This program. If not, write to the Free Software
26 ;; Boston, MA 02111-1307, USA. 26 ;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
27 27 ;;;
28 ;;; Code: 28 ;;; Code:
29 29
30 (require 'tl-list) 30 (require 'tl-list)
31 (require 'tl-misc) 31 (require 'tl-misc)
32 (require 'rmail) 32 (require 'rmail)
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.3 1997/02/16 01:29:34 steve Exp $") 43 "$Id: tm-rmail.el,v 1.1.1.1 1996/12/18 22:43:38 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
118 (tm-rmail/preview-message) 118 (tm-rmail/preview-message)
119 )) 119 ))
120 120
121 (add-hook 'rmail-show-message-hook 'tm-rmail/preview-message-if-you-need) 121 (add-hook 'rmail-show-message-hook 'tm-rmail/preview-message-if-you-need)
122 122
123 (load "rmailsum")
124
125 (cond ((fboundp 'rmail-summary-rmail-update) 123 (cond ((fboundp 'rmail-summary-rmail-update)
126 ;; for Emacs 19 or later 124 ;; for Emacs 19 or later
127 (or (fboundp 'tm:rmail-summary-rmail-update) 125 (or (fboundp 'tm:rmail-summary-rmail-update)
128 (fset 'tm:rmail-summary-rmail-update 126 (fset 'tm:rmail-summary-rmail-update
129 (symbol-function 'rmail-summary-rmail-update)) 127 (symbol-function 'rmail-summary-rmail-update))
187 (delete-other-windows) 185 (delete-other-windows)
188 ) 186 )
189 187
190 (defun tm-rmail/quitting-method-to-article () 188 (defun tm-rmail/quitting-method-to-article ()
191 (setq tm-rmail/decode-all nil) 189 (setq tm-rmail/decode-all nil)
192 (let ((buffer 190 (mime-viewer/kill-buffer)
193 (mime::preview-content-info/buffer 191 )
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 ))
202 192
203 (defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article) 193 (defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article)
204 194
205 195
206 (defun tm-rmail/over-to-previous-method () 196 (defun tm-rmail/over-to-previous-method ()
369 'mail-mode (function tm-mail/insert-message)) 359 'mail-mode (function tm-mail/insert-message))
370 (set-alist 'mime-editor/split-message-sender-alist 360 (set-alist 'mime-editor/split-message-sender-alist
371 'mail-mode (function 361 'mail-mode (function
372 (lambda () 362 (lambda ()
373 (interactive) 363 (interactive)
374 (funcall send-mail-function) 364 (sendmail-send-it)
375 ))) 365 )))
376 ))) 366 )))
377 ))) 367 )))
378 368
379 369