* Re: Pterodactyl Gnus v0.87 is released
1999-06-14 1:17 Pterodactyl Gnus v0.87 is released Lars Magne Ingebrigtsen
1999-06-14 14:11 ` Stainless Steel Rat
@ 1999-06-14 18:19 ` Stainless Steel Rat
1 sibling, 0 replies; 3+ messages in thread
From: Stainless Steel Rat @ 1999-06-14 18:19 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 164 bytes --]
I just discovered that the version of pop3.el in 0.87 is missing a rather
critical unwind-protect in the meat of pop3-movemail. This patch brings it
up to date.
[-- Attachment #2: d --]
[-- Type: application/octet-stream, Size: 2805 bytes --]
*** ../../pop3/pop3.el Mon Jun 14 14:10:42 1999
--- pop3.el Sat Apr 17 12:45:21 1999
***************
*** 1,6 ****
;;; pop3.el --- Post Office Protocol (RFC 1460) interface
! ;; Copyright (C) 1996-1999 Free Software Foundation, Inc.
;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
;; Keywords: mail, pop3
--- 1,6 ----
;;; pop3.el --- Post Office Protocol (RFC 1460) interface
! ;; Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
;; Keywords: mail, pop3
***************
*** 85,108 ****
(pop3-pass process))
(t (error "Invalid POP3 authentication scheme.")))
(setq message-count (car (pop3-stat process)))
! (unwind-protect
! (while (<= n message-count)
! (message (format "Retrieving message %d of %d from %s..."
! n message-count pop3-mailhost))
! (pop3-retr process n crashbuf)
! (save-excursion
! (set-buffer crashbuf)
! (write-region (point-min) (point-max) crashbox t 'nomesg)
! (set-buffer (process-buffer process))
! (while (> (buffer-size) 5000)
! (goto-char (point-min))
! (forward-line 50)
! (delete-region (point-min) (point))))
! (pop3-dele process n)
! (setq n (+ 1 n))
! (if pop3-debug (sit-for 1) (sit-for 0.1))
! )
! (pop3-quit process))
(kill-buffer crashbuf)
)
t)
--- 85,107 ----
(pop3-pass process))
(t (error "Invalid POP3 authentication scheme.")))
(setq message-count (car (pop3-stat process)))
! (while (<= n message-count)
! (message (format "Retrieving message %d of %d from %s..."
! n message-count pop3-mailhost))
! (pop3-retr process n crashbuf)
! (save-excursion
! (set-buffer crashbuf)
! (write-region (point-min) (point-max) crashbox t 'nomesg)
! (set-buffer (process-buffer process))
! (while (> (buffer-size) 5000)
! (goto-char (point-min))
! (forward-line 50)
! (delete-region (point-min) (point))))
! (pop3-dele process n)
! (setq n (+ 1 n))
! (if pop3-debug (sit-for 1) (sit-for 0.1))
! )
! (pop3-quit process)
(kill-buffer crashbuf)
)
t)
***************
*** 114,120 ****
(get-buffer-create (format "trace of POP session to %s" mailhost)))
(process)
(coding-system-for-read 'binary) ;; because FSF Emacs 20 and
! (coding-system-for-write 'binary) ;; XEmacs 20 & 21 are st00pid
)
(save-excursion
(set-buffer process-buffer)
--- 113,119 ----
(get-buffer-create (format "trace of POP session to %s" mailhost)))
(process)
(coding-system-for-read 'binary) ;; because FSF Emacs 20 and
! (coding-system-for-write 'binary) ;; XEmacs 20/1 are st00pid
)
(save-excursion
(set-buffer process-buffer)
[-- Attachment #3: Type: text/plain, Size: 227 bytes --]
--
Rat <ratinox@peorth.gweep.net> \ Warning: pregnant women, the elderly, and
Minion of Nathan - Nathan says Hi! \ children under 10 should avoid prolonged
PGP Key: at a key server near you! \ exposure to Happy Fun Ball.
^ permalink raw reply [flat|nested] 3+ messages in thread