/[emacs]/emacs/lisp/mh-e/mh-index.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-index.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by deego, Sun Sep 18 12:48:32 2005 UTC revision 1.13 by wohler, Mon Dec 5 00:52:56 2005 UTC
# Line 1287  then the folders are searched recursivel Line 1287  then the folders are searched recursivel
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)
# Line 1330  space-separated list of folders, or noth Line 1330  space-separated list of folders, or noth
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    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26