comparison lisp/mh-e/mh-funcs.el @ 101561:76170411fca7

(mh-pack-folder): Fix docstring.
author Bill Wohler <wohler@newt.com>
date Tue, 27 Jan 2009 06:42:11 +0000
parents a1d83c2b479e
children 00c0adbb54a9
comparison
equal deleted inserted replaced
101560:c7c6fb156f47 101561:76170411fca7
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 173
174 The hook `mh-pack-folder-hook' is run after annotating; see its 174 The hook `mh-pack-folder-hook' is run after the folder is packed;
175 documentation for variables it can use." 175 see its documentation for variables it can use."
176 (interactive (list (if current-prefix-arg 176 (interactive (list (if current-prefix-arg
177 (mh-read-range "Scan" mh-current-folder t nil t 177 (mh-read-range "Scan" mh-current-folder t nil t
178 mh-interpret-number-as-range-flag) 178 mh-interpret-number-as-range-flag)
179 '("all")))) 179 '("all"))))
180 (let ((threaded-flag (memq 'unthread mh-view-ops))) 180 (let ((threaded-flag (memq 'unthread mh-view-ops)))