Mercurial > hg > xemacs-beta

comparison lisp/tm/mime-setup.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 364816949b59
children 43dd3413c7c7
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; mime-setup.el --- setup file for tm viewer and composer. 1 ;;; mime-setup.el --- setup file for tm viewer and composer.
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 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 ;; Version: 6 ;; Version:
7 ;; $Id: mime-setup.el,v 1.4 1997/01/30 02:22:47 steve Exp $ 7 ;; $Id: mime-setup.el,v 1.5 1997/02/15 22:21:26 steve Exp $
8 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word 8 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
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
100 ;;; 100 ;;;
101 101
102 (add-hook 'mu-cite/pre-cite-hook 'mime/decode-message-header) 102 (add-hook 'mu-cite/pre-cite-hook 'mime/decode-message-header)
103 103
104 104
105 ;;; @ for RMAIL and VM 105 ;;; @ for mail-mode, RMAIL and VM
106 ;;; 106 ;;;
107 107
108 (add-hook 'mail-setup-hook 'mime/decode-message-header) 108 (add-hook 'mail-setup-hook 'mime/decode-message-header)
109 (add-hook 'mail-setup-hook 'mime/editor-mode 'append) 109 (add-hook 'mail-setup-hook 'mime/editor-mode 'append)
110 (add-hook 'mail-send-hook 'mime-editor/maybe-translate) 110 (add-hook 'mail-send-hook 'mime-editor/maybe-translate)
111 111 (set-alist 'mime-editor/split-message-sender-alist
112 'mail-mode (function
113 (lambda ()
114 (interactive)
115 (funcall send-mail-function)
116 )))
112 117
113 ;;; @ for mh-e 118 ;;; @ for mh-e
114 ;;; 119 ;;;
115 120
116 (defun mime-setup-mh-draft-setting () 121 (defun mime-setup-mh-draft-setting ()