Reading groups without starting Gnus

Reading groups without starting Gnus

[Lars Magne Ingebrigtsen]

I've now altered Ma Gnus so that one can read (ephemeral) groups without
starting Gnus (or having a Gnus setup at all).

Please give it a whirl and see whether it actually works, for instance
via `debbugs-gnu'.

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/

Re: Reading groups without starting Gnus

[Tassilo Horn]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> I've now altered Ma Gnus so that one can read (ephemeral) groups
> without starting Gnus (or having a Gnus setup at all).
>
> Please give it a whirl and see whether it actually works, for instance
> via `debbugs-gnu'.

I tried with

  M-x gnus-read-ephemeral-emacs-bug-group RET some-random-bug-no RET

which errors with

  gnus-summary-read-group-1: No buffer named *Group*

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "No buffer named *Group*")
  gnus-group-update-group("nndoc+/tmp/gnus-temp-group-1527B7B-ephemeral:gnus-read-ephemeral-bug" nil t)
  gnus-summary-read-group-1("nndoc+/tmp/gnus-temp-group-1527B7B-ephemeral:gnus-read-ephemeral-bug" t t nil nil nil)
  gnus-summary-read-group("nndoc+/tmp/gnus-temp-group-1527B7B-ephemeral:gnus-read-ephemeral-bug" t t nil nil nil nil)
  gnus-group-read-group(t t "nndoc+/tmp/gnus-temp-group-1527B7B-ephemeral:gnus-read-ephemeral-bug" nil)
  byte-code("\b	^[\306\f\206\n\307\307\x0e\b$*\205\207" [gnus-large-ephemeral-newsgroup gnus-fetch-old-ephemeral-headers gnus-fetch-old-headers gnus-large-newsgroup number group gnus-group-read-group t select-articles] 5)
  gnus-group-read-ephemeral-group("gnus-read-ephemeral-bug" (nndoc "/tmp/gnus-temp-group-1527B7B" (nndoc-article-type mbox)) nil nil)
  gnus-read-ephemeral-bug-group((666) "http://debbugs.gnu.org/%s;mboxmaint=yes;mboxstat=yes" nil)
  gnus-read-ephemeral-emacs-bug-group(666)
  call-interactively(gnus-read-ephemeral-emacs-bug-group t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)
--8<---------------cut here---------------end--------------->8---

but brings up a summary buffer with messages anyway.  When selecting an
article in there, I get several

  concat: Wrong type argument: stringp, nil [3 times]

errors, but again the article buffers are shown anyway.  Oh, the latter
errors seem to be cause by my customizations, i.e., org-contacts hooked
into gnus-article-prepare-hook...

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  regexp-quote(nil)
  (concat org-contacts-email-property "={\\b" (regexp-quote email) "\\b}")
  (org-contacts-filter nil (concat org-contacts-email-property "={\\b" (regexp-quote email) "\\b}"))
  (or (org-contacts-filter nil (concat org-contacts-email-property "={\\b" (regexp-quote email) "\\b}")) (when name (org-contacts-filter (concat "^" name "$"))))
  (cadar (or (org-contacts-filter nil (concat org-contacts-email-property "={\\b" (regexp-quote email) "\\b}")) (when name (org-contacts-filter (concat "^" name "$")))))
  (let* ((address (org-contacts-gnus-get-name-email)) (name (car address)) (email (cadr address))) (cadar (or (org-contacts-filter nil (concat org-contacts-email-property "={\\b" (regexp-quote email) "\\b}")) (when name (org-contacts-filter (concat "^" name "$"))))))
  org-contacts-gnus-article-from-get-marker()
  (let ((marker (org-contacts-gnus-article-from-get-marker))) (when marker (with-current-buffer (marker-buffer marker) (save-excursion (goto-char marker) (let* ((org-email-link-description-format (or org-contacts-email-link-description-format org-email-link-description-format)) (link (gnus-with-article-buffer ...))) (org-set-property org-contacts-last-read-mail-property link))))))
  org-contacts-gnus-store-last-mail()
  run-hooks(gnus-article-prepare-hook)
  apply(run-hooks gnus-article-prepare-hook)
  gnus-run-hooks(gnus-article-prepare-hook)
  gnus-article-prepare(1 nil)
  gnus-summary-display-article(1 nil)
  gnus-summary-select-article(nil nil pseudo)
  gnus-summary-scroll-up(1)
  call-interactively(gnus-summary-scroll-up nil nil)
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo

Re: Reading groups without starting Gnus

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

> I tried with
>
>   M-x gnus-read-ephemeral-emacs-bug-group RET some-random-bug-no RET

Did you do a "git pull" first?

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/

Re: Reading groups without starting Gnus

[Tassilo Horn]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

>>   M-x gnus-read-ephemeral-emacs-bug-group RET some-random-bug-no RET
>
> Did you do a "git pull" first?

