🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.help
Article #189192

Re: Automatic mail copies in .mailrc? (was Re: How to copy mail message to a file?)

#189192
From: Dan_Jacobson
Date: Wed, 10 Apr 1991 14:53
39 lines
2467 bytes
>>>>> On 10 Apr 91 00:41:45 GMT, meb4593@galileo.rtn.ca.boeing.com (9526 BE31R) said:

9526> I saw that the variable `mail-archive-file-name' can be set, but
9526> this implies that only one file can be setup for all of my
9526> copies without the flexibility of setting up several files.  Is
9526> there a way to set this up so that I can specify different FCCs
9526> for different individuals?

Well, here's how I set a dynamic FCC (e.g., today's is "FCC:
/usr/tmp/danj1Wed10Apr", could make it different by the hour too...)
for my outbound GNUS articles... pehaps you could do similarly in
mail-setup-hook or something...

(setq
 news-reply-mode-hook
 (function
  (lambda ()
    (my-sc-overload-hook-func)
    (setq
     gnus-author-copy
     ;;from gnuspost.el
     (let ((date (current-time-string)))
       (if
	   (string-match
	    "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) [0-9][0-9]\\([0-9][0-9]\\)"
	    date)
	   (concat "/usr/tmp/" (user-login-name)
	      (substring date 0 3)	;day of week (DJ)
	      (substring date (match-beginning 2) (match-end 2)) ;Day
;;;	      (substring date (match-beginning 6) (match-end 6)) ;Year
	      (substring date (match-beginning 1) (match-end 1)) ;Month
;;;	      (substring date (match-beginning 3) (match-end 3)) ;Hour
;;;	      (substring date (match-beginning 4) (match-end 4)) ;Minute
;;;	      (substring date (match-beginning 5) (match-end 5)) ;Second
	      )
	 (error "Cannot understand current-time-string: %s." date))
       )))))
-- 
Dan_Jacobson@ATT.COM  Naperville IL USA  +1 708 979 6364
Technical Details
Message-ID: <DANJ1.91Apr10095302@cbnewse.ATT.COM>
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!cbnewse!danj1
References: <348@galileo.rtn.ca.boeing.com> <1991Apr6.153443.11462@uai.com> <353@galileo.rtn.ca.boeing.com>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103b8b,ce5e624321ac59bd
X-Google-Attributes: gid103b8b,public
X-Google-ArrivalTime: 1991-04-11 00:37:25 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!cbnewse!danj1
From: Dan_Jacobson@ATT.COM
Newsgroups: gnu.emacs.help
Subject: Re: Automatic mail copies in .mailrc? (was Re: How to copy mail message to a file?)
Message-ID: <DANJ1.91Apr10095302@cbnewse.ATT.COM>
Date: 10 Apr 91 14:53:11 GMT
References: <348@galileo.rtn.ca.boeing.com> <1991Apr6.153443.11462@uai.com>
 <353@galileo.rtn.ca.boeing.com>
Sender: danj1@cbnewse.att.com (Dan Jacobson)
Reply-To: Dan_Jacobson@ihlpz.ATT.COM
Organization: AT&T-BL, Naperville IL, USA
Lines: 39
In-Reply-To: meb4593@galileo.rtn.ca.boeing.com's message of 10 Apr 91 00:41:45 GMT