Mercurial > emacs

comparison lisp/mail/rmail.el @ 10711:551defaf5ba1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail): Don't set rmail-default-file here. (rmail-default-file): Init it to ~/xmail. (rmail-default-rmail-file): Don't call expand-file-name.
author Richard M. Stallman <rms@gnu.org>
date Thu, 09 Feb 1995 09:41:18 +0000
parents cd968ab6a0eb
children 52e860d10537
comparison
equal deleted inserted replaced
10710:d5d1393a26af 10711:551defaf5ba1
163 ;; Last individual label specified to a or k. 163 ;; Last individual label specified to a or k.
164 (defvar rmail-last-label nil) 164 (defvar rmail-last-label nil)
165 ;; Last set of values specified to C-M-n, C-M-p, C-M-s or C-M-l. 165 ;; Last set of values specified to C-M-n, C-M-p, C-M-s or C-M-l.
166 (defvar rmail-last-multi-labels nil) 166 (defvar rmail-last-multi-labels nil)
167 (defvar rmail-last-regexp nil) 167 (defvar rmail-last-regexp nil)
168 (defvar rmail-default-file nil 168 (defvar rmail-default-file "~/xmail"
169 "*Default file name for \\[rmail-output].") 169 "*Default file name for \\[rmail-output].")
170 (defvar rmail-default-rmail-file (expand-file-name "~/XMAIL") 170 (defvar rmail-default-rmail-file "~/XMAIL"
171 "*Default file name for \\[rmail-output-to-rmail-file].") 171 "*Default file name for \\[rmail-output-to-rmail-file].")
172 172
173 ;;; Regexp matching the delimiter of messages in UNIX mail format 173 ;;; Regexp matching the delimiter of messages in UNIX mail format
174 ;;; (UNIX From lines), minus the initial ^. Note that if you change 174 ;;; (UNIX From lines), minus the initial ^. Note that if you change
175 ;;; this expression, you must change the code in rmail-nuke-pinhead-header 175 ;;; this expression, you must change the code in rmail-nuke-pinhead-header
250 250
251 If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." 251 If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
252 (interactive (if current-prefix-arg 252 (interactive (if current-prefix-arg
253 (list (read-file-name "Run rmail on RMAIL file: " 253 (list (read-file-name "Run rmail on RMAIL file: "
254 nil nil t)))) 254 nil nil t))))
255 (or rmail-default-file
256 (setq rmail-default-file (expand-file-name "~/xmail")))
257 (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) 255 (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name)))
258 (existed (get-file-buffer file-name))) 256 (existed (get-file-buffer file-name)))
259 ;; Like find-file, but in the case where a buffer existed 257 ;; Like find-file, but in the case where a buffer existed
260 ;; and the file was reverted, recompute the message-data. 258 ;; and the file was reverted, recompute the message-data.
261 (if (and existed (not (verify-visited-file-modtime existed))) 259 (if (and existed (not (verify-visited-file-modtime existed)))