/[emacs]/emacs/lisp/mh-e/mh-funcs.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-funcs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by ttn, Wed May 18 11:01:20 2005 UTC revision 1.10 by wohler, Sat May 28 22:04:54 2005 UTC
# Line 1  Line 1 
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>
# Line 127  Display the results only if something we Line 128  Display the results only if something we
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    
# Line 148  Display the results only if something we Line 149  Display the results only if something we
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    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26