proposed patch for mail-source.el

proposed patch for mail-source.el

[John H. Palmieri]

Here is a proposed patch for mail-source.el.  I found that I wanted
those temporary mail files called something other than "Incoming394x",
like, say, "Temp394x", so I thought a new customizable variable was in
order.

Any comments?  If this is a good idea, can someone who knows what
they're doing commit it through CVS?


*** lisp/mail-source.el.old	Mon Apr 24 18:34:46 2000
--- lisp/mail-source.el.new	Wed May 10 16:27:02 2000
***************
*** 67,72 ****
--- 67,77 ----
    :group 'mail-source
    :type 'boolean)
  
+ (defcustom mail-source-incoming-file-prefix "Incoming"
+   "Prefix for file name for storing incoming mail"
+   :group 'mail-source
+   :type 'string)
+ 
  (defcustom mail-source-report-new-mail-interval 5
    "Interval in minutes between checks for new mail."
    :group 'mail-source
***************
*** 295,301 ****
  	  (let ((incoming
  		 (mail-source-make-complex-temp-name
  		  (expand-file-name
! 		   "Incoming" mail-source-directory))))
  	    (unless (file-exists-p (file-name-directory incoming))
  	      (make-directory (file-name-directory incoming) t))
  	    (rename-file mail-source-crash-box incoming t)))))))
--- 300,307 ----
  	  (let ((incoming
  		 (mail-source-make-complex-temp-name
  		  (expand-file-name
! 		   mail-source-incoming-file-prefix
! 		   mail-source-directory))))
  	    (unless (file-exists-p (file-name-directory incoming))
  	      (make-directory (file-name-directory incoming) t))
  	    (rename-file mail-source-crash-box incoming t)))))))

-- 
John H. Palmieri                      
Dept of Mathematics, Box 354350    palmieri@math.washington.edu
University of Washington	   http://www.math.washington.edu/~palmieri
Seattle, WA 98195-4350