1;;; mail-mime-setup.el --- setup file for mail-mode.  -*- lexical-binding: t -*-
2
3;; Copyright (C) 1994,1995,1996,1997,1998,2000 Free Software Foundation, Inc.
4
5;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6;; Keywords: mail-mode, MIME, multimedia, multilingual, encoded-word
7
8;; This file is part of SEMI (Setting for Emacs MIME Interfaces).
9
10;; This program is free software; you can redistribute it and/or
11;; modify it under the terms of the GNU General Public License as
12;; published by the Free Software Foundation; either version 2, or (at
13;; your option) any later version.
14
15;; This program is distributed in the hope that it will be useful, but
16;; WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18;; General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs; see the file COPYING.  If not, write to the
22;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23;; Boston, MA 02110-1301, USA.
24
25;;; Code:
26
27(require 'semi-setup)
28(require 'alist)
29
30
31(autoload 'turn-on-mime-edit "mime-edit"
32  "Unconditionally turn on MIME-Edit minor mode." t)
33
34;; (autoload 'eword-decode-header "eword-decode"
35;;   "Decode MIME encoded-words in header fields." t)
36
37
38;;; @ for mail-mode, RMAIL and VM
39;;;
40
41;; (add-hook 'mail-setup-hook 'eword-decode-header)
42(add-hook 'mail-setup-hook 'turn-on-mime-edit 'append)
43(add-hook 'mail-send-hook  'mime-edit-maybe-translate)
44(set-alist 'mime-edit-split-message-sender-alist
45           'mail-mode (lambda ()
46                        (interactive)
47                        (funcall send-mail-function)))
48
49
50;;; @ for signature
51;;;
52
53(if mime-setup-use-signature
54    (setq mail-signature nil))
55
56
57;;; @ end
58;;;
59
60(provide 'mail-mime-setup)
61
62;;; mail-mime-setup.el ends here
63