Lars Magne Ingebrigtsen wrote:
Uwe Brauer<oub(a)mat.ucm.es> writes:
> - the crucial call is (gnus-post-news 'post)
>
> - I debugged that in both Xemacsen.
(let ((gnus-newsgroup-name "")) (gnus-post-news 'post))
works for me.
Well yes and no, it works in XEmacs 21.5 when gnus is
running! (While this is not necessary in 21.4)
So the following code works
(defun my-gnus-summary-post-news ()
"Start composing a message. Post to the current group by default.
If ARG, don't do that. If ARG is 1, prompt for a group name to post to.
Depending on the selected group, the message might be either a mail or
a news."
(interactive)
(unless (gnus-alive-p)
(gnus nil))
(let ((gnus-newsgroup-name ""))
(gnus-post-news 'post gnus-newsgroup-name)))
Stephen I think you can close the bug.
Uwe
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta