From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/30821
Path: main.gmane.org!not-for-mail
From: palmieri@math.washington.edu (John H. Palmieri)
Newsgroups: gmane.emacs.gnus.general
Subject: proposed patch for mail-source.el
Date: 10 May 2000 17:03:44 -0700
Sender: owner-ding@hpc.uh.edu
Message-ID: <s5t1z3akl5r.fsf@goedel3.math.washington.edu>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035167303 10485 80.91.224.250 (21 Oct 2002 02:28:23 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 02:28:23 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49])
	by mailhost.sclp.com (Postfix) with ESMTP id 6EF54D051F
	for <jason@mailhost.sclp.com>; Wed, 10 May 2000 20:04:23 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id TAB30045;
	Wed, 10 May 2000 19:04:22 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 10 May 2000 19:03:49 -0500 (CDT)
Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id TAA10515
	for <ding@hpc.uh.edu>; Wed, 10 May 2000 19:03:37 -0500 (CDT)
Original-Received: from euler.math.washington.edu (euler.math.washington.edu [128.95.224.1])
	by mailhost.sclp.com (Postfix) with ESMTP id A6908D051F
	for <ding@gnus.org>; Wed, 10 May 2000 20:03:57 -0400 (EDT)
Original-Received: from goedel3.math.washington.edu (palmieri@goedel3.math.washington.edu [128.95.224.12])
	by euler.math.washington.edu (8.9.3/8.9.3) with ESMTP id RAA15885;
	Wed, 10 May 2000 17:03:46 -0700 (PDT)
Original-Received: (from palmieri@localhost)
	by goedel3.math.washington.edu (8.9.3/8.9.3) id RAA26025;
	Wed, 10 May 2000 17:03:46 -0700 (PDT)
X-Authentication-Warning: goedel3.math.washington.edu: palmieri set sender to palmieri@math.washington.edu using -f
Original-To: ding@gnus.org
X-Spook: CIA spy nuclear class struggle Qaddafi munitions assassination DES
 bomb Ortega SDI security NSA Legion of Doom SEAL Team 6
X-Zippy: YOU PICKED KARL MALDEN'S NOSE!!
X-Face: ,;upNQ$t/)!L]^R9Po%swv4<z?~Yuu~AaN37_ZF?7GZA5A_"j|];J9NBVl@Yc+btFT&;_BPbv]FO
Original-Lines: 49
User-Agent: Gnus/5.0807 (Gnus v5.8.7) Emacs/20.4
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:30821
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:30821

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