[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-funcs.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-funcs.el [emacs-unicode-2] |
Date: |
Fri, 16 Jul 2004 23:13:14 -0400 |
Index: emacs/lisp/mh-e/mh-funcs.el
diff -c emacs/lisp/mh-e/mh-funcs.el:1.4.4.1 emacs/lisp/mh-e/mh-funcs.el:1.4.4.2
*** emacs/lisp/mh-e/mh-funcs.el:1.4.4.1 Fri Apr 16 12:50:32 2004
--- emacs/lisp/mh-e/mh-funcs.el Sat Jul 17 02:46:42 2004
***************
*** 72,89 ****
(message "Bursting digest...done")))
;;;###mh-autoload
! (defun mh-copy-msg (msg-or-seq folder)
! "Copy the specified MSG-OR-SEQ to another FOLDER without deleting them.
! Default is the displayed message.
! If optional prefix argument is provided, then prompt for the message sequence.
! If variable `transient-mark-mode' is non-nil and the mark is active, then the
! selected region is copied.
! In a program, MSG-OR-SEQ can be a message number, a list of message numbers, a
! region in a cons cell, or a sequence."
! (interactive (list (mh-interactive-msg-or-seq "Copy")
(mh-prompt-for-folder "Copy to" "" t)))
(let ((msg-list (let ((result ()))
! (mh-iterate-on-msg-or-seq msg msg-or-seq
(mh-notate nil mh-note-copied mh-cmd-note)
(push msg result))
result)))
--- 72,86 ----
(message "Bursting digest...done")))
;;;###mh-autoload
! (defun mh-copy-msg (range folder)
! "Copy the specified RANGE to another FOLDER without deleting them.
!
! 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)))
***************
*** 94,102 ****
(defun mh-kill-folder ()
"Remove the current folder and all included messages.
Removes all of the messages (files) within the specified current folder,
! and then removes the folder (directory) itself."
(interactive)
! (if (or mh-index-data
(yes-or-no-p (format "Remove folder %s (and all included messages)?
"
mh-current-folder)))
(let ((folder mh-current-folder)
--- 91,103 ----
(defun mh-kill-folder ()
"Remove the current folder and all included messages.
Removes all of the messages (files) within the specified current folder,
! and then removes the folder (directory) itself.
! The value of `mh-kill-folder-suppress-prompt-hook' is a list of functions to
! be called, with no arguments, which should return a value of non-nil if
! verification is not desired."
(interactive)
! (if (or (run-hook-with-args-until-success
! 'mh-kill-folder-suppress-prompt-hook)
(yes-or-no-p (format "Remove folder %s (and all included messages)?
"
mh-current-folder)))
(let ((folder mh-current-folder)
***************
*** 154,160 ****
optional prefix argument provided, prompt for the RANGE of messages to display
after packing. Otherwise, show the entire folder."
(interactive (list (if current-prefix-arg
! (mh-read-msg-range mh-current-folder t)
'("all"))))
(let ((threaded-flag (memq 'unthread mh-view-ops)))
(mh-pack-folder-1 range)
--- 155,162 ----
optional prefix argument provided, prompt for the RANGE of messages to display
after packing. Otherwise, show the entire folder."
(interactive (list (if current-prefix-arg
! (mh-read-range "Scan" mh-current-folder t nil t
! mh-interpret-number-as-range-flag)
'("all"))))
(let ((threaded-flag (memq 'unthread mh-view-ops)))
(mh-pack-folder-1 range)
***************
*** 231,252 ****
(mh-recenter 0)))
;;;###mh-autoload
! (defun mh-print-msg (msg-or-seq)
! "Print MSG-OR-SEQ on printer.
! Default is the displayed message.
! If optional prefix argument is provided, then prompt for the message sequence.
! If variable `transient-mark-mode' is non-nil and the mark is active, then the
! selected region is printed.
! In a program, MSG-OR-SEQ can be a message number, a list of message numbers, a
! region in a cons cell, or a sequence.
The variable `mh-lpr-command-format' is used to generate the print command.
The messages are formatted by mhl. See the variable `mhl-formfile'."
! (interactive (list (mh-interactive-msg-or-seq "Print")))
(message "Printing...")
(let (msgs)
;; Gather message numbers and add them to "printed" sequence.
! (mh-iterate-on-msg-or-seq msg msg-or-seq
(mh-add-msgs-to-seq msg 'printed t)
(mh-notate nil mh-note-printed mh-cmd-note)
(push msg msgs))
--- 233,251 ----
(mh-recenter 0)))
;;;###mh-autoload
! (defun mh-print-msg (range)
! "Print RANGE on printer.
!
! Check the documentation of `mh-interactive-range' to see how RANGE is read in
! interactive use.
The variable `mh-lpr-command-format' is used to generate the print command.
The messages are formatted by mhl. See the variable `mhl-formfile'."
! (interactive (list (mh-interactive-range "Print")))
(message "Printing...")
(let (msgs)
;; Gather message numbers and add them to "printed" sequence.
! (mh-iterate-on-range msg range
(mh-add-msgs-to-seq msg 'printed t)
(mh-notate nil mh-note-printed mh-cmd-note)
(push msg msgs))
***************
*** 258,269 ****
(mh-coalesce-msg-list msgs)) " "))
(lpr-command
(format mh-lpr-command-format
! (cond ((listp msg-or-seq)
(format "Folder: %s, Messages: %s"
mh-current-folder msgs-string))
! ((symbolp msg-or-seq)
(format "Folder: %s, Sequence: %s"
! mh-current-folder msg-or-seq)))))
(scan-command
(format "scan %s | %s" msgs-string lpr-command)))
(if mh-print-background-flag
--- 257,268 ----
(mh-coalesce-msg-list msgs)) " "))
(lpr-command
(format mh-lpr-command-format
! (cond ((listp range)
(format "Folder: %s, Messages: %s"
mh-current-folder msgs-string))
! ((symbolp range)
(format "Folder: %s, Sequence: %s"
! mh-current-folder range)))))
(scan-command
(format "scan %s | %s" msgs-string lpr-command)))
(if mh-print-background-flag
***************
*** 319,325 ****
mh-seq-list nil
mh-next-direction 'forward)
(with-mh-folder-updating (nil)
! (mh-unmark-all-headers t)))
(t
(message "Commands not undone.")
;; Remove by 2003-06-30 if nothing seems amiss. XXX
--- 318,324 ----
mh-seq-list nil
mh-next-direction 'forward)
(with-mh-folder-updating (nil)
! (mh-remove-all-notation)))
(t
(message "Commands not undone.")
;; Remove by 2003-06-30 if nothing seems amiss. XXX
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-funcs.el [emacs-unicode-2],
Miles Bader <=