Re: number-or-marker-p

[John Hunter]

>>>>> "Kai" == Kai Grossjohann <kai@emptydomain.de> writes:

    Kai> Whee.  Can't see much from there.  It would be useful to

    Kai> M-x load-library RET gnus-range.el RET M-x load-library RET
    Kai> gnus-sum.el RET

This one is a little more wordy :-)


Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p (21067))
  =((21067) (21067))
  (cond ((= last ...) nil) ((= ... ...) (setq last ...)) (t (setq result ...) 
(setq first ...) (setq last ...)))
  (while numbers (cond (... nil) (... ...) (t ... ... ...)) (setq numbers (cdr 
numbers)))
  (if (not (listp ...)) numbers (while numbers (cond ... ... ...) (setq numbers 
...)) (if (and ... ...) (if ... ... ...) (nreverse ...)))
  (if (null numbers) nil (if (not ...) numbers (while numbers ... ...) (if ... 
... ...)))
  (let* ((first ...) (last ...) result) (if (null numbers) nil (if ... numbers 
... ...)))
  gnus-compress-sequence(((21067)) t)
  (setq list (gnus-compress-sequence (set symbol ...) t))
  (progn (setq list (gnus-compress-sequence ... t)))
  (if (eq (gnus-article-mark-to-type ...) (quote list)) (progn (setq list ...)))
  (when (eq (gnus-article-mark-to-type ...) (quote list)) (setq list 
(gnus-compress-sequence ... t)))
  (while (setq type (pop types)) (setq list (symbol-value ...)) (when list 
(when ... ...)) (when (eq ... ...) (setq list ...)) (when (eq ... ...) (setq 
list ...)) (when (and ... ...) (let* ... ... ...)) (when list (push ... 
newmarked)))
  (progn (while (setq type ...) (setq list ...) (when list ...) (when ... ...) 
(when ... ...) (when ... ...) (when list ...)) (when delta-marks (unless ... 
...) (gnus-request-set-mark gnus-newsgroup-name delta-marks)) (if (nthcdr 3 
info) (setcar ... newmarked) (when newmarked ...)) (let (...) (while ... ...)))
  (if info (progn (while ... ... ... ... ... ... ...) (when delta-marks ... 
...) (if ... ... ...) (let ... ...)))
  (when info (while (setq type ...) (setq list ...) (when list ...) (when ... 
...) (when ... ...) (when ... ...) (when list ...)) (when delta-marks (unless 
... ...) (gnus-request-set-mark gnus-newsgroup-name delta-marks)) (if (nthcdr 3 
info) (setcar ... newmarked) (when newmarked ...)) (let (...) (while ... ...)))
  (let ((types gnus-article-mark-lists) (info ...) type list newmarked symbol 
delta-marks) (when info (while ... ... ... ... ... ... ...) (when delta-marks 
... ...) (if ... ... ...) (let ... ...)))
  gnus-update-marks()
  (save-excursion (gnus-update-marks))
  (let ((gnus-newsgroup-scored ...)) (save-excursion (gnus-update-marks)))
  (let ((headers gnus-newsgroup-headers)) (save-excursion (set-buffer 
gnus-group-buffer) (gnus-undo-force-boundary)) (gnus-update-read-articles group 
(gnus-sorted-union gnus-newsgroup-unreads gnus-newsgroup-unselected)) (let 
(...) (save-excursion ...)) (when gnus-use-cross-reference 
(gnus-mark-xrefs-as-read group headers gnus-newsgroup-unreads)) (set-buffer 
gnus-group-buffer) (unless (gnus-ephemeral-group-p group) 
(gnus-group-update-group group)))
  (progn (when gnus-newsgroup-kill-headers (setq gnus-newsgroup-killed ...)) 
(unless (listp ...) (setq gnus-newsgroup-killed ...)) (let (...) 
(save-excursion ... ...) (gnus-update-read-articles group ...) (let ... ...) 
(when gnus-use-cross-reference ...) (set-buffer gnus-group-buffer) (unless ... 
...)))
  (if group (progn (when gnus-newsgroup-kill-headers ...) (unless ... ...) (let 
... ... ... ... ... ... ...)))
  (when group (when gnus-newsgroup-kill-headers (setq gnus-newsgroup-killed 
...)) (unless (listp ...) (setq gnus-newsgroup-killed ...)) (let (...) 
(save-excursion ... ...) (gnus-update-read-articles group ...) (let ... ...) 
(when gnus-use-cross-reference ...) (set-buffer gnus-group-buffer) (unless ... 
...)))
  (let ((group gnus-newsgroup-name)) (when group (when 
gnus-newsgroup-kill-headers ...) (unless ... ...) (let ... ... ... ... ... ... 
...)))
  (save-excursion (let (...) (when group ... ... ...)))
  gnus-summary-update-info()
  (if quit-config nil (gnus-run-hooks (quote gnus-exit-group-hook)) 
(gnus-summary-update-info))
  (unless quit-config (gnus-run-hooks (quote gnus-exit-group-hook)) 
(gnus-summary-update-info))
  (let* ((group gnus-newsgroup-name) (quit-config ...) (gnus-group-is-exiting-p 
t) (mode major-mode) (group-point nil) (buf ...)) (unless quit-config (when 
gnus-newsgroup-adaptive ...) (when gnus-use-scoring ...)) (gnus-run-hooks 
(quote gnus-summary-prepare-exit-hook)) (unless gnus-single-article-buffer 
(gnus-kill-buffer gnus-original-article-buffer) (setq gnus-article-current 
nil)) (when gnus-use-cache (gnus-cache-possibly-remove-articles) 
(gnus-cache-save-buffers)) (gnus-async-prefetch-remove-group group) (when 
gnus-suppress-duplicates (gnus-dup-enter-articles)) (when gnus-use-trees 
(gnus-tree-close group)) (when gnus-use-cache (gnus-cache-write-active)) 
(nnmail-purge-split-history (gnus-group-real-name group)) (unless quit-config 
(gnus-run-hooks ...) (gnus-summary-update-info)) (gnus-close-group group) 
(set-buffer gnus-group-buffer) (unless quit-config (gnus-group-jump-to-group 
group)) (gnus-run-hooks (quote gnus-summary-exit-hook)) (unless (or quit-config 
...) (gnus-group-next-unread-group 1)) (setq group-point (point)) (if temporary 
nil (unless gnus-single-article-buffer ... ... ...) (set-buffer buf) (if ... 
... ... ... ... ... ... ... ...) (setq gnus-current-select-method 
gnus-select-method) (pop-to-buffer gnus-group-buffer) (if ... ... ...) (unless 
quit-config ...)))
  gnus-summary-exit()
  call-interactively(gnus-summary-exit)
  recursive-edit()
  byte-code("Æ!ˆÇ ˆÈ   !ˆ\nƒ?Éed\"Vƒ4ebˆÊ¥yˆ`dbˆÊ¥Zyˆ\f`|ˆ)ËcˆebˆÌÍ !ˆÎ 
ˆ       @Ï=ƒKÐÑÒ\"ˆÓ ˆÌÔ!ˆÒÕÒÌÔ!ˆŠÖ ˆ,Շ" [debugger-buffer debugger-args 
noninteractive debugger-batch-max-lines middlestart buffer-read-only 
pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message 
buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil 
recursive-edit standard-output inhibit-trace] 3)
  debug(error (wrong-type-argument integer-or-marker-p nil))
  goto-char(nil)
  (save-excursion (goto-char start) (if (looking-at 
"\\('''\\|\"\"\"\\|'\\|\"\\)\\\\?\n?") (setq string-start ... delim-length ... 
delim ...) (error "The parameter start is not the beginning of a python 
string")) (save-excursion (beginning-of-line) (and ... ... ...)) (forward-sexp 
(if ... 2 1)) (setq string-end (1- ...)))
  (let (string-start string-end delim-length delim) (save-excursion (goto-char 
start) (if ... ... ...) (save-excursion ... ...) (forward-sexp ...) (setq 
string-end ...)) (save-restriction (narrow-to-region string-start string-end) 
(let ... ... ...)) t)
  py-fill-string(nil)
  (cond ((or ... ...) (py-fill-comment justify)) ((nth 3 pps) (py-fill-string 
...)) (t (fill-paragraph justify)))
  (let* ((bod ...) (pps ...)) (cond (... ...) (... ...) (t ...)))
  py-fill-paragraph(nil)
  call-interactively(py-fill-paragraph)
  recursive-edit()
  byte-code("Æ!ˆÇ ˆÈ   !ˆ\nƒ?Éed\"Vƒ4ebˆÊ¥yˆ`dbˆÊ¥Zyˆ\f`|ˆ)ËcˆebˆÌÍ !ˆÎ 
ˆ       @Ï=ƒKÐÑÒ\"ˆÓ ˆÌÔ!ˆÒÕÒÌÔ!ˆŠÖ ˆ,Շ" [debugger-buffer debugger-args 
noninteractive debugger-batch-max-lines middlestart buffer-read-only 
pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message 
buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil 
recursive-edit standard-output inhibit-trace] 3)
  debug(error (wrong-type-argument number-or-marker-p (21064)))
  gnus-compress-sequence(((21064)) t)
  gnus-update-marks()
  gnus-summary-update-info()
  gnus-summary-exit()
  call-interactively(gnus-summary-exit)