From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55608 Path: main.gmane.org!not-for-mail From: Patrick Drechsler Newsgroups: gmane.emacs.gnus.general Subject: Re: Default coding system when fetching mail Date: Sun, 04 Jan 2004 22:03:26 +0100 Organization: Dept. of Zoology 2, Biocenter, University of Wuerzburg, Germany Sender: ding-owner@lists.math.uh.edu Message-ID: References: Reply-To: patrick.drechsler@gmx.net NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1073249892 10840 80.91.224.253 (4 Jan 2004 20:58:12 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 4 Jan 2004 20:58:12 +0000 (UTC) Original-X-From: ding-owner+M4148@lists.math.uh.edu Sun Jan 04 21:58:08 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AdFK3-000824-00 for ; Sun, 04 Jan 2004 21:58:08 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AdFJt-0003Uu-00; Sun, 04 Jan 2004 14:57:57 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AdFJp-0003Up-00 for ding@lists.math.uh.edu; Sun, 04 Jan 2004 14:57:53 -0600 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id E45263A0027 for ; Sun, 4 Jan 2004 14:57:52 -0600 (CST) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1AdFJo-0004hr-00 for ; Sun, 04 Jan 2004 21:57:52 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 53 Original-NNTP-Posting-Host: dsl-213-023-034-068.arcor-ip.net Original-X-Trace: quimby.gnus.org 1073249872 17655 213.23.34.68 (4 Jan 2004 20:57:52 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Sun, 4 Jan 2004 20:57:52 +0000 (UTC) User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:R9IrSFvPERkNmjFGa9vHclvlfZE= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55608 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55608 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 (de= fault %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 (re= ad-coding-system ... default-coding-system)) (setq last-coding-system-speci= fied coding-system)) (let ((window-configuration ...)) (save-excursion (when ... ... ...) (wit= h-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-cha= rset) (while l ... ... ...)) (let (l) (dolist ... ...)) (setq codings (or .= .. ...)) (let (...) (save-excursion ... ... ... ... ...) (kill-buffer "*War= ning*") (set-window-configuration window-configuration))) (let ((codings ...) (coding-system nil) (bufname ...) safe rejected unsaf= e) (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-ma= il-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) (g= oto-char ...) (forward-line 50) (delete-region ... ...))) (while (<=3D n message-count) (message (format "Retrieving message %d of = %d from %s..." n message-count pop3-mailhost)) (pop3-retr process n crashbu= f) (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 (<=3D n message-count) (message ...) (pop3-retr pr= ocess n crashbuf) (save-excursion ... ... ... ...) (pop3-dele process n) (s= etq n ...) (if pop3-debug ... ...)) (pop3-quit process) (kill-buffer crashb= uf)) pop3-movemail("~/.emacs-mail-crash-box") mail-source-fetch-pop((pop :server "pop.gmx.net" :user "foo" :password "b= ar") #[(file orig-file) "=08=C2=08 ?=0F=C5 \"%" [file orig-file nnmail-spli= t-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) "=08=C2=08 ?=0F=C5 \"%" [file orig-file nnmail-split-in= coming 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 --=20 Just saying `no' prevents teenage pregnancy the way `Have a nice day' cures chronic depression.