diff options
Diffstat (limited to 'lisp/mh-e/mh-e.el')
| -rw-r--r-- | lisp/mh-e/mh-e.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index c4b027f382f..344a67f5725 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -1548,6 +1548,8 @@ When a folder is visited, the hook `mh-folder-mode-hook' is run. (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,6 +2443,17 @@ well.") "^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: |