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): Doc fix.

Browse source 
(pop3-movemail): Replace binding of pop3-movemail-file-coding-system.
This commit is contained in:
Dave Love 1999-12-19 00:39:01 +00:00
parent b416e85a13
commit a9c810bf47
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
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.

5
lisp/gnus/pop3.el
View file

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