mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/gnus/message.el (message-cross-post-followup-to): Don't
insert group names like "nntp+foo:zot", because those aren't valid.
This commit is contained in:
Lars Ingebrigtsen 2016-02-09 10:34:59 +11:00
parent 22e239cb40
commit 435af8016a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/gnus/message.el
View File

@ -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)))