Function: mh-copy-msg
mh-copy-msg is an autoloaded, interactive and byte-compiled function
defined in mh-funcs.el.gz.
Signature
(mh-copy-msg RANGE FOLDER)
Documentation
Copy RANGE to FOLDER.
If you wish to copy a message to another folder, you can use this
command (see the "-link" argument to "refile"). Like the
command o (mh-refile-msg), this command prompts you for the name
of the target folder and you can specify a range. Note that
unlike the command o (mh-refile-msg), the copy takes place
immediately. The original copy remains in the current folder.
Check the documentation of mh-interactive-range to see how
RANGE is read in interactive use.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/mh-e/mh-funcs.el.gz
;;;###mh-autoload
(defun mh-copy-msg (range folder)
"Copy RANGE to FOLDER\\<mh-folder-mode-map>.
If you wish to copy a message to another folder, you can use this
command (see the \"-link\" argument to \"refile\"). Like the
command \\[mh-refile-msg], this command prompts you for the name
of the target folder and you can specify a range. Note that
unlike the command \\[mh-refile-msg], the copy takes place
immediately. The original copy remains in the current folder.
Check the documentation of `mh-interactive-range' to see how
RANGE is read in interactive use."
(interactive (list (mh-interactive-range "Copy")
(mh-prompt-for-folder "Copy to" "" t)))
(let ((msg-list (let ((result ()))
(mh-iterate-on-range msg range
(mh-notate nil mh-note-copied mh-cmd-note)
(push msg result))
result)))
(mh-exec-cmd "refile" (mh-coalesce-msg-list msg-list)
"-link" "-src" mh-current-folder folder)))