[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-index.el mh-customize.el Cha...
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-index.el mh-customize.el Cha... |
Date: |
Sun, 04 Dec 2005 19:52:57 -0500 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 05/12/05 00:52:57
Modified files:
lisp/mh-e : mh-index.el mh-customize.el ChangeLog
Log message:
* mh-customize.el (mh-new-messages-folders): Rename from
mh-index-new-messages-folders.
(mh-ticked-messages-folders): Rename from
mh-index-ticked-messages-folders.
* mh-index.el (mh-index-sequenced-messages)
(mh-index-new-messages): Ditto.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/mh-index.el.diff?tr1=1.12&tr2=1.13&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/mh-customize.el.diff?tr1=1.36&tr2=1.37&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.68&tr2=1.69&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.68 emacs/lisp/mh-e/ChangeLog:1.69
--- emacs/lisp/mh-e/ChangeLog:1.68 Sun Dec 4 22:34:49 2005
+++ emacs/lisp/mh-e/ChangeLog Mon Dec 5 00:52:57 2005
@@ -1,5 +1,13 @@
2005-12-04 Bill Wohler <address@hidden>
+ * mh-customize.el (mh-new-messages-folders): Rename from
+ mh-index-new-messages-folders.
+ (mh-ticked-messages-folders): Rename from
+ mh-index-ticked-messages-folders.
+
+ * mh-index.el (mh-index-sequenced-messages)
+ (mh-index-new-messages): Ditto.
+
* mh-comp.el (mh-forward): Went over all uses of the word "RANGE"
in the docstrings and made usage consistent. Generally speaking,
"messages in range" and "range of messages" is redundant and just
Index: emacs/lisp/mh-e/mh-customize.el
diff -u emacs/lisp/mh-e/mh-customize.el:1.36
emacs/lisp/mh-e/mh-customize.el:1.37
--- emacs/lisp/mh-e/mh-customize.el:1.36 Fri Dec 2 05:54:33 2005
+++ emacs/lisp/mh-e/mh-customize.el Mon Dec 5 00:52:57 2005
@@ -384,8 +384,9 @@
;;; Organizing Your Mail with Folders (:group 'mh-folder)
-(defcustom mh-index-new-messages-folders t
+(defcustom mh-new-messages-folders t
"Folders searched for the \"unseen\" sequence.
+
Set this option to \"Inbox\" to search the \"+inbox\" folder or \"All\" to
search all of the top level folders. Otherwise, list the folders that should
be searched with the \"Choose Folders\" menu item.
@@ -396,8 +397,9 @@
(repeat :tag "Choose Folders" (string :tag "Folder")))
:group 'mh-folder)
-(defcustom mh-index-ticked-messages-folders t
+(defcustom mh-ticked-messages-folders t
"Folders searched for `mh-tick-seq'.
+
Set this option to \"Inbox\" to search the \"+inbox\" folder or \"All\" to
search all of the top level folders. Otherwise, list the folders that should
be searched with the \"Choose Folders\" menu item.
Index: emacs/lisp/mh-e/mh-index.el
diff -u emacs/lisp/mh-e/mh-index.el:1.12 emacs/lisp/mh-e/mh-index.el:1.13
--- emacs/lisp/mh-e/mh-index.el:1.12 Sun Sep 18 12:48:32 2005
+++ emacs/lisp/mh-e/mh-index.el Mon Dec 5 00:52:56 2005
@@ -1287,12 +1287,12 @@
(defun mh-index-sequenced-messages (folders sequence)
"Display messages from FOLDERS in SEQUENCE.
All messages in the sequence you provide from the folders in
-`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
space-separated list of folders, or nothing to search all folders."
(interactive
(list (if current-prefix-arg
- (split-string (read-string "Search folder(s): [all] "))
- mh-index-new-messages-folders)
+ (split-string (read-string "Search folder(s) (default all): "))
+ mh-new-messages-folders)
(mh-read-seq-default "Search" nil)))
(unless sequence (setq sequence mh-unseen-seq))
(let* ((mh-flists-search-folders folders)
@@ -1330,27 +1330,33 @@
;;;###mh-autoload
(defun mh-index-new-messages (folders)
"Display unseen messages.
+
If you use a program such as `procmail' to use `rcvstore' to file your
incoming mail automatically, you can display new, unseen, messages using this
command. All messages in the `unseen' sequence from the folders in
-`mh-index-new-messages-folders' are listed. With a prefix argument, enter a
-space-separated list of FOLDERS, or nothing to search all folders."
+`mh-new-messages-folders' are listed.
+
+With a prefix argument, enter a space-separated list of FOLDERS, or nothing to
+search all folders."
(interactive
(list (if current-prefix-arg
- (split-string (read-string "Search folder(s): [all] "))
- mh-index-new-messages-folders)))
+ (split-string (read-string "Search folder(s) (default all): "))
+ mh-new-messages-folders)))
(mh-index-sequenced-messages folders mh-unseen-seq))
;;;###mh-autoload
(defun mh-index-ticked-messages (folders)
"Display ticked messages.
-All messages in `mh-tick-seq' from the folders in
-`mh-index-ticked-messages-folders' are listed. With a prefix argument, enter a
-space-separated list of FOLDERS, or nothing to search all folders."
+
+All messages in `mh-tick-seq' from the folders in `mh-ticked-messages-folders'
+are listed.
+
+With a prefix argument, enter a space-separated list of FOLDERS, or nothing to
+search all folders."
(interactive
(list (if current-prefix-arg
- (split-string (read-string "Search folder(s): [all] "))
- mh-index-ticked-messages-folders)))
+ (split-string (read-string "Search folder(s) (default all): "))
+ mh-ticked-messages-folders)))
(mh-index-sequenced-messages folders mh-tick-seq))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-index.el mh-customize.el Cha...,
Bill Wohler <=