Subject: Gnus problem with gnus-summary-refer-parent-article

From: [email-masked]
Date: Wed, 05 Dec 2012 18:53:25 -0500

This bug report will be sent to the Bug-GNU-Emacs mailing list
and the GNU bug tracker at debbugs.gnu.org.  Please check that
the From: line contains a valid email address.  After a delay of up
to one day, you should receive an acknowledgment at that address.

Please write in English if possible, as the Emacs maintainers
usually do not have translators for other languages.

Please describe exactly what actions triggered the bug, and
the precise symptoms of the bug.  If you can, give a recipe
starting from `emacs -Q':

Hi,

There appears to be a problem with Gnus and gnus-summary-refer-parent-article

When I type "^" (gnus-summary-refer-parent-article) I get the error:

   Wrong type argument: stringp, nil

If I type the same key, ^, immediately after, I either get the parent
article (as originally expected) or I get the error:

        No such function: nnregistry-request-group

I set `toggle-debug-on-error' and see in the *Messages* buffer:

while: No such function: nnregistry-request-group
Entering debugger...
Mark set [2 times]
No references in article -4
utf7-encode: Wrong type argument: stringp, nil

Not sure why the first time pressing the key ^ on an article in the
*Summary* buffer always fails and the second time either succeed to
retrieve the parent article or gives me the
"No such function: nnregistry-request-group" error.

Here is the backtrace:

