Mercurial > emacs

comparison lisp/mail/rmail.el @ 13818:0d1de22afac0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail): Allow nonexistent file as arg.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 Dec 1995 06:57:14 +0000
parents 308a47d72b19
children 3c51aa417e32
comparison
equal deleted inserted replaced
13817:ec73462ad90c 13818:0d1de22afac0
280 Interactively, if you supply a prefix argument, then you 280 Interactively, if you supply a prefix argument, then you
281 have a chance to specify a file name with the minibuffer. 281 have a chance to specify a file name with the minibuffer.
282 282
283 If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." 283 If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
284 (interactive (if current-prefix-arg 284 (interactive (if current-prefix-arg
285 (list (read-file-name "Run rmail on RMAIL file: " 285 (list (read-file-name "Run rmail on RMAIL file: "))))
286 nil nil t))))
287 (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) 286 (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name)))
288 (existed (get-file-buffer file-name))) 287 (existed (get-file-buffer file-name)))
289 ;; Like find-file, but in the case where a buffer existed 288 ;; Like find-file, but in the case where a buffer existed
290 ;; and the file was reverted, recompute the message-data. 289 ;; and the file was reverted, recompute the message-data.
291 (if (and existed (not (verify-visited-file-modtime existed))) 290 (if (and existed (not (verify-visited-file-modtime existed)))