* 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 (file)
--- 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 (file)
--- 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