Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
206 that file, but does not copy any new mail into the file." 206 that file, but does not copy any new mail into the file."
207 (interactive (if current-prefix-arg 207 (interactive (if current-prefix-arg
208 (list (read-file-name "Run rmail on RMAIL file: " 208 (list (read-file-name "Run rmail on RMAIL file: "
209 nil nil t)))) 209 nil nil t))))
210 (if (string-match "XEmacs" emacs-version) 210 (if (string-match "XEmacs" emacs-version)
211 (require 'rmail-lucid)) 211 (require 'rmail-xemacs))
212 (or rmail-last-file 212 (or rmail-last-file
213 (setq rmail-last-file (expand-file-name "~/xmail"))) 213 (setq rmail-last-file (expand-file-name "~/xmail")))
214 (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) 214 (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name)))
215 (existed (get-file-buffer file-name))) 215 (existed (get-file-buffer file-name)))
216 ;; Like find-file, but in the case where a buffer existed 216 ;; Like find-file, but in the case where a buffer existed