Default coding system when fetching mail

Default coding system when fetching mail

[Patrick Drechsler]

Hi,

after succesfully upgrading Gnus I'm having the same problem as
described in:

<s02u14it7j3.fsf@wasabi.inria.fr>

Fetching mails via pop3.el asks for the coding system. Last time
I encountered this problem was with Gnus 5.9. After upgrading to
5.10 the problem was solved. Can somebody give me a pointer
which of the many coding-system function needs to be set?

TIA,

Patrick
-- 
"What happens if a big asteroid hits Earth ? Judging from
 realistic simulations involving a sledge hammer and a common
 laboratory frog, we can assume it will be pretty bad."
                                                -- Dave Barry

Re: Default coding system when fetching mail

[Lars Magne Ingebrigtsen]

Patrick Drechsler <patrick.drechsler@gmx.net> writes:

> after succesfully upgrading Gnus I'm having the same problem as
> described in:
>
> <s02u14it7j3.fsf@wasabi.inria.fr>
>
> Fetching mails via pop3.el asks for the coding system. 

(setq debug-on-quit t)

and then `C-g' when it asks for the coding system.  Post the
backtrace here...

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

Re: Default coding system when fetching mail

[Lars Magne Ingebrigtsen]

Patrick Drechsler <patrick.drechsler@gmx.net> writes:

> Debugger entered--Lisp error: (quit)
>   read-coding-system("Select coding system (default utf-8): " utf-8)

[...]

>   write-region(1 7769 "~/.emacs-mail-crash-box" t)
>   append-to-file(1 7769 "~/.emacs-mail-crash-box")

[...]

>   pop3-movemail("~/.emacs-mail-crash-box")

Are you sure that this is the pop3.el that's included with the Gnus
distribution?  It doesn't use `append-to-file', and its call to
`write-region' is this:

	    (let ((coding-system-for-write 'binary))
	      (write-region (point-min) (point-max) crashbox t 'nomesg))

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

Re: Default coding system when fetching mail

[Patrick Drechsler]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=utf-8, Size: 4648 bytes --]


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) "\bÂ\b	?\x0fÅ	\"%" [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) "\bÂ\b	?\x0fÅ	\"%" [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.

Re: Default coding system when fetching mail

[Patrick Drechsler]

Lars Magne Ingebrigtsen wrote on 04 Jan 2004 22:01:19 MET:

> Are you sure that this is the pop3.el that's included with the
> Gnus distribution?

Yep, that was the problem. I had an old pop3.el lying
around. I'll have to clean up a bit...

Thanks for the quick response!

Cheers

Patrick
-- 
If I'd known I was gonna live this long, I'd have taken better care of
myself.  [Eubie Blake]