[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mh-e ChangeLog mh-e.el mh-funcs.el
From: |
Stephen Gildea |
Subject: |
[Emacs-diffs] emacs/lisp/mh-e ChangeLog mh-e.el mh-funcs.el |
Date: |
Mon, 26 Jan 2009 14:42:32 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Stephen Gildea <gildea> 09/01/26 14:42:32
Modified files:
lisp/mh-e : ChangeLog mh-e.el mh-funcs.el
Log message:
mh-e.el (mh-pack-folder-hook): New variable.
mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/ChangeLog?cvsroot=emacs&r1=1.294&r2=1.295
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-e.el?cvsroot=emacs&r1=1.132&r2=1.133
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-funcs.el?cvsroot=emacs&r1=1.36&r2=1.37
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/ChangeLog,v
retrieving revision 1.294
retrieving revision 1.295
diff -u -b -r1.294 -r1.295
--- ChangeLog 25 Jan 2009 20:56:45 -0000 1.294
+++ ChangeLog 26 Jan 2009 14:42:31 -0000 1.295
@@ -1,3 +1,8 @@
+2009-01-26 Stephen Gildea <address@hidden>
+
+ * mh-e.el (mh-pack-folder-hook): New variable.
+ * mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.
+
2009-01-26 Bill Wohler <address@hidden>
* mh-utils.el (mh-goto-header-end): Use mh-mail-header-separator
Index: mh-e.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-e.el,v
retrieving revision 1.132
retrieving revision 1.133
diff -u -b -r1.132 -r1.133
--- mh-e.el 25 Jan 2009 18:31:22 -0000 1.132
+++ mh-e.el 26 Jan 2009 14:42:32 -0000 1.133
@@ -3243,6 +3243,14 @@
:group 'mh-search
:package-version '(MH-E . "8.0"))
+(defcustom-mh mh-pack-folder-hook nil
+ "Hook run by \\<mh-folder-mode-map>\\[mh-pack-folder] after renumbering the
messages.
+Hook functions can access the current folder name with `mh-current-folder'."
+ :type 'hook
+ :group 'mh-hooks
+ :group 'mh-folder
+ :package-version '(MH-E . "8.1.1"))
+
(defcustom-mh mh-quit-hook nil
"Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
Index: mh-funcs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-funcs.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- mh-funcs.el 25 Jan 2009 18:31:26 -0000 1.36
+++ mh-funcs.el 26 Jan 2009 14:42:32 -0000 1.37
@@ -169,7 +169,10 @@
This command will ask if you want to process refiles or deletes
first and then either run \\[mh-execute-commands] for you or undo
-the pending refiles and deletes."
+the pending refiles and deletes.
+
+The hook `mh-pack-folder-hook' is run after annotating; see its
+documentation for variables it can use."
(interactive (list (if current-prefix-arg
(mh-read-range "Scan" mh-current-folder t nil t
mh-interpret-number-as-range-flag)
@@ -181,6 +184,7 @@
(mh-index-update-maps mh-current-folder))
(cond (threaded-flag (mh-toggle-threads))
(mh-index-data (mh-index-insert-folder-headers))))
+ (run-hooks 'mh-pack-folder-hook)
(message "Packing folder...done"))
(defun mh-pack-folder-1 (range)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/mh-e ChangeLog mh-e.el mh-funcs.el,
Stephen Gildea <=