Gnus development mailing list
 help / color / mirror / Atom feed
From: Hrvoje Niksic <hniksic@srce.hr>
Cc: ding@gnus.org
Subject: Gnus fails to show some email messages
Date: 26 Mar 1998 13:53:55 +0100	[thread overview]
Message-ID: <kigd8f9txy4.fsf@jagor.srce.hr> (raw)

Gnus v5.6.2; nntp 5.0; nnml 1.0; nnmh 1.0; nndraft 1.0; nnfolder 1.0
XEmacs 21.0 "Myotonic" [Lucid] (sparc-sun-solaris2.5.1) of Mon Mar 23 1998 on jagor.srce.hr
200 CARNet.hr InterNetNews NNRP server INN 1.4unoff4 05-Mar-96 ready (posting ok).


I have noticed a bug in Gnus: it fails to show some email messages.
That is the second most serious bug a mail reader can exhibit (the
first most serious bug is to delete or corrupt the message without
showing it).  For instance, ~/Mail/xemacs.beta/20087 is present on
disk.  It is currently the last message in the `xemacs.beta' group,
and its NOV entry looks like this:

20087	Re: [PATCH MS-Windows] Major display glitches assault 	"Kirill M. Katsnelson" <kkm@kis.ru>	Thu, 26 Mar 1998 15:21:48 +0300	<3.0.5.32.19980326152148.00a9cd60@kis.ru>	<3.0.5.32.19980322183244.00a82180@kis.ru> <Your message of "Fri, 20 Mar 1998 14:41:33 PST."             <002201bd5451$5595b280$4432a8c0@Raj_D.squaresoft.com> <199803202354.AA217888095@mina.sr.hp.com> <3.0.5.32.19980322183244.00a82180@kis.ru>	8954	163	Xref: jagor.srce.hr xemacs.beta:20087	

The `xemacs.beta' information in `.newsrc.eld' looks like this:

("nnml:xemacs.beta" 2 ((1 . 20087)) ((reply 19020 19053 (19065 . 19066) 19077 19082 19089 19124 19130 19139 19148 (19159 . 19160) 19166 (19172 . 19173) 19179 19181 19189 19195 19198 19202 19235 19238 19258 19264 19271 19275 (19283 . 19284) 19294 19303 19316 19322 19327 19330 19350 19410 19452 19483 19485 19488 19492 19561 19568 19588 19606 19612 19624 19634 19654 19662 19701 19703 19705 19739 19751 19776 19786 19792 19800 (19807 . 19808) 19814 19822 19825 19853 19857 19862 19867 19924 19943 19965 19974 19980 20005 20031 20044)) (nnml "") ((to-address . "XEmacs Developers <xemacs-beta@xemacs.org>") (total-expire . t) (expiry-wait . 14)))


However, that message is not shown when I enter the group with `RET',
`C-u RET', `1 RET' or anything else.  When I press `1 RET', Gnus tries
to enter the group, but apparently gives up, because it just runs the
expiry process and switches me back to Group buffer.  Typing `2 RET'
generates the summary buffer with only one message, the second-to-last
one.

