1507 |
(not (member 'mh-folder-mode which-func-modes))) |
(not (member 'mh-folder-mode which-func-modes))) |
1508 |
(push 'mh-folder-mode which-func-modes)) |
(push 'mh-folder-mode which-func-modes)) |
1509 |
|
|
1510 |
|
;; Autoload cookie needed by desktop.el |
1511 |
|
;;;###autoload |
1512 |
(define-derived-mode mh-folder-mode fundamental-mode "MH-Folder" |
(define-derived-mode mh-folder-mode fundamental-mode "MH-Folder" |
1513 |
"Major MH-E mode for \"editing\" an MH folder scan listing.\\<mh-folder-mode-map> |
"Major MH-E mode for \"editing\" an MH folder scan listing.\\<mh-folder-mode-map> |
1514 |
|
|
1655 |
(set (make-local-variable (car pairs)) (car (cdr pairs))) |
(set (make-local-variable (car pairs)) (car (cdr pairs))) |
1656 |
(setq pairs (cdr (cdr pairs))))) |
(setq pairs (cdr (cdr pairs))))) |
1657 |
|
|
|
;;;###autoload |
|
1658 |
(defun mh-restore-desktop-buffer (desktop-buffer-file-name |
(defun mh-restore-desktop-buffer (desktop-buffer-file-name |
1659 |
desktop-buffer-name |
desktop-buffer-name |
1660 |
desktop-buffer-misc) |
desktop-buffer-misc) |
1667 |
(mh-visit-folder desktop-buffer-name) |
(mh-visit-folder desktop-buffer-name) |
1668 |
(current-buffer)) |
(current-buffer)) |
1669 |
|
|
1670 |
|
(add-to-list 'desktop-buffer-mode-handlers |
1671 |
|
'(mh-folder-mode . mh-restore-desktop-buffer)) |
1672 |
|
|
1673 |
(defun mh-scan-folder (folder range &optional dont-exec-pending) |
(defun mh-scan-folder (folder range &optional dont-exec-pending) |
1674 |
"Scan the FOLDER over the RANGE. |
"Scan the FOLDER over the RANGE. |
1675 |
If the optional argument DONT-EXEC-PENDING is non-nil then pending deletes and |
If the optional argument DONT-EXEC-PENDING is non-nil then pending deletes and |