Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-rmail.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
1 ;;; 1 ;;; tm-rmail.el --- MIME extension for RMAIL
2 ;;; Copyright (C) 1995 Free Software Foundation, Inc. 2
3 ;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko 3 ;; Copyright (C) 1994,1995,1996 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: 8 ;; Version: $Revision: 1.1.1.2 $
9 ;;; $Revision: 1.1.1.1 $ 9 ;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
10 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word 10
11 ;;; 11 ;; This file is not part of tm (Tools for MIME).
12 ;;; This file is part of tm (Tools for MIME). 12
13 ;;; 13 ;; This program is free software; you can redistribute it and/or
14 ;;; This program is free software; you can redistribute it and/or 14 ;; modify it under the terms of the GNU General Public License as
15 ;;; modify it under the terms of the GNU General Public License as 15 ;; published by the Free Software Foundation; either version 2, or (at
16 ;;; published by the Free Software Foundation; either version 2, or 16 ;; your option) any later version.
17 ;;; (at your option) any later version. 17
18 ;;; 18 ;; This program is distributed in the hope that it will be useful, but
19 ;;; This program is distributed in the hope that it will be useful, 19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 21 ;; General Public License for more details.
22 ;;; General Public License for more details. 22
23 ;;; 23 ;; You should have received a copy of the GNU General Public License
24 ;;; You should have received a copy of the GNU General Public License 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;;; along with This program. If not, write to the Free Software 25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 26 ;; Boston, MA 02111-1307, 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.1.1.1 1996/12/18 22:43:38 steve Exp $") 43 "$Id: tm-rmail.el,v 1.1.1.2 1996/12/21 20:50:48 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
123 (cond ((fboundp 'rmail-summary-rmail-update) 125 (cond ((fboundp 'rmail-summary-rmail-update)
124 ;; for Emacs 19 or later 126 ;; for Emacs 19 or later
125 (or (fboundp 'tm:rmail-summary-rmail-update) 127 (or (fboundp 'tm:rmail-summary-rmail-update)
126 (fset 'tm:rmail-summary-rmail-update 128 (fset 'tm:rmail-summary-rmail-update
127 (symbol-function 'rmail-summary-rmail-update)) 129 (symbol-function 'rmail-summary-rmail-update))
359 'mail-mode (function tm-mail/insert-message)) 361 'mail-mode (function tm-mail/insert-message))
360 (set-alist 'mime-editor/split-message-sender-alist 362 (set-alist 'mime-editor/split-message-sender-alist
361 'mail-mode (function 363 'mail-mode (function
362 (lambda () 364 (lambda ()
363 (interactive) 365 (interactive)
364 (sendmail-send-it) 366 (funcall send-mail-function)
365 ))) 367 )))
366 ))) 368 )))
367 ))) 369 )))
368 370
369 371