1287 |
(defun mh-index-sequenced-messages (folders sequence) |
(defun mh-index-sequenced-messages (folders sequence) |
1288 |
"Display messages from FOLDERS in SEQUENCE. |
"Display messages from FOLDERS in SEQUENCE. |
1289 |
All messages in the sequence you provide from the folders in |
All messages in the sequence you provide from the folders in |
1290 |
`mh-index-new-messages-folders' are listed. With a prefix argument, enter a |
`mh-new-messages-folders' are listed. With a prefix argument, enter a |
1291 |
space-separated list of folders, or nothing to search all folders." |
space-separated list of folders, or nothing to search all folders." |
1292 |
(interactive |
(interactive |
1293 |
(list (if current-prefix-arg |
(list (if current-prefix-arg |
1294 |
(split-string (read-string "Search folder(s): [all] ")) |
(split-string (read-string "Search folder(s) (default all): ")) |
1295 |
mh-index-new-messages-folders) |
mh-new-messages-folders) |
1296 |
(mh-read-seq-default "Search" nil))) |
(mh-read-seq-default "Search" nil))) |
1297 |
(unless sequence (setq sequence mh-unseen-seq)) |
(unless sequence (setq sequence mh-unseen-seq)) |
1298 |
(let* ((mh-flists-search-folders folders) |
(let* ((mh-flists-search-folders folders) |
1330 |
;;;###mh-autoload |
;;;###mh-autoload |
1331 |
(defun mh-index-new-messages (folders) |
(defun mh-index-new-messages (folders) |
1332 |
"Display unseen messages. |
"Display unseen messages. |
1333 |
|
|
1334 |
If you use a program such as `procmail' to use `rcvstore' to file your |
If you use a program such as `procmail' to use `rcvstore' to file your |
1335 |
incoming mail automatically, you can display new, unseen, messages using this |
incoming mail automatically, you can display new, unseen, messages using this |
1336 |
command. All messages in the `unseen' sequence from the folders in |
command. All messages in the `unseen' sequence from the folders in |
1337 |
`mh-index-new-messages-folders' are listed. With a prefix argument, enter a |
`mh-new-messages-folders' are listed. |
1338 |
space-separated list of FOLDERS, or nothing to search all folders." |
|
1339 |
|
With a prefix argument, enter a space-separated list of FOLDERS, or nothing to |
1340 |
|
search all folders." |
1341 |
(interactive |
(interactive |
1342 |
(list (if current-prefix-arg |
(list (if current-prefix-arg |
1343 |
(split-string (read-string "Search folder(s): [all] ")) |
(split-string (read-string "Search folder(s) (default all): ")) |
1344 |
mh-index-new-messages-folders))) |
mh-new-messages-folders))) |
1345 |
(mh-index-sequenced-messages folders mh-unseen-seq)) |
(mh-index-sequenced-messages folders mh-unseen-seq)) |
1346 |
|
|
1347 |
;;;###mh-autoload |
;;;###mh-autoload |
1348 |
(defun mh-index-ticked-messages (folders) |
(defun mh-index-ticked-messages (folders) |
1349 |
"Display ticked messages. |
"Display ticked messages. |
1350 |
All messages in `mh-tick-seq' from the folders in |
|
1351 |
`mh-index-ticked-messages-folders' are listed. With a prefix argument, enter a |
All messages in `mh-tick-seq' from the folders in `mh-ticked-messages-folders' |
1352 |
space-separated list of FOLDERS, or nothing to search all folders." |
are listed. |
1353 |
|
|
1354 |
|
With a prefix argument, enter a space-separated list of FOLDERS, or nothing to |
1355 |
|
search all folders." |
1356 |
(interactive |
(interactive |
1357 |
(list (if current-prefix-arg |
(list (if current-prefix-arg |
1358 |
(split-string (read-string "Search folder(s): [all] ")) |
(split-string (read-string "Search folder(s) (default all): ")) |
1359 |
mh-index-ticked-messages-folders))) |
mh-ticked-messages-folders))) |
1360 |
(mh-index-sequenced-messages folders mh-tick-seq)) |
(mh-index-sequenced-messages folders mh-tick-seq)) |
1361 |
|
|
1362 |
|
|