Created
January 8, 2016 07:56
-
-
Save dabrahams/d39ed6ddad36f161415c to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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