# HG changeset patch
# User Lars Hansen <larsh@soem.dk>
# Date 1123702823 0
# Node ID 120985a68bd922b4fa783de03a459c7733cd3777
# Parent  2c34662daa0360670fe544ea56ad1e23f83455e4
Add handler to desktop-buffer-mode-handlers.
(mh-restore-desktop-buffer): Remove autoload cookie.
(mh-folder-mode): Add autoload cookie.

diff -r 2c34662daa03 -r 120985a68bd9 lisp/mh-e/mh-e.el
--- a/lisp/mh-e/mh-e.el	Wed Aug 10 19:40:05 2005 +0000
+++ b/lisp/mh-e/mh-e.el	Wed Aug 10 19:40:23 2005 +0000
@@ -1507,6 +1507,8 @@
            (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,7 +1655,6 @@
     (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)
@@ -1666,6 +1667,9 @@
   (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.
 If the optional argument DONT-EXEC-PENDING is non-nil then pending deletes and