Skip to content

Instantly share code, notes, and snippets.

@dabrahams
Created January 8, 2016 07:56
Show Gist options
  • Save dabrahams/d39ed6ddad36f161415c to your computer and use it in GitHub Desktop.
Save dabrahams/d39ed6ddad36f161415c to your computer and use it in GitHub Desktop.
Debugger entered--Lisp error: (error "Invalid search bound (wrong side of point)")
search-forward(" " 1029 move)
nnheader-parse-nov()
(let ((header (nnheader-parse-nov))) (let ((xref (aref header 8)) (xscore (string-to-number (cdr (assoc (quote X-Score) (aref header 9)))))) (if (string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" xref) (progn (setq artlist (cons (vector (gnus-group-prefixed-name ... srv) (string-to-number ...) xscore) artlist))))))
(if (or (eolp) (looking-at "
")) nil (let ((header (nnheader-parse-nov))) (let ((xref (aref header 8)) (xscore (string-to-number (cdr (assoc ... ...))))) (if (string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" xref) (progn (setq artlist (cons (vector ... ... xscore) artlist)))))))
(while (not (eobp)) (if (or (eolp) (looking-at "
")) nil (let ((header (nnheader-parse-nov))) (let ((xref (aref header 8)) (xscore (string-to-number (cdr ...)))) (if (string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" xref) (progn (setq artlist (cons ... artlist))))))) (forward-line 1))
(save-current-buffer (set-buffer (get-buffer-create nnir-tmp-buffer)) (erase-buffer) (mm-url-insert (concat "http://search.gmane.org/nov.php" "?" (mm-url-encode-www-form-urlencoded (cons (cons "query" search) (quote (("HITSPERPAGE" . "999"))))))) (if nil nil (set-buffer-multibyte t)) (mm-decode-coding-region (point-min) (point-max) (quote utf-8)) (goto-char (point-min)) (forward-line 1) (while (not (eobp)) (if (or (eolp) (looking-at "
")) nil (let ((header (nnheader-parse-nov))) (let ((xref (aref header 8)) (xscore (string-to-number ...))) (if (string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" xref) (progn (setq artlist ...)))))) (forward-line 1)))
(let* ((case-fold-search t) (qstring (cdr (assq (quote query) query))) (server (cadr (gnus-server-to-method srv))) (groupspec (mapconcat (function (lambda (x) (if (gnus-string-match-p "gmane" x) (format "group:%s" ...) (error "Can't search non-gmane groups: %s" x)))) groups " ")) (authorspec (if (assq (quote gmane-author) query) (format "author:%s" (cdr (assq (quote gmane-author) query))) "")) (search (format "%s %s %s" qstring groupspec authorspec)) (gnus-inhibit-demon t) artlist) (require (quote mm-url)) (save-current-buffer (set-buffer (get-buffer-create nnir-tmp-buffer)) (erase-buffer) (mm-url-insert (concat "http://search.gmane.org/nov.php" "?" (mm-url-encode-www-form-urlencoded (cons (cons "query" search) (quote (...)))))) (if nil nil (set-buffer-multibyte t)) (mm-decode-coding-region (point-min) (point-max) (quote utf-8)) (goto-char (point-min)) (forward-line 1) (while (not (eobp)) (if (or (eolp) (looking-at "
")) nil (let ((header (nnheader-parse-nov))) (let ((xref ...) (xscore ...)) (if (string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" xref) (progn ...))))) (forward-line 1))) (apply (quote vector) (nreverse (mm-delete-duplicates artlist))))
nnir-run-gmane(((query . "(OR (OR HEADER Message-Id \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\" HEADER REFERENCES \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\") (OR (OR HEADER Message-Id \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\") (OR (OR HEADER Message-Id \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\") (OR HEADER REFERENCES \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\" HEADER Message-Id \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\"))))") (criteria . "")) "nntp:news.gmane.org" nil)
funcall(nnir-run-gmane ((query . "(OR (OR HEADER Message-Id \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\" HEADER REFERENCES \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\") (OR (OR HEADER Message-Id \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\") (OR (OR HEADER Message-Id \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\") (OR HEADER REFERENCES \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\" HEADER Message-Id \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\"))))") (criteria . "")) "nntp:news.gmane.org" nil)
(and search-func (funcall search-func (cdr (assq (quote nnir-query-spec) specs)) server (cadr x)))
(let* ((server (car x)) (search-engine (nnir-server-to-search-engine server)) (search-func (cadr (assoc search-engine nnir-engines)))) (and search-func (funcall search-func (cdr (assq (quote nnir-query-spec) specs)) server (cadr x))))
(lambda (x) (let* ((server (car x)) (search-engine (nnir-server-to-search-engine server)) (search-func (cadr (assoc search-engine nnir-engines)))) (and search-func (funcall search-func (cdr (assq (quote nnir-query-spec) specs)) server (cadr x)))))(("nntp:news.gmane.org"))
mapcar((lambda (x) (let* ((server (car x)) (search-engine (nnir-server-to-search-engine server)) (search-func (cadr (assoc search-engine nnir-engines)))) (and search-func (funcall search-func (cdr (assq (quote nnir-query-spec) specs)) server (cadr x))))) (("nntp:news.gmane.org") ("native")))
(apply (quote vconcat) (mapcar (function (lambda (x) (let* ((server (car x)) (search-engine (nnir-server-to-search-engine server)) (search-func (cadr ...))) (and search-func (funcall search-func (cdr ...) server (cadr x)))))) (cdr (assq (quote nnir-group-spec) specs))))
nnir-run-query(((nnir-query-spec (query . "(OR (OR HEADER Message-Id \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\" HEADER REFERENCES \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\") (OR (OR HEADER Message-Id \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\") (OR (OR HEADER Message-Id \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\") (OR HEADER REFERENCES \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\" HEADER Message-Id \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\"))))") (criteria . "")) (nnir-group-spec ("nntp:news.gmane.org") ("native"))))
(setq nnir-artlist (nnir-run-query (gnus-group-get-parameter pgroup (quote nnir-specs) t)))
(gnus-group-set-parameter pgroup (quote nnir-artlist) (setq nnir-artlist (nnir-run-query (gnus-group-get-parameter pgroup (quote nnir-specs) t))))
(if (and nnir-artlist dont-check) nil (gnus-group-set-parameter pgroup (quote nnir-artlist) (setq nnir-artlist (nnir-run-query (gnus-group-get-parameter pgroup (quote nnir-specs) t)))) (nnir-request-update-info pgroup (nth 2 (symbol-value (intern-soft pgroup gnus-newsrc-hashtb)))))
(let ((pgroup (gnus-group-guess-full-name-from-command-method group)) length) (if (and nnir-artlist dont-check) nil (gnus-group-set-parameter pgroup (quote nnir-artlist) (setq nnir-artlist (nnir-run-query (gnus-group-get-parameter pgroup (quote nnir-specs) t)))) (nnir-request-update-info pgroup (nth 2 (symbol-value (intern-soft pgroup gnus-newsrc-hashtb))))) (save-current-buffer (set-buffer nntp-server-buffer) (if (zerop (setq length (length nnir-artlist))) (progn (nnir-close-group group) (nnheader-report (quote nnir) "Search produced empty results.")) (nnheader-insert "211 %d %d %d %s\n" length 1 length group))))
nnir-request-group("nnir-m2fuy8v76y.fsf" "nnir-ephemeral" t nil)
gnus-request-group("nnir:nnir-m2fuy8v76y.fsf" t)
gnus-select-newsgroup("nnir:nnir-m2fuy8v76y.fsf" t nil)
gnus-summary-read-group-1("nnir:nnir-m2fuy8v76y.fsf" t t nil nil nil)
gnus-summary-read-group("nnir:nnir-m2fuy8v76y.fsf" t t nil nil nil nil)
(let ((no-display (eq all 0)) (group (or group (gnus-group-group-name))) number active marked entry) (if (eq all 0) (progn (setq all nil))) (if group nil (error "No group on current line")) (setq marked (nth 3 (nth 2 (setq entry (symbol-value (intern-soft group gnus-newsrc-hashtb)))))) (setq number (cond ((numberp all) all) (entry (car entry)) ((setq active (symbol-value (intern-soft group gnus-active-hashtb))) (- (1+ (cdr active)) (car active))))) (gnus-summary-read-group group (or all (and (numberp number) (zerop (+ number (gnus-range-length (cdr ...)) (gnus-range-length (cdr ...)))))) no-article nil no-display nil select-articles))
gnus-group-read-group(t t "nnir:nnir-m2fuy8v76y.fsf" nil)
(let ((gnus-large-newsgroup gnus-large-ephemeral-newsgroup) (gnus-fetch-old-headers gnus-fetch-old-ephemeral-headers)) (gnus-group-read-group (or number t) t group select-articles))
(if (let ((gnus-large-newsgroup gnus-large-ephemeral-newsgroup) (gnus-fetch-old-headers gnus-fetch-old-ephemeral-headers)) (gnus-group-read-group (or number t) t group select-articles)) (progn group))
(condition-case nil (if (let ((gnus-large-newsgroup gnus-large-ephemeral-newsgroup) (gnus-fetch-old-headers gnus-fetch-old-ephemeral-headers)) (gnus-group-read-group (or number t) t group select-articles)) (progn group)) (quit (if debug-on-quit (debug "Quit") (message "Quit reading the ephemeral group")) nil))
(if request-only group (condition-case nil (if (let ((gnus-large-newsgroup gnus-large-ephemeral-newsgroup) (gnus-fetch-old-headers gnus-fetch-old-ephemeral-headers)) (gnus-group-read-group (or number t) t group select-articles)) (progn group)) (quit (if debug-on-quit (debug "Quit") (message "Quit reading the ephemeral group")) nil)))
(let ((group (if (gnus-group-foreign-p group) group (gnus-group-prefixed-name (let ((gname group)) (if (string-match "^[^:]+:" gname) (substring gname ...) gname)) method)))) (set (intern group gnus-active-hashtb) nil) (set (intern group gnus-newsrc-hashtb) (list -1 nil (list group gnus-level-default-subscribed nil nil method (cons (cons (quote quit-config) (cond (quit-config quit-config) (... ...) (t ...))) parameters)))) (setq gnus-ephemeral-servers (cons method gnus-ephemeral-servers)) (if (gnus-buffer-live-p gnus-group-buffer) (progn (set-buffer gnus-group-buffer))) (if (gnus-check-server method) nil (error "Unable to contact server: %s" (gnus-status-message method))) (if activate (progn (gnus-activate-group group (quote scan)) (if (gnus-request-group group) nil (error "Couldn't request group: %s" (nnheader-get-report (car method)))))) (if request-only group (condition-case nil (if (let ((gnus-large-newsgroup gnus-large-ephemeral-newsgroup) (gnus-fetch-old-headers gnus-fetch-old-ephemeral-headers)) (gnus-group-read-group (or number t) t group select-articles)) (progn group)) (quit (if debug-on-quit (debug "Quit") (message "Quit reading the ephemeral group")) nil))))
gnus-group-read-ephemeral-group("nnir-m2fuy8v76y.fsf" (nnir "nnir") nil nil nil nil ((nnir-specs (nnir-query-spec (query . "(OR (OR HEADER Message-Id \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\" HEADER REFERENCES \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\") (OR (OR HEADER Message-Id \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\") (OR (OR HEADER Message-Id \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\") (OR HEADER REFERENCES \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\" HEADER Message-Id \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\"))))") (criteria . "")) (nnir-group-spec ("nntp:news.gmane.org") ("native"))) (nnir-artlist)))
(let* ((group-spec (or (cdr (assq (quote nnir-group-spec) specs)) (if (gnus-server-server-name) (list (list (gnus-server-server-name))) (if (null (or gnus-group-marked ...)) nil (let (value) (mapc ... ...) value))))) (query-spec (or (cdr (assq (quote nnir-query-spec) specs)) (apply (quote append) (list (cons (quote query) (read-string "Query: " nil ...))) (if nnir-extra-parms (progn (mapcar ... group-spec))))))) (gnus-group-read-ephemeral-group (concat "nnir-" (message-unique-id)) (list (quote nnir) "nnir") nil nil nil nil (list (cons (quote nnir-specs) (list (cons (quote nnir-query-spec) query-spec) (cons (quote nnir-group-spec) group-spec))) (cons (quote nnir-artlist) nil))))
gnus-group-make-nnir-group(nil ((nnir-query-spec (query . "(OR (OR HEADER Message-Id \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\" HEADER REFERENCES \"<45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>\") (OR (OR HEADER Message-Id \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com>\") (OR (OR HEADER Message-Id \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\" HEADER REFERENCES \"<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com>\") (OR HEADER REFERENCES \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\" HEADER Message-Id \"<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>\"))))") (criteria . "")) (nnir-group-spec ("nntp:news.gmane.org") ("native"))))
(let* ((query (list (cons (quote query) (nnimap-make-thread-query header)) (cons (quote criteria) ""))) (server (list (list (gnus-method-to-server (gnus-find-method-for-group gnus-newsgroup-name))))) (registry-group (and (gnus-bound-and-true-p (quote gnus-registry-enabled)) (car (gnus-registry-get-id-key (aref header 4) (quote group))))) (registry-server (and registry-group (gnus-method-to-server (gnus-find-method-for-group registry-group))))) (if registry-server (progn (let* ((x (list registry-server))) (if (member x server) server (setq server (cons x server)))))) (gnus-group-make-nnir-group nil (list (cons (quote nnir-query-spec) query) (cons (quote nnir-group-spec) server))) (gnus-summary-goto-subject (gnus-id-to-article (aref header 4))))
nnir-search-thread([5452 "Re: [swift-evolution] Proposal: Add public(objc) modifier" "Kevin Ballard via swift-evolution <swift-evolution@swift.org>" #("Tue, 05 Jan 2016 14:56:42 -0800" 0 1 (gnus-time (22156 18986))) "<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>" "<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com> <1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com> <45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>" -1 -1 nil ((Content-Type . "multipart/mixed; boundary=\"===============8498115576091255371==\"") (Cc . "swift-evolution@swift.org") (To . "=?UTF-8?Q?F=C3=A9lix=20Cloutier?= <felixcca@yahoo.ca>"))])
nnimap-request-thread([5452 "Re: [swift-evolution] Proposal: Add public(objc) modifier" "Kevin Ballard via swift-evolution <swift-evolution@swift.org>" #("Tue, 05 Jan 2016 14:56:42 -0800" 0 1 (gnus-time (22156 18986))) "<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>" "<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com> <1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com> <45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>" -1 -1 nil ((Content-Type . "multipart/mixed; boundary=\"===============8498115576091255371==\"") (Cc . "swift-evolution@swift.org") (To . "=?UTF-8?Q?F=C3=A9lix=20Cloutier?= <felixcca@yahoo.ca>"))] "Swift.org/swift-evolution")
gnus-request-thread([5452 "Re: [swift-evolution] Proposal: Add public(objc) modifier" "Kevin Ballard via swift-evolution <swift-evolution@swift.org>" #("Tue, 05 Jan 2016 14:56:42 -0800" 0 1 (gnus-time (22156 18986))) "<1452034602.1907522.483910882.27FCD7BC@webmail.messagingengine.com>" "<1450207122.3831553.468316081.5CD248D8@webmail.messagingengine.com> <1452025435.1391547.483772138.175DEDA8@webmail.messagingengine.com> <45D47F65-A973-4D9D-B8A6-F09ABEC46778@yahoo.ca>" -1 -1 nil ((Content-Type . "multipart/mixed; boundary=\"===============8498115576091255371==\"") (Cc . "swift-evolution@swift.org") (To . "=?UTF-8?Q?F=C3=A9lix=20Cloutier?= <felixcca@yahoo.ca>"))] "Swift.org/swift-evolution")
gnus-summary-refer-thread(nil)
call-interactively(gnus-summary-refer-thread nil nil)
command-execute(gnus-summary-refer-thread)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment