- (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))
+ (message "Setting the inbox list for %s for this session"
+ (file-name-nondirectory (buffer-file-name)))
+ (setq rmail-inbox-list inbox-list)))
+ (rmail-show-message-1 rmail-current-message))
+
+;; Local Variables:
+;; generated-autoload-file: "rmail.el"
+;; End: