diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-09 10:34:59 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-09 10:34:59 +1100 |
| commit | 435af8016ade677262931fd7c4cf7aa54b226828 (patch) | |
| tree | c621924333ae515fd1d35f5e6ec71894c903db6d /lisp/gnus | |
| parent | 22e239cb406cd5008d3942e66ebb153d8a2d20a4 (diff) | |
| download | emacs-435af8016ade677262931fd7c4cf7aa54b226828.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/message.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 27cae74c755..ed0422c1f4d 100644 --- 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))) |