comparison lisp/paths.el @ 183:e121b013d1f0 r20-3b18

Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 376386a54a3c
children 41ff10fd062f
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
214 ;; let's assume this dir is never used for anything else. 214 ;; let's assume this dir is never used for anything else.
215 ((file-exists-p "/var/mail") 215 ((file-exists-p "/var/mail")
216 "/var/mail/") 216 "/var/mail/")
217 ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) 217 ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
218 "/usr/mail/") 218 "/usr/mail/")
219 ((memq system-type '(linux))
220 "/var/spool/mail/")
219 (t "/usr/spool/mail/"))) 221 (t "/usr/spool/mail/")))
220 222
221 (funcall 223 (funcall
222 l 'sendmail-program 224 l 'sendmail-program
223 (cond 225 (cond