[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el |
Date: |
Thu, 06 Feb 2003 17:01:23 -0500 |
Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.126 emacs/lisp/mail/rmailsum.el:1.127
*** emacs/lisp/mail/rmailsum.el:1.126 Tue Feb 4 08:14:00 2003
--- emacs/lisp/mail/rmailsum.el Thu Feb 6 17:01:23 2003
***************
*** 42,48 ****
;;;###autoload
(defcustom rmail-summary-line-count-flag t
! "*Non-nil if Rmail summary should show the number of lines in each message."
:type 'boolean
:group 'rmail-summary)
--- 42,48 ----
;;;###autoload
(defcustom rmail-summary-line-count-flag t
! "*Non-nil means Rmail summary should show the number of lines in each
message."
:type 'boolean
:group 'rmail-summary)
***************
*** 513,527 ****
non-del-msg-found)))
(setq count (1- count))))
(beginning-of-line)
! (display-buffer rmail-view-buffer)
! )
(defun rmail-summary-previous-msg (&optional number)
(interactive "p")
(rmail-summary-next-msg (- (if number number 1))))
(defun rmail-summary-next-labeled-message (n labels)
! "Show next message with LABEL. Defaults to last labels used.
With prefix argument N moves forward N messages with these labels."
(interactive "p\nsMove to next msg with labels: ")
(let (msg)
--- 513,529 ----
non-del-msg-found)))
(setq count (1- count))))
(beginning-of-line)
! (display-buffer rmail-view-buffer))
(defun rmail-summary-previous-msg (&optional number)
+ "Display previous non-deleted msg from rmail file.
+ With optional prefix argument NUMBER, moves backward this number of
+ non-deleted messages."
(interactive "p")
(rmail-summary-next-msg (- (if number number 1))))
(defun rmail-summary-next-labeled-message (n labels)
! "Show next message with LABELS. Defaults to last labels used.
With prefix argument N moves forward N messages with these labels."
(interactive "p\nsMove to next msg with labels: ")
(let (msg)
***************
*** 532,538 ****
(rmail-summary-goto-msg msg)))
(defun rmail-summary-previous-labeled-message (n labels)
! "Show previous message with LABEL. Defaults to last labels used.
With prefix argument N moves backward N messages with these labels."
(interactive "p\nsMove to previous msg with labels: ")
(let (msg)
--- 534,540 ----
(rmail-summary-goto-msg msg)))
(defun rmail-summary-previous-labeled-message (n labels)
! "Show previous message with LABELS. Defaults to last labels used.
With prefix argument N moves backward N messages with these labels."
(interactive "p\nsMove to previous msg with labels: ")
(let (msg)
***************
*** 1405,1411 ****
;;;; *** Rmail Summary Mailing Commands ***
(defun rmail-summary-override-mail-send-and-exit ()
! "Replace bindings to 'mail-send-and-exit with 'rmail-summary-send-and-exit"
(use-local-map (copy-keymap (current-local-map)))
(dolist (key (where-is-internal 'mail-send-and-exit))
(define-key (current-local-map) key 'rmail-summary-send-and-exit)))
--- 1407,1413 ----
;;;; *** Rmail Summary Mailing Commands ***
(defun rmail-summary-override-mail-send-and-exit ()
! "Replace bindings to `mail-send-and-exit' with
`rmail-summary-send-and-exit'."
(use-local-map (copy-keymap (current-local-map)))
(dolist (key (where-is-internal 'mail-send-and-exit))
(define-key (current-local-map) key 'rmail-summary-send-and-exit)))
***************
*** 1475,1481 ****
(rmail-summary-override-mail-send-and-exit)))
(defun rmail-summary-resend ()
! "Resend current message using 'rmail-resend'."
(interactive)
(save-excursion
(let ((window (get-buffer-window rmail-buffer)))
--- 1477,1483 ----
(rmail-summary-override-mail-send-and-exit)))
(defun rmail-summary-resend ()
! "Resend current message using `rmail-resend'."
(interactive)
(save-excursion
(let ((window (get-buffer-window rmail-buffer)))