🚀 go-pugleaf

Both vm-pop-ask-about-large-message and vm-imap-ask-about-large-message call 
format once with an extra arg, and call y-or-n-p with an unusual prompt (with
the verb at the end).  Here's a patch:

*** vm-7.18/vm-pop.el.orig	Sat May 10 20:52:46 2003
--- vm-7.18/vm-pop.el	Thu Feb 19 17:42:13 2004
***************
*** 759,767 ****
   			 nil vm-visible-headers
   			 vm-invisible-header-regexp)))
   		  (set-window-point (selected-window) (point))))
! 	    (if (y-or-n-p (format "Message %d, size = %d, retrieve? " n size))
   		'retrieve
! 	      (if (y-or-n-p (format "Delete message %d from popdrop? " n size))
   		  'delete
   		'skip))))
         (and work-buffer (kill-buffer work-buffer)))))
--- 759,767 ----
   			 nil vm-visible-headers
   			 vm-invisible-header-regexp)))
   		  (set-window-point (selected-window) (point))))
! 	    (if (y-or-n-p (format "Retrieve message %d (size = %d)? " n size))
   		'retrieve
! 	      (if (y-or-n-p (format "Delete message %d from popdrop? " n))
   		  'delete
   		'skip))))
         (and work-buffer (kill-buffer work-buffer)))))


*** vm-7.18/vm-imap.el.orig	Fri May 30 13:52:51 2003
--- vm-7.18/vm-imap.el	Thu Feb 19 17:43:03 2004
***************
*** 920,928 ****
   		   nil vm-visible-headers
   		   vm-invisible-header-regexp)))
   	    (set-window-point (selected-window) (point))
! 	    (if (y-or-n-p (format "Message %d, size = %d, retrieve? " n size))
   		'retrieve
! 	      (if (y-or-n-p (format "Delete message %d from maildrop? " n size))
   		  'delete
   		'skip))))
         (and work-buffer (kill-buffer work-buffer)))))
--- 920,928 ----
   		   nil vm-visible-headers
   		   vm-invisible-header-regexp)))
   	    (set-window-point (selected-window) (point))
! 	    (if (y-or-n-p (format "Retrieve message %d (size = %d)? " n size))
   		'retrieve
! 	      (if (y-or-n-p (format "Delete message %d from maildrop? " n))
   		  'delete
   		'skip))))
         (and work-buffer (kill-buffer work-buffer)))))


-- 
Kevin Rodgers