From b6cba8098ff36131052f056c2cc6f6b797c8030d Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 16 Oct 1998 07:16:00 +0000 Subject: [PATCH] (emh-setup-mh-draft-setting): Set up buffer local value of `mime-edit-user-agent-value' to add information of EMH. --- emh-setup.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -;; 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)) -- 1.7.10.4