Pterodactyl Gnus v0.87 is released

Pterodactyl Gnus v0.87 is released

[Lars Magne Ingebrigtsen]

Bug fix.

Get it from <URL:http://quimby.gnus.org/gnus/dist/pgnus.tar.gz>
or "/ftp@quimby.gnus.org:/pub/gnus/".  The patch is available as
<URL:ftp://quimby.gnus.org/pub/gnus/ding-patches/pgnus-0.86-0.87.diff.gz>.

ChangeLog since last release:

Mon Jun 14 01:15:59 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>

	* gnus.el: Pterodactyl Gnus v0.87 is released.

1999-06-14 02:46:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>

	* mail-source.el (mail-source-fetch-file): Use prescript-delay. 
	(mail-source-run-script): New function.
	(mail-source-fetch-pop): Use it.

1999-06-13 09:52:11  Lars Magne Ingebrigtsen  <larsi@gnus.org>

	* gnus-art.el (gnus-article-setup-highlight-words): Moved here. 



-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Pterodactyl Gnus v0.87 is released

[Stainless Steel Rat]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Huzzah! :prescript-delay works!

I can seriously consider abandoning fetchmail, now!
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v0.9.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE3ZQ2Jgl+vIlSVSNkRAlFBAKC3QAa0+hXY2Zmrwpoi+iCOyqVW3QCfUBV+
UnTSZzMI5skYD+5j+Np/YLQ=
=5ajP
-----END PGP SIGNATURE-----

-- 
Rat <ratinox@peorth.gweep.net>    \ Caution: Happy Fun Ball may suddenly
Minion of Nathan - Nathan says Hi! \ accelerate to dangerous speeds.
PGP Key: at a key server near you!  \ 

Re: Pterodactyl Gnus v0.87 is released

[Stainless Steel Rat]

[-- 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.