From: yamaoka <yamaoka>
Date: Tue, 20 May 2003 08:29:40 +0000 (+0000)
Subject: * gnus-msg.el (gnus-message-make-user-agent): Check whether Mule 2 is running.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=461dcc7abdab95774cac8aa9d938de8156b62bdd;p=elisp%2Fgnus.git-

* gnus-msg.el (gnus-message-make-user-agent): Check whether Mule 2 is running.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9729b09..eae75ad 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1133,13 +1133,15 @@ If SILENT, don't prompt the user."
 						 newline-product)
   "Return a user-agent info.  If INCLUDE-MIME-INFO is non-nil and the
 variable `mime-edit-user-agent-value' is bound, the value will be
-included in the return value.  If MAX-COLUMN is specified, the return
-value will be folded up as it were filled.  NEWLINE-PRODUCT specifies
-whether a newline should be inserted in front of each product-token.
-If the value is t or `hard', it works strictly.  Otherwise, if it is
-non-nil (e.g. `soft'), it works semi-strictly.
+included in the return value, and `gnus-user-agent' is ignored.  If
+MAX-COLUMN is specified, the return value will be folded up as it were
+filled.  NEWLINE-PRODUCT specifies whether a newline should be
+inserted in front of each product-token.  If the value is t or `hard',
+it works strictly.  Otherwise, if it is non-nil (e.g. `soft'), it
+works semi-strictly.
 
-Here is an example of how to use this function:
+Here is an odd example, which inserts a User-Agent: header when you
+begin to compose a message:
 
 \(add-hook 'gnus-message-setup-hook
 	  (lambda nil
@@ -1176,7 +1178,10 @@ Here is an example of how to use this function:
 		     nil)
 		    ((string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$"
 				   emacs-version)
-		     (concat "Emacs/" (match-string 1 emacs-version)
+		     (concat (if (boundp 'MULE)
+				 "Mule/2.3@"
+			       "Emacs/")
+			     (match-string 1 emacs-version)
 			     (if system-v
 				 (concat " (" system-v ")")
 			       "")))