emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-funcs.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-funcs.el [lexbind]
Date: Fri, 16 Jul 2004 23:12:18 -0400

Index: emacs/lisp/mh-e/mh-funcs.el
diff -c emacs/lisp/mh-e/mh-funcs.el:1.3.4.2 emacs/lisp/mh-e/mh-funcs.el:1.3.4.3
*** emacs/lisp/mh-e/mh-funcs.el:1.3.4.2 Tue Oct 14 23:39:26 2003
--- emacs/lisp/mh-e/mh-funcs.el Sat Jul 17 02:51:48 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]