Fix message-cross-post-followup-to group names

* lisp/gnus/message.el (message-cross-post-followup-to): Don't
insert group names like "nntp+foo:zot", because those aren't valid.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 27cae74c755958f63ac2ec5e2ca045500cffb3c9..ed0422c1f4d57712ebf909f9526ed162071450c9 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2467,6 +2467,8 @@ With prefix-argument just set Follow-Up, don't cross-post."
                     nil nil '("poster" . 0)
                     (if (boundp 'gnus-group-history)
                         'gnus-group-history))))
+  (when (fboundp 'gnus-group-real-name)
+    (setq target-group (gnus-group-real-name target-group)))
   (cond ((not (or (null target-group) ; new subject not empty
                  (zerop (string-width target-group))
                  (string-match "^[ \t]*$" target-group)))