Lars Magne Ingebrigtsen wrote on 04 Jan 2004 21:37:51 MET:

> (setq debug-on-quit t)
>
> and then `C-g' when it asks for the coding system.  Post the
> backtrace here...

Here goes (I had to remove a few non-printable characters):

--8<------------------------schnipp------------------------->8---
Debugger entered--Lisp error: (quit)
  read-coding-system("Select coding system (default utf-8): " utf-8)
  (setq coding-system (read-coding-system (format "Select coding system (default %s): " default-coding-system) default-coding-system))
  (save-excursion (when (and unsafe ...) (pop-to-buffer bufname) (goto-char ...)) (with-output-to-temp-buffer "*Warning*" (save-excursion ... ... ... ... ...)) (setq default-coding-system (or ... ...)) (setq coding-system (read-coding-system ... default-coding-system)) (setq last-coding-system-specified coding-system))
  (let ((window-configuration ...)) (save-excursion (when ... ... ...) (with-output-to-temp-buffer "*Warning*" ...) (setq default-coding-system ...) (setq coding-system ...) (setq last-coding-system-specified coding-system)) (kill-buffer "*Warning*") (set-window-configuration window-configuration))
  (progn (if unsafe (if ... ... ...)) (let (... mime-charset) (while l ... ... ...)) (let (l) (dolist ... ...)) (setq codings (or ... ...)) (let (...) (save-excursion ... ... ... ... ...) (kill-buffer "*Warning*") (set-window-configuration window-configuration)))
  (if (not coding-system) (progn (if unsafe ...) (let ... ...) (let ... ...) (setq codings ...) (let ... ... ... ...)))
  (when (not coding-system) (if unsafe (if ... ... ...)) (let (... mime-charset) (while l ... ... ...)) (let (l) (dolist ... ...)) (setq codings (or ... ...)) (let (...) (save-excursion ... ... ... ... ...) (kill-buffer "*Warning*") (set-window-configuration window-configuration)))
  (let ((codings ...) (coding-system nil) (bufname ...) safe rejected unsafe) (if (eq ... ...) (setq coding-system t) (dolist ... ...) (if safe ...)) (when (not coding-system) (if unsafe ...) (let ... ...) (let ... ...) (setq codings ...) (let ... ... ... ...)) (if (vectorp ...) (let ... ...)) (if (eq coding-system t) (setq coding-system buffer-file-coding-system)) (unless (or ... find-file-literally) (let ... ...)) coding-system)
  select-safe-coding-system(1 7769 iso-latin-1 nil "/home/patrick/.emacs-mail-crash-box")
  write-region(1 7769 "~/.emacs-mail-crash-box" t)
  append-to-file(1 7769 "~/.emacs-mail-crash-box")
  (save-excursion (set-buffer crashbuf) (append-to-file (point-min) (point-max) crashbox) (set-buffer (process-buffer process)) (while (> ... 5000) (goto-char ...) (forward-line 50) (delete-region ... ...)))
  (while (<= n message-count) (message (format "Retrieving message %d of %d from %s..." n message-count pop3-mailhost)) (pop3-retr process n crashbuf) (save-excursion (set-buffer crashbuf) (append-to-file ... ... crashbox) (set-buffer ...) (while ... ... ... ...)) (pop3-dele process n) (setq n (+ 1 n)) (if pop3-debug (sit-for 1) (sit-for 0.1)))
  (let* ((process ...) (crashbuf ...) (n 1) message-count) (if pop3-debug (switch-to-buffer ...)) (cond (... ...) (... ... ...) (t ...)) (setq message-count (car ...)) (while (<= n message-count) (message ...) (pop3-retr process n crashbuf) (save-excursion ... ... ... ...) (pop3-dele process n) (setq n ...) (if pop3-debug ... ...)) (pop3-quit process) (kill-buffer crashbuf))
  pop3-movemail("~/.emacs-mail-crash-box")
  mail-source-fetch-pop((pop :server "pop.gmx.net" :user "foo" :password "bar") #[(file orig-file) "Â	?Å	\"%" [file orig-file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (pop :server "pop.gmx.net" :user "foo" :password "bar") nnml-active-number] 7])
  mail-source-fetch((pop :server "pop.gmx.net" :user "foo" :password "bar") #[(file orig-file) "Â	?Å	\"%" [file orig-file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (pop :server "pop.gmx.net" :user "foo" :password "bar") nnml-active-number] 7])
  nnmail-get-new-mail(nnml nnml-save-nov "~/Mail/" nil)
  nnml-request-scan(nil "private")
  gnus-request-scan(nil (nnml "private"))
  gnus-read-active-file-1((nnml "private") nil)
  gnus-read-active-file()
  gnus-group-get-new-news(nil)
  call-interactively(gnus-group-get-new-news)
--8<------------------------schnapp------------------------->8---


I also tried playing with variations of

(setq mm-coding-system-priorities
      '(mule-utf-8 iso-latin-1 windows-1252))

with the same result.

Any ideas?

Patrick
-- 
Just saying `no' prevents teenage pregnancy the way `Have a nice day'
cures chronic depression.