GNU bug report logs - #9272
[nnir] (invalid-read-syntax "#")

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 9272 in the body.
You can then email your comments to 9272 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Dave Abrahams <dave <at> boostpro.com>
To: submit <at> debbugs.gnu.org (The Gnus Bugfixing Girls + Boys)
Subject: [nnir] (invalid-read-syntax "#")
Date: Tue, 09 Aug 2011 13:03:21 -0400

[sorry if this is a duplicate]

I did `G G RET copyright clerk RET' and got this backtrace:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (invalid-read-syntax "#")
  read(#<buffer  *temp*>)
  nnheader-parse-naked-head(254390)
  nnheader-parse-head()
  nnir-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) "((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" "nnir-ephemeral" nil)
  gnus-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) "nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" nil)
  gnus-cache-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) "nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" nil)
  gnus-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) "nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" nil)
  gnus-fetch-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
  gnus-select-newsgroup("nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" t nil)
  gnus-summary-read-group-1("nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" t t nil nil nil)
  gnus-summary-read-group("nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" t t nil nil nil nil)
  gnus-group-read-group(t t "nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" nil)
  byte-code("	..\306\f\206\n.\307\307..$*\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("nnir:((query . \"copyright clerk\") (unique-id . \"m2ty9q8qti.fsf\"))" (nnir "nnir") t (#<buffer *Group*> . group) nil)
  gnus-group-make-nnir-group(nil)
  call-interactively(gnus-group-make-nnir-group nil nil)
--8<---------------cut here---------------end--------------->8---

The buffer called " *temp*" contains:

--8<---------------cut here---------------start------------->8---

 Article retrieved.
Chars: 3989
Lines: (Wed, 03 Aug 2011 11:56:32 -0400 [gnu.org #702974] Dave Abrahams ((Donald R Robertson III via RT NIL copyright-clerk fsf.org)) ((Donald R Robertson III via RT NIL copyright-clerk fsf.org)) ((NIL NIL copyright-clerk fsf.org)) ((NIL NIL dave boostpro.com)) NIL NIL <rt-3.4.5-1463-1312318501-1904.702974-5-0 <at> rt.gnu.org> <rt-3.4.5-14274-1312386991-491.702974-5-0 <at> rt.gnu.org>)
From: Dave Abrahams <dave <at> boostpro.com>
To: John Wiegley <johnw <at> boostpro.com>
Subject: FSFoolishness
Date: Wed, 03 Aug 2011 12:27:24 -0400
Message-ID: <m2oc06o3yr.fsf <at> pluto.luannocracy.com>
--8<---------------cut here---------------end--------------->8---

...and point is on the "]" character.

No Gnus v0.18
GNU Emacs 23.3.1 (x86_64-apple-darwin10.8.0, Carbon Version 1.6.0 AppKit 1038.36)
 of 2011-08-01 on vulcan
200 news.gmane.org InterNetNews NNRP server INN 2.5.1 ready (posting ok)
101 Capability list:
VERSION 2
IMPLEMENTATION INN 2.5.1
AUTHINFO USER
HDR
LIST ACTIVE ACTIVE.TIMES DISTRIB.PATS HEADERS NEWSGROUPS OVERVIEW.FMT
OVER
POST
READER
STARTTLS
.

-- 
Dave Abrahams
BoostPro Computing
http://www.boostpro.com

Message #8 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Andrew Cohen <cohen <at> andy.bu.edu>
To: Dave Abrahams <dave <at> boostpro.com>
Cc: 9272 <at> debbugs.gnu.org,
	The Gnus Bugfixing Girls + Boys <submit <at> debbugs.gnu.org>
Subject: Re: [nnir] (invalid-read-syntax "#")
Date: Thu, 11 Aug 2011 13:06:27 -0400

I don't think this is a bug in nnir. It looks like its a bug in
`nnimap-transform-headers'. If I read the RFC correctly the parsing of a
bodystructure is special for a bodytype of "MESSAGE" and subtype of
"RFC822".  Can you try evaluating the modified version of
`nnimap-transform-headers' below and see if it fixes the problem?


(defun nnimap-transform-headers ()
  (goto-char (point-min))
  (let (article bytes lines size string)
    (block nil
      (while (not (eobp))
	(while (not (looking-at "\\* [0-9]+ FETCH.+UID \\([0-9]+\\)"))
	  (delete-region (point) (progn (forward-line 1) (point)))
	  (when (eobp)
	    (return)))
	(setq article (match-string 1))
	;; Unfold quoted {number} strings.
	(while (re-search-forward "[^]][ (]{\\([0-9]+\\)}\r?\n"
				  (1+ (line-end-position)) t)
	  (setq size (string-to-number (match-string 1)))
	  (delete-region (+ (match-beginning 0) 2) (point))
	  (setq string (buffer-substring (point) (+ (point) size)))
	  (delete-region (point) (+ (point) size))
	  (insert (format "%S" string)))
	(setq bytes (nnimap-get-length)
	      lines nil)
	(beginning-of-line)
	(setq size
	      (and (re-search-forward "RFC822.SIZE \\([0-9]+\\)"
				      (line-end-position)
				      t)
		   (match-string 1)))
	(beginning-of-line)
	(when (search-forward "BODYSTRUCTURE" (line-end-position) t)
	  (let ((structure (ignore-errors
			     (read (current-buffer)))))
	    (while (and (consp structure)
			(not (stringp (car structure))))
	      (setq structure (car structure)))
	    (setq lines (if (and 
			     (equal (nth 0 structure) "MESSAGE") 
			     (equal (nth 1 structure) "RFC822"))
			    (nth 9 structure)
			  (nth 7 structure)))))
	(delete-region (line-beginning-position) (line-end-position))
	(insert (format "211 %s Article retrieved." article))
	(forward-line 1)
	(when size
	  (insert (format "Chars: %s\n" size)))
	(when lines
	  (insert (format "Lines: %s\n" lines)))
	(unless (re-search-forward "^\r$" nil t)
	  (goto-char (point-max)))
	(delete-region (line-beginning-position) (line-end-position))
	(insert ".")
	(forward-line 1)))))

Message #18 received at 9272-done <at> debbugs.gnu.org (full text, mbox):

From: Andrew Cohen <cohen <at> andy.bu.edu>
To: bug#9272 <9272-done <at> debbugs.gnu.org>
Subject: Re: Status: [nnir] (invalid-read-syntax "#")
Date: Wed, 31 Aug 2011 16:22:17 -0400

fixed in commit a85b6c0cac52ac62abb9d441175b2bef31e8beb2

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.