203 |
|
|
204 |
(defvar mh-partial-folder-mode-line-annotation "select" |
(defvar mh-partial-folder-mode-line-annotation "select" |
205 |
"Annotation when displaying part of a folder. |
"Annotation when displaying part of a folder. |
206 |
The string is displayed after the folder's name. NIL for no annotation.") |
The string is displayed after the folder's name. nil for no annotation.") |
207 |
|
|
208 |
|
|
209 |
;;; Internal variables: |
;;; Internal variables: |
779 |
|
|
780 |
`mhl-formfile' (nil) |
`mhl-formfile' (nil) |
781 |
Name of format file to be used by mhl to show messages. |
Name of format file to be used by mhl to show messages. |
782 |
A value of T means use the default format file. |
A value of t means use the default format file. |
783 |
Nil means don't use mhl to format messages. |
nil means don't use mhl to format messages. |
784 |
|
|
785 |
`mh-lpr-command-format' (\"lpr -p -J '%s'\") |
`mh-lpr-command-format' (\"lpr -p -J '%s'\") |
786 |
Format for command used to print a message on a system printer. |
Format for command used to print a message on a system printer. |
1080 |
|
|
1081 |
(defun mh-update-unseen () |
(defun mh-update-unseen () |
1082 |
;; Flush updates to the Unseen sequence out to MH. |
;; Flush updates to the Unseen sequence out to MH. |
1083 |
;; Return non-NIL iff set the MH folder. |
;; Return non-nil iff set the MH folder. |
1084 |
(if mh-seen-list |
(if mh-seen-list |
1085 |
(let* ((unseen-seq (mh-find-seq mh-unseen-seq)) |
(let* ((unseen-seq (mh-find-seq mh-unseen-seq)) |
1086 |
(unseen-msgs (mh-seq-msgs unseen-seq))) |
(unseen-msgs (mh-seq-msgs unseen-seq))) |
1211 |
|
|
1212 |
|
|
1213 |
(defun mh-internal-seq (name) |
(defun mh-internal-seq (name) |
1214 |
;; Return non-NIL if NAME is the name of an internal mh-e sequence. |
;; Return non-nil if NAME is the name of an internal mh-e sequence. |
1215 |
(or (memq name '(answered cur deleted forwarded printed)) |
(or (memq name '(answered cur deleted forwarded printed)) |
1216 |
(eq name mh-unseen-seq) |
(eq name mh-unseen-seq) |
1217 |
(eq name mh-previous-seq) |
(eq name mh-previous-seq) |