/[emacs]/emacs/lisp/mh-e/mh-funcs.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-funcs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by wohler, Fri Dec 2 05:54:33 2005 UTC revision 1.15 by wohler, Sun Dec 4 22:34:49 2005 UTC
# Line 79  field yourself." Line 79  field yourself."
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."
# Line 156  Display the results only if something we Line 163  Display the results only if something we
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)
# Line 175  after packing. Otherwise, show the entir Line 188  after packing. Otherwise, show the entir
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

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26