Commit a9c810bf authored by Dave Love's avatar Dave Love
Browse files

(pop3-movemail-file-coding-system): Doc fix.

(pop3-movemail): Replace binding of pop3-movemail-file-coding-system.
parent b416e85a
1999-12-19 Dave Love <fx@gnu.org>
* mail/pop3.el (pop3-movemail-file-coding-system): Doc fix.
(pop3-movemail): Replace binding of
pop3-movemail-file-coding-system.
1999-10-23 Dave Love <fx@gnu.org>
* nnvirtual.el (nnvirtual-create-mapping): Don't use mapc.
......
......@@ -61,7 +61,7 @@ values are 'apop.")
Used for APOP authentication.")
(defvar pop3-movemail-file-coding-system nil
"Crashbox made by `pop3-movemail' with this coding system.")
"Coding system for the crashbox made by `pop3-movemail'.")
(defvar pop3-read-point nil)
(defvar pop3-debug nil)
......@@ -95,7 +95,8 @@ Used for APOP authentication.")
(pop3-retr process n crashbuf)
(save-excursion
(set-buffer crashbuf)
(write-region (point-min) (point-max) crashbox t 'nomesg)
(let ((coding-system-for-write pop3-movemail-file-coding-system))
(write-region (point-min) (point-max) crashbox t 'nomesg))
(set-buffer (process-buffer process))
(while (> (buffer-size) 5000)
(goto-char (point-min))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment