1 |
;;; mh-funcs.el --- MH-E functions not everyone will use right away |
;;; mh-funcs.el --- MH-E functions not everyone will use right away |
2 |
|
|
3 |
;; Copyright (C) 1993, 1995, 2005 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1995, |
4 |
|
;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Bill Wohler <wohler@newt.com> |
;; Author: Bill Wohler <wohler@newt.com> |
7 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
128 |
(set-buffer (get-buffer-create mh-temp-buffer)) |
(set-buffer (get-buffer-create mh-temp-buffer)) |
129 |
(insert-before-markers output) |
(insert-before-markers output) |
130 |
(when (save-excursion |
(when (save-excursion |
131 |
(beginning-of-buffer) |
(goto-char (point-min)) |
132 |
(re-search-forward "^rmf: " (point-max) t)) |
(re-search-forward "^rmf: " (point-max) t)) |
133 |
(display-buffer mh-temp-buffer))) |
(display-buffer mh-temp-buffer))) |
134 |
|
|
149 |
"-recurse" |
"-recurse" |
150 |
"-norecurse")) |
"-norecurse")) |
151 |
(goto-char (point-min)) |
(goto-char (point-min)) |
152 |
(view-mode 1) |
(view-mode-enter) |
153 |
(setq view-exit-action 'kill-buffer) |
(setq view-exit-action 'kill-buffer) |
154 |
(message "Listing folders...done"))))) |
(message "Listing folders...done"))))) |
155 |
|
|