From: kaoru <kaoru>
Date: Sun, 15 Oct 2000 10:26:54 +0000 (+0000)
Subject: * wl-version.el (wl-generate-user-agent-string): Use
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a96db573438700074b63ac76dc1dfb57595d0eb5;p=elisp%2Fwanderlust.git

* wl-version.el (wl-generate-user-agent-string): Use
`product-string-verbose' instead of `product-string-1'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b442c40..3f736d6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-version.el (wl-generate-user-agent-string): Use
+	`product-string-verbose' instead of `product-string-1'.
+
 2000-10-15  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl-vars.el (wl-draft-use-cache): New variable.
diff --git a/wl/wl-version.el b/wl/wl-version.el
index e6c10ef..41478a0 100644
--- a/wl/wl-version.el
+++ b/wl/wl-version.el
@@ -78,12 +78,12 @@ Insert User-Agent field instead of X-Mailer field."
 			      mime-edit-user-agent-value)))
     (if mime-user-agent
 	(concat "User-Agent: "
-		(product-string-1 'wl-version t) " "
+		(product-string-verbose 'wl-version) " "
 		mime-user-agent)
       (if (and (boundp 'mime-editor/version)
 	       mime-editor/version)
 	  (concat "User-Agent: "
-		  (product-string-1 'wl-version t) " "
+		  (product-string-verbose 'wl-version) " "
 		  "tm/" mime-editor/version
 		  (if (and (boundp 'mime-editor/codename)
 			   mime-editor/codename)
@@ -102,7 +102,7 @@ Insert User-Agent field instead of X-Mailer field."
 			(concat " " (apel-version)))
 		    (file-error nil))
 		  " " (wl-extended-emacs-version3 "/" t))
-	(concat "User-Agent: " (product-string-1 'wl-version t) " "
+	(concat "User-Agent: " (product-string-verbose 'wl-version) " "
 		(wl-extended-emacs-version3 "/" t))))))
 
 ;; from gnus