From 7a5df5a9adddc2c3229ace27783cc5de4010bcca Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Thu, 15 Dec 2005 19:32:01 +0000 Subject: [PATCH] * mh-e.el (mh-delete-msg): Sync docstrings with manual. * mh-seq.el (mh-delete-subject, mh-thread-next-sibling) (mh-thread-previous-sibling, mh-thread-ancestor) (mh-thread-delete, mh-thread-refile): Ditto. --- lisp/mh-e/ChangeLog | 8 ++++++++ lisp/mh-e/mh-e.el | 2 +- lisp/mh-e/mh-seq.el | 41 +++++++++++++++++++++++++---------------- 3 files changed, 34 insertions(+), 17 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 6f9e343123d..33f016bb2f9 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,11 @@ +2005-12-15 Bill Wohler + + * mh-e.el (mh-delete-msg): Sync docstrings with manual. + + * mh-seq.el (mh-delete-subject, mh-thread-next-sibling) + (mh-thread-previous-sibling, mh-thread-ancestor) + (mh-thread-delete, mh-thread-refile): Ditto. + 2005-12-14 Bill Wohler * mh-customize.el (mh-speed-flists-interval): Rename to diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index c69c62bd734..b87fa4c2e3d 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -535,7 +535,7 @@ the Emacs interface to the MH mail system." ;;; User executable MH-E commands: (defun mh-delete-msg (range) - "Delete message\\. + "Delete RANGE\\. To mark a message for deletion, use this command. A \"D\" is placed by the message in the scan window, and the next undeleted message is displayed. If diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el index fcf9c64e266..795970d3739 100644 --- a/lisp/mh-e/mh-seq.el +++ b/lisp/mh-e/mh-seq.el @@ -936,10 +936,12 @@ Use \\\\[mh-widen] to undo this command." ;;;###mh-autoload (defun mh-delete-subject () - "Mark all following messages with same subject to be deleted. -This puts the messages in a sequence named subject. You can undo the last -deletion marks using `mh-undo' with a prefix argument and then specifying the -subject sequence." + "Delete messages with same subject\\. + +To delete messages faster, you can use this command to delete all the messages +with the same subject as the current message. This command puts these messages +in a sequence named \"subject\". You can undo this action by using \\[mh-undo] +with a prefix argument and then specifying the \"subject\" sequence." (interactive) (let ((count (mh-subject-to-sequence nil))) (cond @@ -954,11 +956,15 @@ subject sequence." ;;;###mh-autoload (defun mh-delete-subject-or-thread () - "Mark messages for deletion intelligently. -If the folder is threaded then `mh-thread-delete' is used to mark the current -message and all its descendants for deletion. Otherwise `mh-delete-subject' is -used to mark the current message and all messages following it with the same -subject for deletion." + "Delete messages with same subject or thread\\. + +To delete messages faster, you can use this command to delete all the messages +with the same subject as the current message. This command puts these messages +in a sequence named \"subject\". You can undo this action by using \\[mh-undo] +with a prefix argument and then specifying the \"subject\" sequence. + +However, if the buffer is displaying a threaded view of the folder then this +command behaves like \\[mh-thread-delete]." (interactive) (if (memq 'unthread mh-view-ops) (mh-thread-delete) @@ -1562,7 +1568,8 @@ MSG is the message being notated with NOTATION at OFFSET." ;;;###mh-autoload (defun mh-thread-next-sibling (&optional previous-flag) - "Jump to next sibling. + "Display next sibling. + With non-nil optional argument PREVIOUS-FLAG jump to the previous sibling." (interactive) (cond ((not (memq 'unthread mh-view-ops)) @@ -1589,7 +1596,7 @@ With non-nil optional argument PREVIOUS-FLAG jump to the previous sibling." ;;;###mh-autoload (defun mh-thread-previous-sibling () - "Jump to previous sibling." + "Display previous sibling." (interactive) (mh-thread-next-sibling t)) @@ -1610,9 +1617,11 @@ With non-nil optional argument PREVIOUS-FLAG jump to the previous sibling." ;;;###mh-autoload (defun mh-thread-ancestor (&optional thread-root-flag) - "Jump to the ancestor of current message. -If optional argument THREAD-ROOT-FLAG is non-nil then jump to the root of the -thread tree the message belongs to." + "Display ancestor of current message. + +If you do not care for the way a particular thread has turned, you can move up +the chain of messages with this command. This command can also take a prefix +argument THREAD-ROOT-FLAG to jump to the message that started everything." (interactive "P") (beginning-of-line) (cond ((not (memq 'unthread mh-view-ops)) @@ -1656,7 +1665,7 @@ start of the region and the second is the point at the end." ;;;###mh-autoload (defun mh-thread-delete () - "Mark current message and all its children for subsequent deletion." + "Delete thread." (interactive) (cond ((not (memq 'unthread mh-view-ops)) (error "Folder isn't threaded")) @@ -1669,7 +1678,7 @@ start of the region and the second is the point at the end." ;;;###mh-autoload (defun mh-thread-refile (folder) - "Mark current message and all its children for refiling to FOLDER." + "Refile (output) thread into FOLDER." (interactive (list (intern (mh-prompt-for-refile-folder)))) (cond ((not (memq 'unthread mh-view-ops)) (error "Folder isn't threaded")) -- 2.39.2