[Emacs-commit] emacs/lisp/mh-e mh-seq.el mh-e.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    05/12/15 19:32:01

Modified files:
        lisp/mh-e      : mh-seq.el mh-e.el ChangeLog 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-seq.el.diff?tr1=1.14&tr2=1.15&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-e.el.diff?tr1=1.35&tr2=1.36&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.75&tr2=1.76&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.75 emacs/lisp/mh-e/ChangeLog:1.76
--- emacs/lisp/mh-e/ChangeLog:1.75      Wed Dec 14 18:47:38 2005
+++ emacs/lisp/mh-e/ChangeLog   Thu Dec 15 19:32:01 2005
@@ -1,3 +1,11 @@
+2005-12-15  Bill Wohler  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mh-customize.el (mh-speed-flists-interval): Rename to
Index: emacs/lisp/mh-e/mh-e.el
diff -u emacs/lisp/mh-e/mh-e.el:1.35 emacs/lisp/mh-e/mh-e.el:1.36
--- emacs/lisp/mh-e/mh-e.el:1.35        Sun Dec  4 22:34:49 2005
+++ emacs/lisp/mh-e/mh-e.el     Thu Dec 15 19:32:01 2005
@@ -535,7 +535,7 @@
 ;;; User executable MH-E commands:
 
 (defun mh-delete-msg (range)
-  "Delete message\\<mh-folder-mode-map>.
+  "Delete RANGE\\<mh-folder-mode-map>.
 
 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
Index: emacs/lisp/mh-e/mh-seq.el
diff -u emacs/lisp/mh-e/mh-seq.el:1.14 emacs/lisp/mh-e/mh-seq.el:1.15
--- emacs/lisp/mh-e/mh-seq.el:1.14      Sun Dec  4 22:34:49 2005
+++ emacs/lisp/mh-e/mh-seq.el   Thu Dec 15 19:32:01 2005
@@ -936,10 +936,12 @@
 
 ;;;###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\\<mh-folder-mode-map>.
+
+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 @@
 
 ;;;###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\\<mh-folder-mode-map>.
+
+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 @@
 
 ;;;###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 @@
 
 ;;;###mh-autoload
 (defun mh-thread-previous-sibling ()
-  "Jump to previous sibling."
+  "Display previous sibling."
   (interactive)
   (mh-thread-next-sibling t))
 
@@ -1610,9 +1617,11 @@
 
 ;;;###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 @@
 
 ;;;###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 @@
 
 ;;;###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"))