Sure, git pull && make.  I'm running
23eae558c46c7e86257c60f5bcbe7db451ee6c85, now.

Bye,
Tassilo

Re: Reading groups without starting Gnus

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

>>>   M-x gnus-read-ephemeral-emacs-bug-group RET some-random-bug-no RET
>>
>> Did you do a "git pull" first?
>
> Sure, git pull && make.  I'm running

This should work now.  At least this works for me from "emacs -q":

  (setq load-path (cons (expand-file-name "~/mgnus/lisp") load-path))
  (require 'gnus-group)
  (setq debug-on-error t)
  (gnus-read-ephemeral-emacs-bug-group "4222")


-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/

Re: Reading groups without starting Gnus

[Tassilo Horn]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> This should work now.  At least this works for me from "emacs -q":
>
>   (setq load-path (cons (expand-file-name "~/mgnus/lisp") load-path))
>   (require 'gnus-group)
>   (setq debug-on-error t)
>   (gnus-read-ephemeral-emacs-bug-group "4222")

Yes, works like a charm!

Bye,
Tassilo

Re: Reading groups without starting Gnus

[Tassilo Horn]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> I've now altered Ma Gnus so that one can read (ephemeral) groups without
> starting Gnus (or having a Gnus setup at all).
>
> Please give it a whirl and see whether it actually works, for instance
> via `debbugs-gnu'.

Oh, you've broken summary exit!  With Ma Gnus from this morning, exiting
a summary places point on the next group with unread messages.  Now,
point is always placed exactly

--8<---------------cut here---------------start------------->8---
[ Gnus (0/18) ]
  [ News (0/4) ]<------ HERE!
    [ Emacs (6/0) ]
            0: nntp+Gmane:gmane.emacs.auctex.devel
            0: nntp+Gmane:gmane.emacs.auctex.general
            0: nntp+Gmane:gmane.emacs.gnus.user
            0: nntp+Gmane:gmane.emacs.help
            0: nntp+Gmane:gmane.emacs.orgmode
            0: nntp+Uni:alt.religion.emacs
    [ Software (11/4) ]
            0: nntp+Eclipse:eclipse.platform
            0: nntp+Eclipse:eclipse.tools.emf
       ...
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo

Re: Reading groups without starting Gnus

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

> Oh, you've broken summary exit!  With Ma Gnus from this morning, exiting
> a summary places point on the next group with unread messages.  Now,
> point is always placed exactly
> [ Gnus (0/18) ]
>   [ News (0/4) ]<------ HERE!

I'm unable to reproduce this.

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/

Re: Reading groups without starting Gnus

[Tassilo Horn]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Tassilo Horn <tassilo@member.fsf.org> writes:
>
>> Oh, you've broken summary exit!  With Ma Gnus from this morning, exiting
>> a summary places point on the next group with unread messages.  Now,
>> point is always placed exactly
>> [ Gnus (0/18) ]
>>   [ News (0/4) ]<------ HERE!
>
> I'm unable to reproduce this.

The problem is that in `gnus-summary-exit', in

    ;; Make sure where we were, and go to next newsgroup.
    (when (buffer-live-p gnus-group-buffer)
      (set-buffer gnus-group-buffer))

`gnus-group-buffer' is nil, and thus later in

    (setq group-point (point))

the position of point in the *summary* is used here and later set as the
new point position in *Group*.

Bye,
Tassilo

Re: Reading groups without starting Gnus

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

> The problem is that in `gnus-summary-exit', in
>
>     ;; Make sure where we were, and go to next newsgroup.
>     (when (buffer-live-p gnus-group-buffer)
>       (set-buffer gnus-group-buffer))
>
> `gnus-group-buffer' is nil, and thus later in

Why is `gnus-group-buffer' nil?

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/

Re: Reading groups without starting Gnus

[Tassilo Horn]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

>> The problem is that in `gnus-summary-exit', in
>>
>>     ;; Make sure where we were, and go to next newsgroup.
>>     (when (buffer-live-p gnus-group-buffer)
>>       (set-buffer gnus-group-buffer))
>>
>> `gnus-group-buffer' is nil, and thus later in
>
> Why is `gnus-group-buffer' nil?

Oh, that's actually wrong.  It's value is "*Group*", but `buffer-live-p'
only works on buffers, not buffer names, so we need to wrap it in
(get-buffer g-g-b).

Fix committed in 62d2c12d145fa844f823b5242d11b45dde1d23ef.

Bye,
Tassilo

Re: Reading groups without starting Gnus

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

> Oh, that's actually wrong.  It's value is "*Group*", but `buffer-live-p'
> only works on buffers, not buffer names, so we need to wrap it in
> (get-buffer g-g-b).

D'oh.  I've been bitten by that many times, which is why
`gnus-buffer-live-p' exists, but I forget...

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/