update.

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

diff --git a/emh-setup.el b/emh-setup.el
index a6895de..2d8af82 100644 (file)
--- a/emh-setup.el
+++ b/emh-setup.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
+;; Keywords: mh-e, mail, news, MIME, multimedia, multilingual
 
 ;; This file is part of emh.
 
@@ -43,6 +43,10 @@
   (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))