diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-28 04:51:02 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-28 04:51:02 +0000 |
| commit | fdc88ea20a4d99436bcc48fe3c16fa3663ea106b (patch) | |
| tree | 32bfb883272f8953ada9050ba4b30518dfa208b4 /lisp/gnus | |
| parent | c251e92de3e55afad03996dde5c3e7a02b8b5984 (diff) | |
| download | emacs-fdc88ea20a4d99436bcc48fe3c16fa3663ea106b.tar.gz | |
(pop3-movemail-file-coding-system): Append it for
assigning a coding system to receive mail with pop3.
(pop3-movemail): Modify for writing messages with
pop3-movemail-file-coding-system.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/pop3.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index c67b3d6db8b..95bd64ccaa4 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -60,6 +60,9 @@ values are 'apop.") "Timestamp returned when initially connected to the POP server. Used for APOP authentication.") +(defvar pop3-movemail-file-coding-system nil + "Crashbox made by pop3-movemail with this coding system.") + (defvar pop3-read-point nil) (defvar pop3-debug nil) @@ -85,7 +88,8 @@ Used for APOP authentication.") (pop3-retr process n crashbuf) (save-excursion (set-buffer crashbuf) - (append-to-file (point-min) (point-max) crashbox) + (let ((coding-system-for-write pop3-movemail-file-coding-system)) + (append-to-file (point-min) (point-max) crashbox)) (set-buffer (process-buffer process)) (while (> (buffer-size) 5000) (goto-char (point-min)) |