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