[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-funcs.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-funcs.el
diff -c emacs/lisp/mh-e/mh-funcs.el:1.9 emacs/lisp/mh-e/mh-funcs.el:1.10
*** emacs/lisp/mh-e/mh-funcs.el:1.9     Wed May 18 11:01:20 2005
--- emacs/lisp/mh-e/mh-funcs.el Sat May 28 22:04:54 2005
***************
*** 1,6 ****
  ;;; mh-funcs.el --- MH-E functions not everyone will use right away
  
! ;; Copyright (C) 1993, 1995, 2005 Free Software Foundation, Inc.
  
  ;; Author: Bill Wohler <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
--- 1,7 ----
  ;;; mh-funcs.el --- MH-E functions not everyone will use right away
  
! ;; Copyright (C) 1993, 1995,
! ;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Bill Wohler <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 127,133 ****
    (set-buffer (get-buffer-create mh-temp-buffer))
    (insert-before-markers output)
    (when (save-excursion
!           (beginning-of-buffer)
            (re-search-forward "^rmf: " (point-max) t))
      (display-buffer mh-temp-buffer)))
  
--- 128,134 ----
    (set-buffer (get-buffer-create mh-temp-buffer))
    (insert-before-markers output)
    (when (save-excursion
!           (goto-char (point-min))
            (re-search-forward "^rmf: " (point-max) t))
      (display-buffer mh-temp-buffer)))
  
***************
*** 148,154 ****
                                              "-recurse"
                                            "-norecurse"))
          (goto-char (point-min))
!         (view-mode 1)
          (setq view-exit-action 'kill-buffer)
          (message "Listing folders...done")))))
  
--- 149,155 ----
                                              "-recurse"
                                            "-norecurse"))
          (goto-char (point-min))
!         (view-mode-enter)
          (setq view-exit-action 'kill-buffer)
          (message "Listing folders...done")))))