From f0a39e37f1bd7bcc8d6988345df5870d91c92cce Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Fri, 18 Apr 1997 00:57:04 +0000 Subject: update from main archive 970417 --- lisp/mail/rmailmsc.el | 55 --------------------------------------------------- 1 file changed, 55 deletions(-) delete mode 100644 lisp/mail/rmailmsc.el (limited to 'lisp/mail/rmailmsc.el') diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el deleted file mode 100644 index 98926d8117e..00000000000 --- a/lisp/mail/rmailmsc.el +++ /dev/null @@ -1,55 +0,0 @@ -;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader - -;; Copyright (C) 1985 Free Software Foundation, Inc. - -;; Maintainer: FSF -;; Keywords: mail - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -;;;###autoload -(defun set-rmail-inbox-list (file-name) - "Set the inbox list of the current RMAIL file to FILE-NAME. -You can specify one file name, or several names separated by commas. -If FILE-NAME is empty, remove any existing inbox list." - (interactive "sSet mailbox list to (comma-separated list of filenames): ") - (save-excursion - (let ((names (rmail-parse-file-inboxes)) - (standard-output nil)) - (if (or (not names) - (y-or-n-p (concat "Replace " - (mapconcat 'identity names ", ") - "? "))) - (let ((buffer-read-only nil)) - (widen) - (goto-char (point-min)) - (search-forward "\n\^_") - (re-search-backward "^Mail" nil t) - (forward-line 0) - (if (looking-at "Mail:") - (delete-region (point) - (progn (forward-line 1) - (point)))) - (if (not (string= file-name "")) - (insert-before-markers "Mail: " file-name "\n")))))) - (setq rmail-inbox-list (rmail-parse-file-inboxes)) - (rmail-show-message rmail-current-message)) - -;;; rmailmsc.el ends here -- cgit v1.2.1