Re: [nnir] syntax

[Harry Putnam <reader@newsguy.com>]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> Harry Putnam <reader@newsguy.com> writes:
> 
> > The only way I found that works is:
> > 
> > C-u G G some thing <RET> groupN <RET>
> 
> Hm.  It is not clear to me why this would work and the following
> wouldn't:
> 
> C-u G G ^Subject: some thing$ RET groupN RET

OK, just to show what I'm doing here are the Message buffer comments:

[ not shown in message buffer, but here I inserted the query:
^Subject: ping log$]
Opening nnir server on -ephemeral...

Wrong type argument: listp, ping

[ Here I inserted the query: ping log]
Beginning of buffer
Doing glimpse query ((query . ping log) (group . ping)) on ping...
glimpse args: -H /home/reader/.glimpse-m -W -l -y -i -F /home/reader/Mail/;ping ping log
Doing glimpse query ((query . ping log) (group . ping)) on ping...
Retrieving newsgroup: nnir:((query . "ping log") (group . "ping"))...
Fetching headers for nnir:((query . "ping log") (group . "ping"))...
Fetching headers for nnir:((query . "ping log") (group . "ping"))...done

A word of explanation:  I have a group named nnml:ping.  That group
contains dozens of messages witht he subject "ping log' .  All look
exactly like: 
Subject: ping log

> 
> Hm.  Can you M-x load-library RET nnir.el RET, then set debug-on-error
> to t, then try again and send me the backtrace?

Signaling: (wrong-type-argument listp ping)
  assq(group ping)
  (cdr (assq (quote group) query))
  (let ((artlist nil) (groupspec ...) (qstring ...)) (when (and group groupspec) (error ...)) (when group (setq groupspec ...)) (set-buffer (get-buffer-create nnir-tmp-buffer)) (erase-buffer) (if groupspec (message "Doing glimpse query %s on %s..." query groupspec) (message "Doing glimpse query %s..." query)) (let* (... ...) (unless ... ... ...)) (if groupspec (message "Doing glimpse query %s on %s..." query groupspec) (message "Doing glimpse query %s...done" query)) (sit-for 0) (goto-char (point-min)) (delete-non-matching-lines "/[0-9]+$") (goto-char (point-min)) (while (re-search-forward ... nil t) (replace-match "")) (goto-char (point-max)) (while (re-search-backward "/[0-9]+$" nil t) (delete-char 1 nil) (insert-char 9 1)) (subst-char-in-region (point-min) (point-max) 47 46 t) (goto-char (point-min)) (while (not ...) (insert "[\"") (skip-chars-forward "^	") (insert "\" ") (end-of-line) (insert " 1000 ]") (forward-line 1)) (insert "])\n") (goto-char (point-min)) (insert "(s
 e!
!
tq artlist [\n") (eval-buffer) (sort* artlist (function ...)))
  (save-excursion (let (... ... ...) (when ... ...) (when group ...) (set-buffer ...) (erase-buffer) (if groupspec ... ...) (let* ... ...) (if groupspec ... ...) (sit-for 0) (goto-char ...) (delete-non-matching-lines "/[0-9]+$") (goto-char ...) (while ... ...) (goto-char ...) (while ... ... ...) (subst-char-in-region ... ... 47 46 t) (goto-char ...) (while ... ... ... ... ... ... ...) (insert "])\n") (goto-char ...) (insert "(setq artlist [\n") (eval-buffer) (sort* artlist ...)))
  nnir-run-glimpse(ping nil)
  funcall(nnir-run-glimpse ping nil)
  (if gnus-group-marked (apply (quote append) (mapcar ... gnus-group-marked)) (funcall search-func q nil))
  (let ((search-func ...) (q ...)) (if gnus-group-marked (apply ... ...) (funcall search-func q nil)))
  nnir-run-query(" ping log$\") (group . \"ping\"))")
  (setq nnir-artlist (nnir-run-query group))
  (if (and (equal group nnir-current-query) (equal gnus-group-marked nnir-current-group-marked) (or ... ...)) nnir-artlist (setq nnir-artlist (nnir-run-query group)) (save-excursion (set-buffer nntp-server-buffer) (if ... ... ... ... ... ...)))
  nnir-request-group(" ping log$\") (group . \"ping\"))" "-ephemeral" nil)
  byte-code("\b	\n^[\x19\x18\v†Ÿ\x01\bÆ\x1c\x18\r†ž\x01\b„^[
 e!
!
nd request-group error "Attempted use of a nil select method" gnus-server-to-method gnus-agent-get-function gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" require "No such function: %s" string-match "^[^:]+:" 0 gnus-select-method gnus-newsrc-hashtb server gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers method-name gnus-valid-select-methods noerror] 7)
  gnus-activate-group("((query . \"^Subject: ping log$\") (group . \"ping\"))" scan)
  gnus-group-read-ephemeral-group("((query . \"^Subject: ping log$\") (group . \"ping\"))" (nnir "") t (#<buffer *Group*> . group) nil)
  (let ((parms nil)) (if extra-parms (setq parms ...) (setq parms ...)) (gnus-group-read-ephemeral-group (prin1-to-string parms) (quote ...) t (cons ... gnus-current-window-configuration) nil))
  gnus-group-make-nnir-group((4) "^Subject: ping log$")
* call-interactively(gnus-group-make-nnir-group)


> 
> What happens if you try to search for `^Subject: some thing$'
> _without_ specifying a groupspec (ie, `G G' rather than `C-u G G')?

I get the same:
wrong type argument listp, ping