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

[Miles Bader]

Index: emacs/lisp/mh-e/mh-e.el
diff -c emacs/lisp/mh-e/mh-e.el:1.5.4.1 emacs/lisp/mh-e/mh-e.el:1.5.4.2
*** emacs/lisp/mh-e/mh-e.el:1.5.4.1     Fri Apr 16 12:50:32 2004
--- emacs/lisp/mh-e/mh-e.el     Mon Jun 28 07:29:48 2004
***************
*** 1548,1553 ****
--- 1548,1555 ----
  
    (make-local-variable 'font-lock-defaults)
    (setq font-lock-defaults '(mh-folder-font-lock-keywords t))
+   (make-local-variable 'desktop-save-buffer)
+   (setq desktop-save-buffer t)
    (mh-make-local-vars
     'mh-current-folder (buffer-name)     ; Name of folder, a string
     'mh-show-buffer (format "show-%s" (buffer-name)) ; Buffer that displays 
msgs
***************
*** 2441,2446 ****
--- 2443,2459 ----
                  "^There is no other window$"))
    (add-to-list 'debug-ignored-errors mess))
  
+ ;;;;  Desktop support
+ 
+ ;;;###autoload
+ (defun mh-restore-desktop-buffer (desktop-buffer-file-name
+                                   desktop-buffer-name
+                                   desktop-buffer-misc)
+   "Restore an mh folder buffer specified in a desktop file."
+   (mh-find-path)
+   (mh-visit-folder desktop-buffer-name)
+   (current-buffer))
+ 
  (provide 'mh-e)
  
  ;;; Local Variables: