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

[Lars Hansen]

Index: emacs/lisp/mh-e/mh-e.el
diff -c emacs/lisp/mh-e/mh-e.el:1.20 emacs/lisp/mh-e/mh-e.el:1.21
*** emacs/lisp/mh-e/mh-e.el:1.20        Mon Jul  4 17:15:52 2005
--- emacs/lisp/mh-e/mh-e.el     Wed Aug 10 19:40:23 2005
***************
*** 1507,1512 ****
--- 1507,1514 ----
             (not (member 'mh-folder-mode which-func-modes)))
    (push 'mh-folder-mode which-func-modes))
  
+ ;; Autoload cookie needed by desktop.el
+ ;;;###autoload
  (define-derived-mode mh-folder-mode fundamental-mode "MH-Folder"
    "Major MH-E mode for \"editing\" an MH folder scan 
listing.\\<mh-folder-mode-map>
  
***************
*** 1653,1659 ****
      (set (make-local-variable (car pairs)) (car (cdr pairs)))
      (setq pairs (cdr (cdr pairs)))))
  
- ;;;###autoload
  (defun mh-restore-desktop-buffer (desktop-buffer-file-name
                                    desktop-buffer-name
                                    desktop-buffer-misc)
--- 1655,1660 ----
***************
*** 1665,1670 ****
--- 1666,1674 ----
    (mh-find-path)
    (mh-visit-folder desktop-buffer-name)
    (current-buffer))
+ 
+ (add-to-list 'desktop-buffer-mode-handlers
+              '(mh-folder-mode . mh-restore-desktop-buffer))
  
  (defun mh-scan-folder (folder range &optional dont-exec-pending)
    "Scan the FOLDER over the RANGE.