From: morioka <morioka>
Date: Fri, 16 Oct 1998 07:16:00 +0000 (+0000)
Subject: (emh-setup-mh-draft-setting): Set up buffer local value of
X-Git-Tag: emh-1_9-199811302358~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6cba8098ff36131052f056c2cc6f6b797c8030d;p=elisp%2Femh.git

(emh-setup-mh-draft-setting): Set up buffer local value of
`mime-edit-user-agent-value' to add information of EMH.
---

diff --git a/emh-setup.el b/emh-setup.el
index a6895de..2d8af82 100644
--- 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))