Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
031c6757
Commit
031c6757
authored
Jan 26, 2009
by
Stephen Gildea
Browse files
mh-e.el (mh-pack-folder-hook): New variable.
mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.
parent
19ae3e61
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
18 additions
and
1 deletion
+18
-1
lisp/mh-e/ChangeLog
lisp/mh-e/ChangeLog
+5
-0
lisp/mh-e/mh-e.el
lisp/mh-e/mh-e.el
+8
-0
lisp/mh-e/mh-funcs.el
lisp/mh-e/mh-funcs.el
+5
-1
No files found.
lisp/mh-e/ChangeLog
View file @
031c6757
2009
-
01
-
26
Stephen
Gildea
<
gildea
@
stop
.
mail
-
abuse
.
org
>
*
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
<
wohler
@
newt
.
com
>
*
mh
-
utils
.
el
(
mh
-
goto
-
header
-
end
):
Use
mh
-
mail
-
header
-
separator
...
...
lisp/mh-e/mh-e.el
View file @
031c6757
...
...
@@ -3243,6 +3243,14 @@ This can be done with this hook which is called when
: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.
...
...
lisp/mh-e/mh-funcs.el
View file @
031c6757
...
...
@@ -169,7 +169,10 @@ in interactive use.
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 @@ the pending refiles and deletes."
(
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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment