6 |
|
|
7 |
;; Author: Bill Wohler <wohler@newt.com> |
;; Author: Bill Wohler <wohler@newt.com> |
8 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
9 |
;; Version: 7.84 |
;; Version: 7.84+cvs |
10 |
;; Keywords: mail |
;; Keywords: mail |
11 |
|
|
12 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
98 |
(defvar font-lock-auto-fontify) |
(defvar font-lock-auto-fontify) |
99 |
(defvar font-lock-defaults) |
(defvar font-lock-defaults) |
100 |
|
|
101 |
(defconst mh-version "7.84" "Version number of MH-E.") |
(defconst mh-version "7.84+cvs" "Version number of MH-E.") |
102 |
|
|
103 |
(defvar mh-partial-folder-mode-line-annotation "select" |
(defvar mh-partial-folder-mode-line-annotation "select" |
104 |
"Annotation when displaying part of a folder. |
"Annotation when displaying part of a folder. |
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 |
;;; desktop-buffer-mode-handlers appeared in Emacs 22. |
1671 |
'(mh-folder-mode . mh-restore-desktop-buffer)) |
(if (fboundp 'desktop-buffer-mode-handlers) |
1672 |
|
(add-to-list 'desktop-buffer-mode-handlers |
1673 |
|
'(mh-folder-mode . mh-restore-desktop-buffer))) |
1674 |
|
|
1675 |
(defun mh-scan-folder (folder range &optional dont-exec-pending) |
(defun mh-scan-folder (folder range &optional dont-exec-pending) |
1676 |
"Scan the FOLDER over the RANGE. |
"Scan the FOLDER over the RANGE. |