From a96db573438700074b63ac76dc1dfb57595d0eb5 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 15 Oct 2000 10:26:54 +0000 Subject: [PATCH] * wl-version.el (wl-generate-user-agent-string): Use `product-string-verbose' instead of `product-string-1'. --- wl/ChangeLog | 5 +++++ wl/wl-version.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + + * wl-version.el (wl-generate-user-agent-string): Use + `product-string-verbose' instead of `product-string-1'. + 2000-10-15 Kenichi OKADA * 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 -- 1.7.10.4