emh-setup.el

   1 ;;; emh-setup.el --- setup file for emh.
   2
   3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
   4
   5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   6 ;; Version: $Id: emh-setup.el,v 0.2 1997-08-05 15:07:32 morioka Exp $
   7 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
   8
   9 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
  10
  11 ;; This program is free software; you can redistribute it and/or
  12 ;; modify it under the terms of the GNU General Public License as
  13 ;; published by the Free Software Foundation; either version 2, or (at
  14 ;; your option) any later version.
  15
  16 ;; This program is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Code:
  27
  28 (require 'semi-setup)
  29
  30
  31 ;;; @ for emh
  32 ;;;
  33
  34 (eval-after-load "mh-e" '(require 'emh))
  35
  36
  37 ;;; @ for mime-edit
  38 ;;;
  39
  40 (autoload 'turn-on-mime-edit "mime-edit"
  41   "Unconditionally turn on MIME-Edit minor mode." t)
  42
  43 (defun emh-setup-mh-draft-setting ()
  44   (turn-on-mime-edit)
  45   (make-local-variable 'mail-header-separator)
  46   (setq mail-header-separator "--------")
  47   (save-excursion
  48     (goto-char (point-min))
  49     (setq buffer-read-only nil)
  50     (if (re-search-forward "^-*$" nil t)
  51         (progn
  52           (replace-match mail-header-separator)
  53           (set-buffer-modified-p (buffer-modified-p))
  54           ))
  55     ))
  56
  57 (add-hook 'mh-letter-mode-hook 'emh-setup-mh-draft-setting t)
  58 (add-hook 'mh-before-send-letter-hook 'mime-edit-maybe-translate)
  59
  60
  61 ;;; @@ for emh-comp.el
  62 ;;;
  63
  64 (autoload 'emh-edit-again "emh-comp"
  65   "Clean-up a draft or a message previously sent and make it resendable." t)
  66 (autoload 'emh-extract-rejected-mail "emh-comp"
  67   "Extract a letter returned by the mail system and make it re-editable." t)
  68 (autoload 'emh-forward "emh-comp"
  69   "Forward a message or message sequence by MIME style." t)
  70
  71 (eval-after-load
  72     "mh-e"
  73   '(progn
  74      (substitute-key-definition
  75       'mh-edit-again 'emh-edit-again
  76       mh-folder-mode-map)
  77      (substitute-key-definition
  78       'mh-extract-rejected-mail 'emh-extract-rejected-mail
  79       mh-folder-mode-map)
  80      (substitute-key-definition
  81       'mh-forward 'emh-forward
  82       mh-folder-mode-map)
  83      ))
  84
  85 (eval-after-load "mh-comp" '(require 'emh-comp))
  86
  87
  88 ;;; @ end
  89 ;;;
  90
  91 (provide 'emh-setup)
  92
  93 ;;; emh-setup.el ends here