Debugger entered--Lisp error: (error "No such function: nnregistry-request-group")
  signal(error ("No such function: nnregistry-request-group"))
  (while t (signal (quote error) (list (apply (quote format) args))))
  error("No such function: %s" nnregistry-request-group)
  gnus-request-group("nnimap+aol:INBOX" t)
  gnus-check-group-server()
  gnus-request-article-this-buffer(-4 "nnimap+aol:INBOX")
  gnus-article-prepare(-4 nil)
  (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header))
  (prog1 (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (gnus-run-hooks (quote gnus-select-article-hook)) (if (and gnus-current-article (not (zerop gnus-current-article))) (progn (gnus-summary-goto-subject gnus-current-article))) (gnus-summary-recenter) (if (and gnus-use-trees gnus-show-threads) (progn (gnus-possibly-generate-tree article) (gnus-highlight-selected-tree article))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))))
  (if (null article) nil (prog1 (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (gnus-run-hooks (quote gnus-select-article-hook)) (if (and gnus-current-article (not (zerop gnus-current-article))) (progn (gnus-summary-goto-subject gnus-current-article))) (gnus-summary-recenter) (if (and gnus-use-trees gnus-show-threads) (progn (gnus-possibly-generate-tree article) (gnus-highlight-selected-tree article))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks)))))
  gnus-summary-display-article(-4 nil)
  (progn (gnus-summary-display-article article all-headers) (if (gnus-buffer-live-p gnus-article-buffer) (progn (save-current-buffer (set-buffer gnus-article-buffer) (if (not gnus-article-decoded-p) (mm-disable-multibyte))))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))) article)
  (if (or (and gnus-single-article-buffer (or (null gnus-current-article) (null gnus-article-current) (null (get-buffer gnus-article-buffer)) (not (eq article (cdr gnus-article-current))) (not (equal (car gnus-article-current) gnus-newsgroup-name)) (not (get-buffer gnus-original-article-buffer)))) (and (not gnus-single-article-buffer) (or (null gnus-current-article) (not (get-buffer gnus-original-article-buffer)) (not (eq gnus-current-article article)))) force) (progn (gnus-summary-display-article article all-headers) (if (gnus-buffer-live-p gnus-article-buffer) (progn (save-current-buffer (set-buffer gnus-article-buffer) (if (not gnus-article-decoded-p) (mm-disable-multibyte))))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))) article) (quote old))
  (save-current-buffer (set-buffer gnus-summary-buffer) (if (or (and gnus-single-article-buffer (or (null gnus-current-article) (null gnus-article-current) (null (get-buffer gnus-article-buffer)) (not (eq article (cdr gnus-article-current))) (not (equal (car gnus-article-current) gnus-newsgroup-name)) (not (get-buffer gnus-original-article-buffer)))) (and (not gnus-single-article-buffer) (or (null gnus-current-article) (not (get-buffer gnus-original-article-buffer)) (not (eq gnus-current-article article)))) force) (progn (gnus-summary-display-article article all-headers) (if (gnus-buffer-live-p gnus-article-buffer) (progn (save-current-buffer (set-buffer gnus-article-buffer) (if (not gnus-article-decoded-p) (mm-disable-multibyte))))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))) article) (quote old)))
  (let ((article (or article (progn (let ((to ...)) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject))))) (all-headers (not (not all-headers))) gnus-summary-display-article-function) (and (not pseudo) (gnus-summary-article-pseudo-p article) (error "This is a pseudo-article")) (save-current-buffer (set-buffer gnus-summary-buffer) (if (or (and gnus-single-article-buffer (or (null gnus-current-article) (null gnus-article-current) (null (get-buffer gnus-article-buffer)) (not (eq article ...)) (not (equal ... gnus-newsgroup-name)) (not (get-buffer gnus-original-article-buffer)))) (and (not gnus-single-article-buffer) (or (null gnus-current-article) (not (get-buffer gnus-original-article-buffer)) (not (eq gnus-current-article article)))) force) (progn (gnus-summary-display-article article all-headers) (if (gnus-buffer-live-p gnus-article-buffer) (progn (save-current-buffer (set-buffer gnus-article-buffer) (if ... ...)))) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))) article) (quote old))))
  gnus-summary-select-article(nil nil nil -4)
  (progn (gnus-summary-select-article nil nil nil number) (throw (quote found) t))
  (if (and (gnus-check-server gnus-override-method) (setq number (gnus-summary-insert-subject message-id))) (progn (gnus-summary-select-article nil nil nil number) (throw (quote found) t)))
  (while --dolist-tail-- (setq gnus-override-method (car --dolist-tail--)) (if (and (gnus-check-server gnus-override-method) (setq number (gnus-summary-insert-subject message-id))) (progn (gnus-summary-select-article nil nil nil number) (throw (quote found) t))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- (gnus-refer-article-methods)) gnus-override-method) (while --dolist-tail-- (setq gnus-override-method (car --dolist-tail--)) (if (and (gnus-check-server gnus-override-method) (setq number (gnus-summary-insert-subject message-id))) (progn (gnus-summary-select-article nil nil nil number) (throw (quote found) t))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (progn (let ((--dolist-tail-- (gnus-refer-article-methods)) gnus-override-method) (while --dolist-tail-- (setq gnus-override-method (car --dolist-tail--)) (if (and (gnus-check-server gnus-override-method) (setq number (gnus-summary-insert-subject message-id))) (progn (gnus-summary-select-article nil nil nil number) (throw (quote found) t))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (catch (quote found) (progn (let ((--dolist-tail-- (gnus-refer-article-methods)) gnus-override-method) (while --dolist-tail-- (setq gnus-override-method (car --dolist-tail--)) (if (and (gnus-check-server gnus-override-method) (setq number (gnus-summary-insert-subject message-id))) (progn (gnus-summary-select-article nil nil nil number) (throw (quote found) t))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (gnus-message 3 "Couldn't fetch article %s" message-id))
  (cond ((and header (or (not (memq (aref header 0) gnus-newsgroup-sparse)) sparse)) (prog1 (gnus-summary-goto-article (aref header 0) nil t) (if sparse (progn (gnus-summary-update-article (aref header 0)))))) (t (catch (quote found) (progn (let ((--dolist-tail-- (gnus-refer-article-methods)) gnus-override-method) (while --dolist-tail-- (setq gnus-override-method (car --dolist-tail--)) (if (and ... ...) (progn ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (gnus-message 3 "Couldn't fetch article %s" message-id))))
  (let* ((header (gnus-id-to-header message-id)) (sparse (and header (memq (aref header 0) gnus-newsgroup-sparse) (memq (aref header 0) gnus-newsgroup-limit))) number) (cond ((and header (or (not (memq (aref header 0) gnus-newsgroup-sparse)) sparse)) (prog1 (gnus-summary-goto-article (aref header 0) nil t) (if sparse (progn (gnus-summary-update-article (aref header 0)))))) (t (catch (quote found) (progn (let ((--dolist-tail-- ...) gnus-override-method) (while --dolist-tail-- (setq gnus-override-method ...) (if ... ...) (setq --dolist-tail-- ...)))) (gnus-message 3 "Couldn't fetch article %s" message-id)))))
  (progn (setq message-id (gnus-replace-in-string message-id " " "")) (if (string-match "^<" message-id) nil (setq message-id (concat "<" message-id))) (if (string-match ">$" message-id) nil (setq message-id (concat message-id ">"))) (if (string-match "@" message-id) nil (setq message-id (gnus-url-unhex-string message-id))) (let* ((header (gnus-id-to-header message-id)) (sparse (and header (memq (aref header 0) gnus-newsgroup-sparse) (memq (aref header 0) gnus-newsgroup-limit))) number) (cond ((and header (or (not (memq ... gnus-newsgroup-sparse)) sparse)) (prog1 (gnus-summary-goto-article (aref header 0) nil t) (if sparse (progn (gnus-summary-update-article ...))))) (t (catch (quote found) (progn (let (... gnus-override-method) (while --dolist-tail-- ... ... ...))) (gnus-message 3 "Couldn't fetch article %s" message-id))))))
  (if (and (stringp message-id) (not (zerop (length message-id)))) (progn (setq message-id (gnus-replace-in-string message-id " " "")) (if (string-match "^<" message-id) nil (setq message-id (concat "<" message-id))) (if (string-match ">$" message-id) nil (setq message-id (concat message-id ">"))) (if (string-match "@" message-id) nil (setq message-id (gnus-url-unhex-string message-id))) (let* ((header (gnus-id-to-header message-id)) (sparse (and header (memq (aref header 0) gnus-newsgroup-sparse) (memq (aref header 0) gnus-newsgroup-limit))) number) (cond ((and header (or (not ...) sparse)) (prog1 (gnus-summary-goto-article (aref header 0) nil t) (if sparse (progn ...)))) (t (catch (quote found) (progn (let ... ...)) (gnus-message 3 "Couldn't fetch article %s" message-id)))))))
  gnus-summary-refer-article("<[email-masked]>")
  (if (gnus-summary-refer-article (gnus-parent-id ref skip)) nil (gnus-message 1 "Couldn't find parent"))
  (if (and ref (not (equal ref ""))) (if (gnus-summary-refer-article (gnus-parent-id ref skip)) nil (gnus-message 1 "Couldn't find parent")) (gnus-message 1 "No references in article %d" (progn (let ((to (get-text-property (point) (quote gnus-intangible)))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject)))) (setq error t))
  (while (and (> n 0) (not error)) (setq header (nth 3 (assq (progn (let ((to ...)) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject))) gnus-newsgroup-data))) (if (and (eq (aref header 0) (cdr gnus-article-current)) (equal gnus-newsgroup-name (car gnus-article-current))) (save-current-buffer (set-buffer gnus-original-article-buffer) (nnheader-narrow-to-headers) (if (setq ref (message-fetch-field "references")) nil (if (setq ref (message-fetch-field "in-reply-to")) (progn (setq ref (gnus-extract-message-id-from-in-reply-to ref))))) (widen)) (setq ref (aref header 5))) (if (and ref (not (equal ref ""))) (if (gnus-summary-refer-article (gnus-parent-id ref skip)) nil (gnus-message 1 "Couldn't find parent")) (gnus-message 1 "No references in article %d" (progn (let ((to (get-text-property ... ...))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject)))) (setq error t)) (setq n (1- n)))
  (let ((skip 1) error header ref) (if (not (natnump n)) (progn (setq skip (abs n) n 1))) (while (and (> n 0) (not error)) (setq header (nth 3 (assq (progn (let (...) (and to ...)) (or (get-text-property ... ...) (gnus-summary-last-subject))) gnus-newsgroup-data))) (if (and (eq (aref header 0) (cdr gnus-article-current)) (equal gnus-newsgroup-name (car gnus-article-current))) (save-current-buffer (set-buffer gnus-original-article-buffer) (nnheader-narrow-to-headers) (if (setq ref (message-fetch-field "references")) nil (if (setq ref (message-fetch-field "in-reply-to")) (progn (setq ref ...)))) (widen)) (setq ref (aref header 5))) (if (and ref (not (equal ref ""))) (if (gnus-summary-refer-article (gnus-parent-id ref skip)) nil (gnus-message 1 "Couldn't find parent")) (gnus-message 1 "No references in article %d" (progn (let ((to ...)) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject)))) (setq error t)) (setq n (1- n))) (gnus-summary-position-point) n)
  gnus-summary-refer-parent-article(1)
  call-interactively(gnus-summary-refer-parent-article nil nil)

Thanks.

If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
For information about debugging Emacs, please read the file
e:/emacs-24.2.90/etc/DEBUG.

In GNU Emacs 24.2.90.1 (i386-mingw-nt6.1.7601)
 of 2012-12-03 on MS-W7-DANI
Bzr revision: 110985 [email-masked]
Windowing system distributor `Microsoft Corp.', version 6.1.7601
Configured using:
 `configure --with-gcc (4.7) --no-opt --enable-checking --cflags
 -Ic:/emacs/libs/libXpm-3.5.10/include -Ic:/emacs/libs/libXpm-3.5.10/src
 -Ic:/emacs/libs/libpng-1.2.37-lib/include -Ic:/emacs/libs/zlib-1.2.5
 -Ic:/emacs/libs/giflib-4.1.4-1-lib/include
 -Ic:/emacs/libs/jpeg-6b-4-lib/include
 -Ic:/emacs/libs/tiff-3.8.2-1-lib/include
 -Ic:/emacs/libs/libxml2-2.7.8-w32-bin/include/libxml2
 -Ic:/emacs/libs/gnutls-3.0.9-w32-bin/include
 -Ic:/emacs/libs/libiconv-1.9.2-1-lib/include'

Important settings:
  value of $LANG: en_US
  locale-coding-system: cp1252
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <menu-bar> <help-menu> <send-emacs-bug
-report>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml
easymenu mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231
mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums
mm-util mail-prsvr mail-utils time-date tooltip ediff-hook vc-hooks
lisp-float-type mwheel dos-w32 ls-lisp w32-common-fns disp-table w32-win
w32-vars tool-bar dnd fontset image regexp-opt fringe tabulated-list
newcomment lisp-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham
georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese hebrew greek romanian slovak czech european ethiopic
indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple
abbrev minibuffer button faces cus-face macroexp files text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote make-network-process w32 multi-tty
emacs)