79 |
|
|
80 |
;;;###mh-autoload |
;;;###mh-autoload |
81 |
(defun mh-copy-msg (range folder) |
(defun mh-copy-msg (range folder) |
82 |
"Copy the specified RANGE to another FOLDER without deleting them. |
"Copy RANGE to FOLDER\\<mh-folder-mode-map>. |
83 |
|
|
84 |
|
If you wish to copy a message to another folder, you can use this command |
85 |
|
\(see the \"-link\" argument to \"refile\"). Like the command |
86 |
|
\\[mh-refile-msg], this command prompts you for the name of the target folder |
87 |
|
and you can specify a range. Note that unlike the command \\[mh-refile-msg], |
88 |
|
the copy takes place immediately. The original copy remains in the current |
89 |
|
folder. |
90 |
|
|
91 |
Check the documentation of `mh-interactive-range' to see how RANGE is read in |
Check the documentation of `mh-interactive-range' to see how RANGE is read in |
92 |
interactive use." |
interactive use." |
163 |
|
|
164 |
;;;###mh-autoload |
;;;###mh-autoload |
165 |
(defun mh-pack-folder (range) |
(defun mh-pack-folder (range) |
166 |
"Renumber the messages of a folder to be 1..n. |
"Pack folder\\<mh-folder-mode-map>. |
167 |
First, offer to execute any outstanding commands for the current folder. If |
|
168 |
optional prefix argument provided, prompt for the RANGE of messages to display |
This command packs the folder, removing gaps from the numbering sequence. If |
169 |
after packing. Otherwise, show the entire folder." |
you don't want to rescan the entire folder afterward, this command will accept |
170 |
|
a RANGE. Check the documentation of `mh-interactive-range' to see how RANGE is |
171 |
|
read in interactive use. |
172 |
|
|
173 |
|
This command will ask if you want to process refiles or deletes first and then |
174 |
|
either run \\[mh-execute-commands] for you or undo the pending refiles and |
175 |
|
deletes, which are lost." |
176 |
(interactive (list (if current-prefix-arg |
(interactive (list (if current-prefix-arg |
177 |
(mh-read-range "Scan" mh-current-folder t nil t |
(mh-read-range "Scan" mh-current-folder t nil t |
178 |
mh-interpret-number-as-range-flag) |
mh-interpret-number-as-range-flag) |
188 |
|
|
189 |
(defun mh-pack-folder-1 (range) |
(defun mh-pack-folder-1 (range) |
190 |
"Close and pack the current folder. |
"Close and pack the current folder. |
191 |
Display the given RANGE of messages after packing. If RANGE is nil, show the |
|
192 |
entire folder." |
Display RANGE after packing, or the entire folder if RANGE is nil." |
193 |
(mh-process-or-undo-commands mh-current-folder) |
(mh-process-or-undo-commands mh-current-folder) |
194 |
(message "Packing folder...") |
(message "Packing folder...") |
195 |
(mh-set-folder-modified-p t) ; lock folder while packing |
(mh-set-folder-modified-p t) ; lock folder while packing |