Mercurial > emacs

comparison lisp/mail/rmailmsc.el @ 22955:e3aa855e560c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-rmail-inbox-list): Error if not in Rmail mode.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Aug 1998 21:48:45 +0000
parents 09fccbb1dcf1
children 253f761ad37b
comparison
equal deleted inserted replaced
22954:928b337d953b 22955:e3aa855e560c
28 (defun set-rmail-inbox-list (file-name) 28 (defun set-rmail-inbox-list (file-name)
29 "Set the inbox list of the current RMAIL file to FILE-NAME. 29 "Set the inbox list of the current RMAIL file to FILE-NAME.
30 You can specify one file name, or several names separated by commas. 30 You can specify one file name, or several names separated by commas.
31 If FILE-NAME is empty, remove any existing inbox list." 31 If FILE-NAME is empty, remove any existing inbox list."
32 (interactive "sSet mailbox list to (comma-separated list of filenames): ") 32 (interactive "sSet mailbox list to (comma-separated list of filenames): ")
33
34 (unless (eq major-mode 'rmail-mode)
35 (error "set-rmail-inbox-list works only for an Rmail file"))
36
33 (save-excursion 37 (save-excursion
34 (let ((names (rmail-parse-file-inboxes)) 38 (let ((names (rmail-parse-file-inboxes))
35 (standard-output nil)) 39 (standard-output nil))
36 (if (or (not names) 40 (if (or (not names)
37 (y-or-n-p (concat "Replace " 41 (y-or-n-p (concat "Replace "