When I enter the group with `C-u RET', typing `j TAB' does not offer
20087 as a choice.  Typing `j 20087 RET' ends up in an apparently
infite loop, debug-on-quit giving the backtrace appended below.


I have noticed this happening since some time into Quassia, and it's
very serious.  It happens on some messages, and not on others.  I have
no clue how to debug it, and I may be forced to downgrade to Gnus 5.5
because of this bug.

If it happens to anyone else, I'd like to know about it.


The C-g backtrace follows:

Signaling: (quit)
  (mail-header-references prev)
)
  (gnus-parent-id (mail-header-references prev))
)
  (setq last-id id id (gnus-parent-id (mail-header-references prev)))
)
  (while (and id (setq prev ...)) (setq last-id id id (gnus-parent-id ...)))
)
  (let (last-id prev) (while (and id ...) (setq last-id id id ...)) last-id)
)
  gnus-root-id("<3.0.5.32.19980326152148.00a9cd60@kis.ru>")
  (setq last-id (gnus-root-id id))
)
  (let ((dep gnus-newsgroup-dependencies) headers thread last-id) (setq last-id (gnus-root-id id)) (setq headers (list ... ...)) (let (... sub) (while threads ... ... ...) (if thread ... ...) (when thread ...)))
)
  gnus-remove-thread("<3.0.5.32.19980326152148.00a9cd60@kis.ru>")
  (setq thread (gnus-remove-thread id))
)
  (if (not gnus-show-threads) (setq thread (list ...)) (setq thread (gnus-remove-thread id)))
)
  (let ((buffer-read-only nil) old-pos current thread data) (if (not gnus-show-threads) (setq thread ...) (setq thread ...)) (setq old-pos (gnus-point-at-bol)) (setq current (save-excursion ...)) (when (stringp ...) (let ... ... ... ...)) (let (threads) (let ... ... ... ...) (gnus-data-enter-list current data ...) (setq gnus-newsgroup-threads ...)))
)
  gnus-rebuild-thread("<3.0.5.32.19980326152148.00a9cd60@kis.ru>")
  (progn (when (and ... old-header) (when ... ... ...)) (when old-header (mail-header-set-number header ...)) (setq gnus-newsgroup-sparse (delq ... gnus-newsgroup-sparse)) (setq gnus-newsgroup-ancient (delq number gnus-newsgroup-ancient)) (push number gnus-newsgroup-limit) (gnus-rebuild-thread (mail-header-id header)) (gnus-summary-goto-subject number nil t))
)
  (if header (progn (when ... ...) (when old-header ...) (setq gnus-newsgroup-sparse ...) (setq gnus-newsgroup-ancient ...) (push number gnus-newsgroup-limit) (gnus-rebuild-thread ...) (gnus-summary-goto-subject number nil t)))
)
  (when header (when (and ... old-header) (when ... ... ...)) (when old-header (mail-header-set-number header ...)) (setq gnus-newsgroup-sparse (delq ... gnus-newsgroup-sparse)) (setq gnus-newsgroup-ancient (delq number gnus-newsgroup-ancient)) (push number gnus-newsgroup-limit) (gnus-rebuild-thread (mail-header-id header)) (gnus-summary-goto-subject number nil t))
)
  (let ((header ...) (number ...) pos d) (when header (when ... ...) (when old-header ...) (setq gnus-newsgroup-sparse ...) (setq gnus-newsgroup-ancient ...) (push number gnus-newsgroup-limit) (gnus-rebuild-thread ...) (gnus-summary-goto-subject number nil t)) (when (and ... ...) (when ... ...) (when ... ...) (setq gnus-newsgroup-unselected ...)) (and header (mail-header-number header)))
)
  gnus-summary-insert-subject(20087 nil t)
  (and (not data) force (gnus-summary-insert-subject article (and ... force) t) (setq data (gnus-data-find article)))
)
  (let ((b ...) (data ...)) (and (not data) force (gnus-summary-insert-subject article ... t) (setq data ...)) (goto-char b) (if (not data) (progn ... nil) (goto-char ...) article))
)
  gnus-summary-goto-subject(20087 t)
  (if (gnus-summary-goto-subject article force) (gnus-summary-display-article article all-headers) (gnus-message 4 "Couldn't go to article %s" article) nil)
)
  (if (and (stringp article) (string-match "@" article)) (gnus-summary-refer-article article) (when (stringp article) (setq article ...)) (if (gnus-summary-goto-subject article force) (gnus-summary-display-article article all-headers) (gnus-message 4 "Couldn't go to article %s" article) nil))
)
  (prog1 (if (and ... ...) (gnus-summary-refer-article article) (when ... ...) (if ... ... ... nil)) (gnus-summary-position-point))
)
  (lambda (article &optional all-headers force) "Fetch ARTICLE (article number or Message-ID) and display it if it exists.\nIf ALL-HEADERS is non-nil, no header lines are hidden." (interactive (list ... current-prefix-arg t)) (prog1 (if ... ... ... ...) (gnus-summary-position-point)))("20087" nil t)
  call-interactively(gnus-summary-goto-article)


Here is another backtrace:

Signaling: (quit)
  (while (and id (setq prev ...)) (setq last-id id id (gnus-parent-id ...)))
)
  (let (last-id prev) (while (and id ...) (setq last-id id id ...)) last-id)
)
  gnus-root-id("<3.0.5.32.19980326152148.00a9cd60@kis.ru>")
  (setq last-id (gnus-root-id id))
)
  (let ((dep gnus-newsgroup-dependencies) headers thread last-id) (setq last-id (gnus-root-id id)) (setq headers (list ... ...)) (let (... sub) (while threads ... ... ...) (if thread ... ...) (when thread ...)))
)
  gnus-remove-thread("<3.0.5.32.19980326152148.00a9cd60@kis.ru>")
  (setq thread (gnus-remove-thread id))
)
  (if (not gnus-show-threads) (setq thread (list ...)) (setq thread (gnus-remove-thread id)))
)
  (let ((buffer-read-only nil) old-pos current thread data) (if (not gnus-show-threads) (setq thread ...) (setq thread ...)) (setq old-pos (gnus-point-at-bol)) (setq current (save-excursion ...)) (when (stringp ...) (let ... ... ... ...)) (let (threads) (let ... ... ... ...) (gnus-data-enter-list current data ...) (setq gnus-newsgroup-threads ...)))
)
  gnus-rebuild-thread("<3.0.5.32.19980326152148.00a9cd60@kis.ru>")
  (progn (when (and ... old-header) (when ... ... ...)) (when old-header (mail-header-set-number header ...)) (setq gnus-newsgroup-sparse (delq ... gnus-newsgroup-sparse)) (setq gnus-newsgroup-ancient (delq number gnus-newsgroup-ancient)) (push number gnus-newsgroup-limit) (gnus-rebuild-thread (mail-header-id header)) (gnus-summary-goto-subject number nil t))
)
  (if header (progn (when ... ...) (when old-header ...) (setq gnus-newsgroup-sparse ...) (setq gnus-newsgroup-ancient ...) (push number gnus-newsgroup-limit) (gnus-rebuild-thread ...) (gnus-summary-goto-subject number nil t)))
)
  (when header (when (and ... old-header) (when ... ... ...)) (when old-header (mail-header-set-number header ...)) (setq gnus-newsgroup-sparse (delq ... gnus-newsgroup-sparse)) (setq gnus-newsgroup-ancient (delq number gnus-newsgroup-ancient)) (push number gnus-newsgroup-limit) (gnus-rebuild-thread (mail-header-id header)) (gnus-summary-goto-subject number nil t))
)
  (let ((header ...) (number ...) pos d) (when header (when ... ...) (when old-header ...) (setq gnus-newsgroup-sparse ...) (setq gnus-newsgroup-ancient ...) (push number gnus-newsgroup-limit) (gnus-rebuild-thread ...) (gnus-summary-goto-subject number nil t)) (when (and ... ...) (when ... ...) (when ... ...) (setq gnus-newsgroup-unselected ...)) (and header (mail-header-number header)))
)
  gnus-summary-insert-subject(20087 nil t)
  (and (not data) force (gnus-summary-insert-subject article (and ... force) t) (setq data (gnus-data-find article)))
)
  (let ((b ...) (data ...)) (and (not data) force (gnus-summary-insert-subject article ... t) (setq data ...)) (goto-char b) (if (not data) (progn ... nil) (goto-char ...) article))
)
  gnus-summary-goto-subject(20087 t)
  (if (gnus-summary-goto-subject article force) (gnus-summary-display-article article all-headers) (gnus-message 4 "Couldn't go to article %s" article) nil)
)
  (if (and (stringp article) (string-match "@" article)) (gnus-summary-refer-article article) (when (stringp article) (setq article ...)) (if (gnus-summary-goto-subject article force) (gnus-summary-display-article article all-headers) (gnus-message 4 "Couldn't go to article %s" article) nil))
)
  (prog1 (if (and ... ...) (gnus-summary-refer-article article) (when ... ...) (if ... ... ... nil)) (gnus-summary-position-point))
)
  (lambda (article &optional all-headers force) "Fetch ARTICLE (article number or Message-ID) and display it if it exists.\nIf ALL-HEADERS is non-nil, no header lines are hidden." (interactive (list ... current-prefix-arg t)) (prog1 (if ... ... ... ...) (gnus-summary-position-point)))("20087" nil t)
  call-interactively(gnus-summary-goto-article)


------------------ Environment follows ------------------

(setq gnus-message-archive-group
      '((concat
	 (if
	     (message-news-p)
	     "sent-news" "sent-mail")
	 (format-time-string "-%b-%Y"
			     (current-time)))))
(setq gnus-secondary-select-methods
      '((nnml "")))
(setq gnus-large-newsgroup 2000)
(setq gnus-use-long-file-name t)
(setq gnus-kill-files-directory "~/.scores/")
(setq gnus-use-trees t)
(setq gnus-novice-user nil)
(setq gnus-expert-user t)
(setq gnus-group-change-level-function
      'gnus-topic-change-level)
(setq gnus-visual t)
(setq gnus-article-display-hook
      '(latin2-translate-receive gnus-article-hide-headers-if-wanted gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-maybe-highlight gnus-article-display-x-face gnus-article-hide-pgp gnus-article-highlight gnus-article-emphasize))
(setq gnus-build-sparse-threads
      'some)
(setq gnus-summary-goto-unread nil)
(setq gnus-view-pseudo-asynchronously t)
(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-number gnus-thread-sort-by-total-score))
(setq gnus-summary-mode-hook
      '(gnus-xmas-switch-horizontal-scrollbar-off gnus-xmas-setup-summary-toolbar gnus-xmas-summary-menu-add))
(setq gnus-summary-exit-hook
      '(gnus-topic-update-topic))
(setq gnus-group-mode-hook
      '(gnus-topic-mode gnus-xmas-setup-group-toolbar gnus-xmas-group-menu-add))
(setq gnus-group-catchup-group-hook
      '(gnus-topic-update-topic))
(setq gnus-exit-gnus-hook
      '(#<compiled-function nil "...(18)" [frame-live-p toolbar-news-frame frame-list delete-frame nil] 2>))
(setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Newsreader:\\|^X-Mailer:\\|^X-URL:\\|^X-WWW\\|^X-[yz]")
(setq gnus-article-x-face-command
      'gnus-xmas-article-display-xface)
(setq gnus-prompt-before-saving t)
(setq gnus-default-article-saver
      'gnus-summary-save-in-file)
(setq gnus-article-mode-hook
      '(gnus-xmas-article-menu-add turn-off-scroll-in-place))
(setq gnus-save-newsrc-file nil)
(setq gnus-save-killed-list nil)
(setq gnus-subscribe-newsgroup-method
      'gnus-subscribe-hierarchically)
(setq gnus-subscribe-hierarchical-interactive t)
(setq gnus-check-bogus-groups-hook
      '(gnus-topic-clean-alist))
(setq gnus-asynchronous nil)
(setq gnus-buffer-configuration
      '((article
	 (vertical 1.0
		   (horizontal 0.25
			       (summary 0.75 point)
			       (tree 1.0))
		   (article 1.0)))
	(group
	 (vertical 1.0
		   (group 1.0 point)
		   (if gnus-carpal
		       '(group-carpal 4))))
	(summary
	 (vertical 1.0
		   (summary 1.0 point)
		   (if gnus-carpal
		       '(summary-carpal 4))))
	(server
	 (vertical 1.0
		   (server 1.0 point)
		   (if gnus-carpal
		       '(server-carpal 2))))
	(browse
	 (vertical 1.0
		   (browse 1.0 point)
		   (if gnus-carpal
		       '(browse-carpal 2))))
	(message
	 (vertical 1.0
		   (message 1.0 point)))
	(pick
	 (vertical 1.0
		   (article 1.0 point)))
	(info
	 (vertical 1.0
		   (info 1.0 point)))
	(summary-faq
	 (vertical 1.0
		   (summary 0.25)
		   (faq 1.0 point)))
	(edit-article
	 (vertical 1.0
		   (article 1.0 point)))
	(edit-form
	 (vertical 1.0
		   (group 0.5)
		   (edit-form 1.0 point)))
	(edit-score
	 (vertical 1.0
		   (summary 0.25)
		   (edit-score 1.0 point)))
	(post
	 (vertical 1.0
		   (post 1.0 point)))
	(reply
	 (vertical 1.0
		   (article-copy 0.5)
		   (message 1.0 point)))
	(forward
	 (vertical 1.0
		   (message 1.0 point)))
	(reply-yank
	 (vertical 1.0
		   (message 1.0 point)))
	(mail-bounce
	 (vertical 1.0
		   (article 0.5)
		   (message 1.0 point)))
	(pipe
	 (vertical 1.0
		   (summary 0.25 point)
		   (if gnus-carpal
		       '(summary-carpal 4))
		   ("*Shell Command Output*" 1.0)))
	(bug
	 (vertical 1.0
		   ("*Gnus Help Bug*" 0.5)
		   ("*Gnus Bug*" 1.0 point)))
	(score-trace
	 (vertical 1.0
		   (summary 0.5 point)
		   ("*Score Trace*" 1.0)))
	(score-words
	 (vertical 1.0
		   (summary 0.5 point)
		   ("*Score Words*" 1.0)))
	(category
	 (vertical 1.0
		   (category 1.0)))
	(compose-bounce
	 (vertical 1.0
		   (article 0.5)
		   (message 1.0 point)))))
(setq gnus-topic-mode-hook
      '(gnus-xmas-topic-menu-add))
(setq nnmail-split-methods
      'nnmail-split-fancy)
(setq nnmail-use-long-file-names t)
(setq nnmail-expiry-wait
      'immediate)
(setq nnmail-spool-file
      '("/var/mail/hniksic" "~/Mail/incoming"))
(setq nnmail-split-fancy
      '(|
	("mailing-list" "wget" "wget.list")
	("x-mailing-list" "xemacs-beta-discuss" "xemacs.beta.discuss")
	("x-mailing-list" "xemacs-beta" "xemacs.beta")
	("x-mailing-list" "xemacs-admin" "xemacs.admin")
	("x-mailing-list" "xemacs-announce" "xemacs.announce")
	(from "amarok" "amarok")
	("x-mailing-list" "amarok" "amarok")
	("sender" "owner-xemacs-nt" "xemacs.nt")
	("sender" "hr-translation" "hr.translation")
	("x-mailing-list" "emacs-custom" "custom")
	("sender" "owner-mp3" "mp3")
	(to "gnu-prog" "gnu.prog")
	(to "xemacs-developers" "xemacs.developers")
	("sender" "owner-ding-announce" "ding.announce")
	("sender" "owner-gnome" "gnome")
	("x-mailing-list" "gnome-list" "gnome")
	("sender" "kvake@bagan.srce.hr" "kvake.discuss")
	("sender" "owner-ansible" "ansible")
	("x-resent-by" "info-gnu-prog-request@prep" "gnu.prog")
	("received" "ding@ifi" "ding.discuss")
	("sender" "owner-ding" "ding.discuss")
	("from" "bugs@gnus.org" "gnus-bugfixing")
	("to" "bug-wget" "wget.reports")
	("subject" "wget\\|w?fetch\\|geturl" "wget.reports")
	("from" mail "mailer-daemon")
	("from" "majordomo@pc-hrvoje.srce.hr" "majordomo")
	("from" "owner-mp3@pc-hrvoje" "majordomo")
	(to "paketi" "paketi")
	(from "wing" "private")
	("to\\|cc" "hniksic\\|niksic" "private")
	"spam"))
(setq message-elide-elipsis "[...]\n")
(setq message-use-followup-to t)
(setq message-post-method
      '(nnspool ""))
(setq message-setup-hook
      '(latin2-translate-receive))
(setq message-mode-hook
      '(message-xmas-maybe-fontify
	(lambda nil
	  (interactive)
	  (local-set-key [
			 (meta tab)
			 ]
			 'lisp-complete-symbol)
	  (local-set-key "\030\013"
			 'message-kill-to-signature)
	  (local-set-key "\003w"
			 'insert-wget-url))))
(setq message-header-setup-hook
      '(gnus-inews-insert-archive-gcc gnus-inews-insert-gcc))
(setq message-signature
      'sigs-random-signature)
(setq message-default-headers "X-Attribution: Hrvoje\nX-Face: Mie8:rOV<\\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG\n        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft\n        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J\n")
(setq message-default-news-headers "Mail-Copies-To: never\n")



-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
"Psychos _do not_ explode when sunlight hits them."


             reply	other threads:[~1998-03-26 12:53 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1998-03-26 12:53 Hrvoje Niksic [this message]
1998-03-26 13:25 ` Stefanie Teufel
1998-03-26 14:57   ` Hrvoje Niksic
1998-03-26 15:24     ` Bruce Stephens
1998-03-26 15:29       ` Hrvoje Niksic
1998-03-26 15:58         ` Bruce Stephens
1998-03-26 15:32 ` Wes Hardaker
1998-03-26 17:05   ` Stefanie Teufel
1998-03-26 17:19   ` Wes Hardaker
1998-03-26 18:11     ` Stefanie Teufel
1998-03-26 21:24     ` Dan Christensen
1998-03-27 20:59     ` Kim-Minh Kaplan
1998-04-01  0:16       ` Eze Ogwuma
1998-04-01 17:23         ` Kim-Minh Kaplan
1998-04-01 20:44           ` Eze Ogwuma
1998-04-26 12:06 ` Gnus fails to show some email messages (and The horrible bug) Eze Ogwuma

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=kigd8f9txy4.fsf@jagor.srce.hr \
    --to=hniksic@srce.hr \
    --cc=ding@gnus.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).