(What's EMH?): Modify for APEL 9.3, FLIM 1.10.5 and SEMI 1.9.1.

[elisp/emh.git] / emh-setup.el

diff --git a/emh-setup.el b/emh-setup.el
index 4da990d..2d8af82 100644 (file)
--- a/emh-setup.el
+++ b/emh-setup.el
@@ -1,12 +1,11 @@
 ;;; emh-setup.el --- setup file for emh.
 
-;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emh-setup.el,v 0.2 1997-08-05 15:07:32 morioka Exp $
-;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
+;; Keywords: mh-e, mail, news, MIME, multimedia, multilingual
 
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of emh.
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -41,9 +40,14 @@
   "Unconditionally turn on MIME-Edit minor mode." t)
 
 (defun emh-setup-mh-draft-setting ()
-  (turn-on-mime-edit)
   (make-local-variable 'mail-header-separator)
   (setq mail-header-separator "--------")
+  (eword-decode-header nil mail-header-separator)
+  (let ((ua mime-edit-user-agent-value))
+    (make-local-variable 'mime-edit-user-agent-value)
+    (setq mime-edit-user-agent-value (concat "EMH/" emh-version " " ua))
+    )
+  (turn-on-mime-edit)
   (save-excursion
     (goto-char (point-min))
     (setq buffer-read-only nil)