mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(pop3-movemail-file-coding-system): Append it for

Browse source 
assigning a coding system to receive mail with pop3.
(pop3-movemail): Modify for writing messages with
pop3-movemail-file-coding-system.
This commit is contained in:
Kenichi Handa 1997-08-28 04:51:02 +00:00
parent 2bd3dcae0e
commit a16dd35a64
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/pop3.el
View file

@ -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))