🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.bug
Article #99971

Re: mailrc files

#99971
From: Kenichi Handa
Date: Sun, 15 Apr 1990 05:17
28 lines
1853 bytes
In article <PINARD.90Apr13082903@kovic.IRO.UMontreal.CA>
	pinard@IRO.UMontreal.CA (Francois Pinard) writes:
>> In article <MDB.90Apr10195948@kosciusko.ESD.3Com.COM> mdb@ESD.3Com.COM (Mark D. Baushke) writes:
>>    # write-file-hooks: ((lambda () (let ((xyzzy (make-temp-name
>>    ...
>> I also add:
>> 	# eval: (load "mailalias")

Hmmm, I was not aware of this technique, but how about
puting the following function definition in your .emacs and
call it from mail-mode-hook.  With this, we can aboid
unnecessary call of build-mail-aliases and load of
"mailalias".

(defun mail-check-aliases ()
  (if (and (boundp 'mail-aliases) mail-aliases)
      (let* ((time (nth 5 (file-attributes "~/.mailrc"))))
	(if (boundp 'mail-aliases-time)
	    (if (or (> (car time) (car mail-aliases-time))
		    (and (= (car time) (car mail-aliases-time))
			 (> (car (cdr time))
			    (car (cdr mail-aliases-time)))))
		(setq mail-aliases t)))
	(setq mail-aliases-time time))))

---
Ken'ichi HANDA
handa@etl.go.jp
Technical Details
Message-ID: <HANDA.90Apr15141747@etlhit.etl.go.jp>
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!samsung!zaphod.mps.ohio-state.edu!usc!apple!sun-barr!ccut!titcca!etlcom!handa
References: <9004100329.AA00700@ittc> <9004101458.AA02134@borodin.> <MDB.90Apr10195948@kosciusko.ESD.3Com.COM> <PINARD.90Apr13082903@kovic.IRO.UMontreal.CA>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fb2f1,fee184a1ec44c4a3
X-Google-Attributes: gidfb2f1,public
X-Google-ArrivalTime: 1990-04-14 22:17:47 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!samsung!zaphod.mps.ohio-state.edu!usc!apple!sun-barr!ccut!titcca!etlcom!handa
From: handa@etlhit.etl.go.jp (Kenichi Handa)
Newsgroups: gnu.emacs.bug
Subject: Re: mailrc files
Message-ID: <HANDA.90Apr15141747@etlhit.etl.go.jp>
Date: 15 Apr 90 05:17:47 GMT
References: <9004100329.AA00700@ittc> <9004101458.AA02134@borodin.>
 <MDB.90Apr10195948@kosciusko.ESD.3Com.COM>
 <PINARD.90Apr13082903@kovic.IRO.UMontreal.CA>
Sender: news@etl.go.jp
Distribution: gnu
Organization: Electrotechnical Lab., Japan.
Lines: 28
Posted: Sun Apr 15 06:17:47 1990
In-reply-to: pinard@IRO.UMontreal.CA's message of 13 Apr 90 12:29:03 GMT