Mercurial > emacs
changeset 19595:7184c8337963
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 28 Aug 1997 04:51:02 +0000 |
| parents | abfa7b46c7bd |
| children | 33877efba398 |
| files | lisp/gnus/pop3.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/pop3.el Thu Aug 28 04:51:02 1997 +0000 +++ b/lisp/gnus/pop3.el Thu Aug 28 04:51:02 1997 +0000 @@ -60,6 +60,9 @@ "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 @@ (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))