I wrote: > […]
> Ah! With that, something like: > | (defun tl-ab2nb nil > | (interactive) > | (gnus-summary-show-article '(16)) > | (gnus-summary-select-article-buffer) > | (article-goto-body) > | (copy-to-buffer (generate-new-buffer "article body") (point) (point-max))) > works nicely. (Only nitpick: Gnus adds a trailing newline, > i. e. the function above applied to a mail generated by > "echo echo Test | at now" produces a buffer with > "Test\n\n".) Two more issues related to that: - "(gnus-summary-show-article '(16))" will trigger gnus-select-article-hook, so to call the former in the latter, I had to wrap that in "(let (gnus-select-article-hook) […])". Is there a better/re- commended way to solve that? - gnus-summary-show-article will switch to the *Summary* buffer, so in "(gnus-with-article-buffer (gnus-summary-show-article '(16)) (something-else))" something-else will be executed in the *Summary* buffer, therefore I had to wrap that in another gnus-with-article-buffer form. However, when executed in the *Article* buffer, C-u C-u g will stay there. Is this a bug? Tim _______________________________________________ info-gnus-english mailing list [email protected] https://lists.gnu.org/mailman/listinfo/info-gnus-english
