🚀 go-pugleaf

An enhancement to auto-save-alist is in the following patch,
which allows you to auto-save some matches to /dev/null, by 
specifing the save directory to be 't (perhaps nil would
make more sense) as in:

(setq vm-auto-folder-alist '
      (("Subject"
	("^tr" .  't)          ;; Mail annoucing trouble reports
	("^file locks" .  't)  ;; Mail chiding folks for leaving files locked
	("^ESNUG Post" . "Synopsis")
	;; ...
       )
       ("From"
	("sgi.com" . "sgi")
	("Kyle Jones" . "Words_of_exalted_one")
	("Notorius Pest" . 't)
	;; ...
	))

*** vm-save.el~	Thu Apr 11 12:51:47 1991
--- vm-save.el	Fri Jul  9 15:05:24 1993
***************
*** 106,114 ****
  		  (format "Save message %s in folder %s? "
  			  (vm-number-of (car vm-message-pointer))
  			  auto-folder)))
  	     (progn (vm-save-message auto-folder)
  		    (and vm-delete-after-archiving (vm-delete-message 1))
! 		    (vm-increment archived)))
  	(setq vm-message-pointer (cdr vm-message-pointer))))
      (if (zerop archived)
  	(message "No messages archived")
--- 106,117 ----
  		  (format "Save message %s in folder %s? "
  			  (vm-number-of (car vm-message-pointer))
  			  auto-folder)))
+ 	     (if (eq auto-folder 't)
+ 		 (progn (and vm-delete-after-archiving (vm-delete-message 1))
+ 			(vm-increment archived))			
  	       (progn (vm-save-message auto-folder)
  		      (and vm-delete-after-archiving (vm-delete-message 1))
! 		      (vm-increment archived))))
  	(setq vm-message-pointer (cdr vm-message-pointer))))
      (if (zerop archived)
  	(message "No messages archived")
                          __	  ______
Michael T.Y. McNamara  -o|  \_____|    |------ 1+(415) 965-3312     
C H R O N O L O G I C  --|__/     |    |       1+(415) 965-2705 FAX 
 --------. Simulation  -----------|>   |------ mac@chronologic.com  
	  `---------		  ------       chrnlgc!mac@{sun,decwrl,sgi,amdahl,kpc}.com