Mercurial > emacs

comparison lisp/mail/rmailout.el @ 90667:dbe3f29e61d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 505-522) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: etc/TUTORIAL.cn: Updated. - Merge from erc--emacs--22 * gnus--rel--5.10 (patch 164-167) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-137
author Miles Bader <miles@gnu.org>
date Tue, 21 Nov 2006 08:56:38 +0000
parents c5406394f567 98d8e09fad2d
children 95d0cdf160ea
comparison
equal deleted inserted replaced
90666:00d54c8fa693 90667:dbe3f29e61d6
406 (file-name-directory rmail-default-body-file)))) 406 (file-name-directory rmail-default-body-file))))
407 (save-excursion 407 (save-excursion
408 (goto-char (point-min)) 408 (goto-char (point-min))
409 (search-forward "\n\n") 409 (search-forward "\n\n")
410 (and (file-exists-p file-name) 410 (and (file-exists-p file-name)
411 (not (y-or-n-p (message "File %s exists; overwrite? " file-name))) 411 (not (y-or-n-p (format "File %s exists; overwrite? " file-name)))
412 (error "Operation aborted")) 412 (error "Operation aborted"))
413 (write-region (point) (point-max) file-name) 413 (write-region (point) (point-max) file-name)
414 (if (equal major-mode 'rmail-mode) 414 (if (equal major-mode 'rmail-mode)
415 (rmail-set-attribute "stored" t))) 415 (rmail-set-attribute "stored" t)))
416 (if rmail-delete-after-output 416 (if rmail-delete-after-output