Mercurial > emacs
comparison lisp/mh-e/mh-funcs.el @ 101520:a1d83c2b479e
mh-e.el (mh-pack-folder-hook): New variable.
mh-funcs.el (mh-pack-folder): Call new mh-pack-folder-hook.
| author | Stephen Gildea <gildea@stop.mail-abuse.org> |
|---|---|
| date | Mon, 26 Jan 2009 14:42:31 +0000 |
| parents | 14078457bc80 |
| children | 76170411fca7 |
comparison
equal
deleted
inserted
replaced
| 101519:9021c01f512d | 101520:a1d83c2b479e |
|---|---|
| 167 documentation of `mh-interactive-range' to see how RANGE is read | 167 documentation of `mh-interactive-range' to see how RANGE is read |
| 168 in interactive use. | 168 in interactive use. |
| 169 | 169 |
| 170 This command will ask if you want to process refiles or deletes | 170 This command will ask if you want to process refiles or deletes |
| 171 first and then either run \\[mh-execute-commands] for you or undo | 171 first and then either run \\[mh-execute-commands] for you or undo |
| 172 the pending refiles and deletes." | 172 the pending refiles and deletes. |
| 173 | |
| 174 The hook `mh-pack-folder-hook' is run after annotating; see its | |
| 175 documentation for variables it can use." | |
| 173 (interactive (list (if current-prefix-arg | 176 (interactive (list (if current-prefix-arg |
| 174 (mh-read-range "Scan" mh-current-folder t nil t | 177 (mh-read-range "Scan" mh-current-folder t nil t |
| 175 mh-interpret-number-as-range-flag) | 178 mh-interpret-number-as-range-flag) |
| 176 '("all")))) | 179 '("all")))) |
| 177 (let ((threaded-flag (memq 'unthread mh-view-ops))) | 180 (let ((threaded-flag (memq 'unthread mh-view-ops))) |
| 179 (mh-goto-cur-msg) | 182 (mh-goto-cur-msg) |
| 180 (when mh-index-data | 183 (when mh-index-data |
| 181 (mh-index-update-maps mh-current-folder)) | 184 (mh-index-update-maps mh-current-folder)) |
| 182 (cond (threaded-flag (mh-toggle-threads)) | 185 (cond (threaded-flag (mh-toggle-threads)) |
| 183 (mh-index-data (mh-index-insert-folder-headers)))) | 186 (mh-index-data (mh-index-insert-folder-headers)))) |
| 187 (run-hooks 'mh-pack-folder-hook) | |
| 184 (message "Packing folder...done")) | 188 (message "Packing folder...done")) |
| 185 | 189 |
| 186 (defun mh-pack-folder-1 (range) | 190 (defun mh-pack-folder-1 (range) |
| 187 "Close and pack the current folder. | 191 "Close and pack the current folder. |
| 188 | 192 |