J c gives empty buffer and error

J c gives empty buffer and error

[Christian Nybø]

[-- Attachment #1: Type: text/plain, Size: 477 bytes --]

In the *Group* buffer, I place point on the line containing list.gnus,
and do `J c'.  emacs swithces to a buffer called *Agent Category*,
which is empty, and I get the error message: "Wrong type argument:
sequencep, nnml:"

My value for gnus-category-alist is ((mail true nil nnml:) (default
short nil nil)).  Is there anything wrong with that?

emacs-version  "21.2 \"Aphrodite\" XEmacs Lucid (beta5)"
gnus-version   "Pterodactyl Gnus v0.83" 

I've attached the backtrace.  


[-- Attachment #2: Backtrace of gnus-enter-category-buffer --]
[-- Type: text/plain, Size: 8849 bytes --]

Signaling: (wrong-type-argument sequencep nnml:)
  length(nnml:)
  (let* ((gnus-tmp-name ...) (gnus-tmp-groups ...)) (beginning-of-line) (gnus-add-text-properties (point) (prog1 ... ...) (list ... gnus-tmp-name)))
)
  gnus-category-insert-line((mail true nil nnml:))
  (while alist (gnus-category-insert-line (pop alist)))
)
  (let ((alist gnus-category-alist) (buffer-read-only nil)) (erase-buffer) (while alist (gnus-category-insert-line ...)) (goto-char (point-min)) (gnus-category-position-point))
)
  gnus-category-prepare()
  (lambda nil "Go to the Category buffer." (interactive) (gnus-category-setup-buffer) (gnus-configure-windows (quote category)) (gnus-category-prepare))()
  call-interactively(gnus-enter-category-buffer)
  recursive-edit()
  byte-code("..." [pop-to-buffer debugger-buffer erase-buffer t 50 print-length print-escape-newlines standard-output backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable debugger-args (lambda debug) "Entering:\n" debug backtrace-debug 3 delete-char ?\* 0 exit "Return value: " debugger-value prin1 ?\n ?\  error "Signaling: " "Beginning evaluation of function call form:\n" nil message "" buffer-read-only inhibit-trace recursive-edit] 3)
  debug(error (wrong-type-argument sequencep nnml:))
  length(nnml:)
  (let* ((gnus-tmp-name ...) (gnus-tmp-groups ...)) (beginning-of-line) (gnus-add-text-properties (point) (prog1 ... ...) (list ... gnus-tmp-name)))
)
  gnus-category-insert-line((mail true nil nnml:))
  (while alist (gnus-category-insert-line (pop alist)))
)
  (let ((alist gnus-category-alist) (buffer-read-only nil)) (erase-buffer) (while alist (gnus-category-insert-line ...)) (goto-char (point-min)) (gnus-category-position-point))
)
  gnus-category-prepare()
  (lambda nil "Go to the Category buffer." (interactive) (gnus-category-setup-buffer) (gnus-configure-windows (quote category)) (gnus-category-prepare))()
  call-interactively(gnus-enter-category-buffer)
  recursive-edit()
  byte-code("..." [pop-to-buffer debugger-buffer erase-buffer t 50 print-length print-escape-newlines standard-output backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable debugger-args (lambda debug) "Entering:\n" debug backtrace-debug 3 delete-char ?\* 0 exit "Return value: " debugger-value prin1 ?\n ?\  error "Signaling: " "Beginning evaluation of function call form:\n" nil message "" buffer-read-only inhibit-trace recursive-edit] 3)
  debug(error (error "Selecting deleted or non-existent buffer"))
  set-buffer(#<killed buffer>)
  (save-excursion (set-buffer gnus-agent-current-history) (gnus-make-directory (file-name-directory gnus-agent-file-name)) (let (...) (write-region ... ... gnus-agent-file-name nil ...)))
)
  gnus-agent-save-history()
  gnus-agent-stop-fetch()
  erase-buffer()
  byte-code("..." [pop-to-buffer debugger-buffer erase-buffer t 50 print-length print-escape-newlines standard-output backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable debugger-args (lambda debug) "Entering:\n" debug backtrace-debug 3 delete-char ?\* 0 exit "Return value: " debugger-value prin1 ?\n ?\  error "Signaling: " "Beginning evaluation of function call form:\n" nil message "" buffer-read-only inhibit-trace recursive-edit] 3)
  debug(error (wrong-type-argument sequencep nnml:))
  length(nnml:)
  (let* ((gnus-tmp-name ...) (gnus-tmp-groups ...)) (beginning-of-line) (gnus-add-text-properties (point) (prog1 ... ...) (list ... gnus-tmp-name)))
)
  gnus-category-insert-line((mail true nil nnml:))
  (while alist (gnus-category-insert-line (pop alist)))
)
  (let ((alist gnus-category-alist) (buffer-read-only nil)) (erase-buffer) (while alist (gnus-category-insert-line ...)) (goto-char (point-min)) (gnus-category-position-point))
)
  gnus-category-prepare()
  (lambda nil "Go to the Category buffer." (interactive) (gnus-category-setup-buffer) (gnus-configure-windows (quote category)) (gnus-category-prepare))()
  call-interactively(gnus-enter-category-buffer)
  recursive-edit()
  byte-code("..." [pop-to-buffer debugger-buffer erase-buffer t 50 print-length print-escape-newlines standard-output backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable debugger-args (lambda debug) "Entering:\n" debug backtrace-debug 3 delete-char ?\* 0 exit "Return value: " debugger-value prin1 ?\n ?\  error "Signaling: " "Beginning evaluation of function call form:\n" nil message "" buffer-read-only inhibit-trace recursive-edit] 3)
  debug(error (wrong-type-argument listp nnml:))
  cdr(nnml:)
  (setq groups (cdr groups))
)
  (prog1 groups (setq groups (cdr groups)))
)
  (car (prog1 groups (setq groups ...)))
)
  (pop groups)
)
  (intern (pop groups) gnus-category-group-cache)
)
  (set (intern (pop groups) gnus-category-group-cache) cat)
)
  (gnus-sethash (pop groups) cat gnus-category-group-cache)
)
  (while groups (gnus-sethash (pop groups) cat gnus-category-group-cache))
)
  (while (setq cat (pop cs)) (setq groups (cadddr cat)) (while groups (gnus-sethash ... cat gnus-category-group-cache)))
)
  (let ((cs gnus-category-alist) groups cat) (while (setq cat ...) (setq groups ...) (while groups ...)))
)
  (if gnus-category-group-cache nil (setq gnus-category-group-cache (gnus-make-hashtable 1000)) (let (... groups cat) (while ... ... ...)))
)
  (unless gnus-category-group-cache (setq gnus-category-group-cache (gnus-make-hashtable 1000)) (let (... groups cat) (while ... ... ...)))
)
  gnus-group-category("nnml+private:list.gnus")
  (setq category (gnus-group-category group))
)
  (progn (setq gnus-newsgroup-dependencies (make-vector ... 0)) (let (...) (setq gnus-newsgroup-headers ...)) (setq category (gnus-group-category group)) (setq predicate (gnus-get-predicate ...)) (if (or ... ...) (setq arts ...) (setq score-param ...) (when score-param ...) (setq arts nil) (while ... ... ...)) (when arts (gnus-agent-fetch-articles group arts)))
)
  (if (and (or ... ...) (setq articles ...)) (progn (setq gnus-newsgroup-dependencies ...) (let ... ...) (setq category ...) (setq predicate ...) (if ... ... ... ... ... ...) (when arts ...)))
)
  (when (and (or ... ...) (setq articles ...)) (setq gnus-newsgroup-dependencies (make-vector ... 0)) (let (...) (setq gnus-newsgroup-headers ...)) (setq category (gnus-group-category group)) (setq predicate (gnus-get-predicate ...)) (if (or ... ...) (setq arts ...) (setq score-param ...) (when score-param ...) (setq arts nil) (while ... ... ...)) (when arts (gnus-agent-fetch-articles group arts)))
)
  (let ((gnus-command-method method) (gnus-newsgroup-name group) gnus-newsgroup-dependencies gnus-newsgroup-headers gnus-newsgroup-scored gnus-headers gnus-score gnus-use-cache articles arts category predicate info marks score-param) (when (and ... ...) (setq gnus-newsgroup-dependencies ...) (let ... ...) (setq category ...) (setq predicate ...) (if ... ... ... ... ... ...) (when arts ...)) (setq arts (assq ... ...)) (when (cdr arts) (gnus-agent-fetch-articles group ...) (setq marks ...) (gnus-info-set-marks info marks) (gnus-dribble-enter ...)))
)
  gnus-agent-fetch-group-1("nnml+private:list.gnus" (nnml "private"))
  (if (<= (gnus-group-level group) gnus-agent-handle-level) (gnus-agent-fetch-group-1 group gnus-command-method))
)
  (when (<= (gnus-group-level group) gnus-agent-handle-level) (gnus-agent-fetch-group-1 group gnus-command-method))
)
  (while (setq group (pop groups)) (when (<= ... gnus-agent-handle-level) (gnus-agent-fetch-group-1 group gnus-command-method)))
)
  (progn (gnus-agent-start-fetch) (while (setq group ...) (when ... ...)))
)
  (unwind-protect (progn (gnus-agent-start-fetch) (while ... ...)) (gnus-agent-stop-fetch))
)
  (gnus-agent-with-fetch (while (setq group ...) (when ... ...)))
)
  (progn (setq groups (gnus-groups-from-server ...)) (gnus-agent-with-fetch (while ... ...)))
)
  (if (or (gnus-server-opened gnus-command-method) (gnus-open-server gnus-command-method)) (progn (setq groups ...) (gnus-agent-with-fetch ...)))
)
  (when (or (gnus-server-opened gnus-command-method) (gnus-open-server gnus-command-method)) (setq groups (gnus-groups-from-server ...)) (gnus-agent-with-fetch (while ... ...)))
)
  (while methods (setq gnus-command-method (car methods)) (when (or ... ...) (setq groups ...) (gnus-agent-with-fetch ...)) (pop methods))
)
  (save-excursion (while methods (setq gnus-command-method ...) (when ... ... ...) (pop methods)) (gnus-message 6 "Finished fetching articles into the Gnus agent"))
)
  (let ((methods gnus-agent-covered-methods) groups group gnus-command-method) (save-excursion (while methods ... ... ...) (gnus-message 6 "Finished fetching articles into the Gnus agent")))
)
  gnus-agent-fetch-session()
  chr-get-news()
  #<compiled-function nil "...(9)" [gnus-plugged gnus-group-get-new-news chr-get-news] 1 nil nil>()
  call-interactively(chr-get-maybe)

[-- Attachment #3: Type: text/plain, Size: 31 bytes --]


Thanks for any hints.
-- 
chr

Re: J c gives empty buffer and error

[Lars Magne Ingebrigtsen]

"Christian Nybø" <s911254@stud.nhh.no> writes:

> My value for gnus-category-alist is ((mail true nil nnml:) (default
> short nil nil)).  Is there anything wrong with that?

Yes, I don't think that's a valid value...  How did you get that?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen