(gnus-inews-add-send-actions): Use `product-string'.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 2b094bc..e8aac35 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -210,7 +210,7 @@ Thank you for your help in stamping out bugs.
   (setq message-post-method
        `(lambda (arg)
           (gnus-post-method arg ,gnus-newsgroup-name)))
-  (setq message-user-agent (concat gnus-product-name "/" gnus-version-number))
+  (setq message-user-agent (product-string 'gnus))
   (unless message-use-multi-frames
     (message-add-action
      `(set-window-configuration ,winconf) 'exit 'postpone 'kill))