[Emacs-diffs] master ffdf409 5/5: Fix crossposting in non-primary groups

[Lars Ingebrigtsen]

branch: master
commit ffdf409ebbab03799da394ba04e2600dfb9fa217
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Fix crossposting in non-primary groups
    
    * lisp/gnus/message.el
    (message-cross-post-followup-to-header): Gnus server prefixes
    shouldn't be included in the group names (bug#21661).
    (message-cross-post-followup-to): Ditto.
---
 lisp/gnus/message.el |   32 ++++++++++++++++++--------------
 1 file changed, 18 insertions(+), 14 deletions(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index e45ab10..73d44da 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2286,13 +2286,15 @@ body, set  `message-archive-note' to nil."
   "Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.
 With prefix-argument just set Follow-Up, don't cross-post."
   (interactive
-   (list ; Completion based on Gnus
-    (completing-read "Followup To: "
-                    (if (boundp 'gnus-newsrc-alist)
-                        gnus-newsrc-alist)
-                    nil nil '("poster" . 0)
-                    (if (boundp 'gnus-group-history)
-                        'gnus-group-history))))
+   (list                               ; Completion based on Gnus
+    (replace-regexp-in-string
+     "\\`.*:" ""
+     (completing-read "Followup To: "
+                     (if (boundp 'gnus-newsrc-alist)
+                         gnus-newsrc-alist)
+                     nil nil '("poster" . 0)
+                     (if (boundp 'gnus-group-history)
+                         'gnus-group-history)))))
   (message-remove-header "Follow[Uu]p-[Tt]o" t)
   (message-goto-newsgroups)
   (beginning-of-line)
@@ -2361,13 +2363,15 @@ been made to before the user asked for a Crosspost."
   "Crossposts message and set Followup-To to TARGET-GROUP.
 With prefix-argument just set Follow-Up, don't cross-post."
   (interactive
-   (list ; Completion based on Gnus
-    (completing-read "Followup To: "
-                    (if (boundp 'gnus-newsrc-alist)
-                        gnus-newsrc-alist)
-                    nil nil '("poster" . 0)
-                    (if (boundp 'gnus-group-history)
-                        'gnus-group-history))))
+   (list                               ; Completion based on Gnus
+    (replace-regexp-in-string
+     "\\`.*:" ""
+     (completing-read "Followup To: "
+                     (if (boundp 'gnus-newsrc-alist)
+                         gnus-newsrc-alist)
+                     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