42 |
|
|
43 |
;;;###autoload |
;;;###autoload |
44 |
(defcustom rmail-summary-line-count-flag t |
(defcustom rmail-summary-line-count-flag t |
45 |
"*Non-nil if Rmail summary should show the number of lines in each message." |
"*Non-nil means Rmail summary should show the number of lines in each message." |
46 |
:type 'boolean |
:type 'boolean |
47 |
:group 'rmail-summary) |
:group 'rmail-summary) |
48 |
|
|
513 |
non-del-msg-found))) |
non-del-msg-found))) |
514 |
(setq count (1- count)))) |
(setq count (1- count)))) |
515 |
(beginning-of-line) |
(beginning-of-line) |
516 |
(display-buffer rmail-view-buffer) |
(display-buffer rmail-view-buffer)) |
|
) |
|
517 |
|
|
518 |
(defun rmail-summary-previous-msg (&optional number) |
(defun rmail-summary-previous-msg (&optional number) |
519 |
|
"Display previous non-deleted msg from rmail file. |
520 |
|
With optional prefix argument NUMBER, moves backward this number of |
521 |
|
non-deleted messages." |
522 |
(interactive "p") |
(interactive "p") |
523 |
(rmail-summary-next-msg (- (if number number 1)))) |
(rmail-summary-next-msg (- (if number number 1)))) |
524 |
|
|
525 |
(defun rmail-summary-next-labeled-message (n labels) |
(defun rmail-summary-next-labeled-message (n labels) |
526 |
"Show next message with LABEL. Defaults to last labels used. |
"Show next message with LABELS. Defaults to last labels used. |
527 |
With prefix argument N moves forward N messages with these labels." |
With prefix argument N moves forward N messages with these labels." |
528 |
(interactive "p\nsMove to next msg with labels: ") |
(interactive "p\nsMove to next msg with labels: ") |
529 |
(let (msg) |
(let (msg) |
534 |
(rmail-summary-goto-msg msg))) |
(rmail-summary-goto-msg msg))) |
535 |
|
|
536 |
(defun rmail-summary-previous-labeled-message (n labels) |
(defun rmail-summary-previous-labeled-message (n labels) |
537 |
"Show previous message with LABEL. Defaults to last labels used. |
"Show previous message with LABELS. Defaults to last labels used. |
538 |
With prefix argument N moves backward N messages with these labels." |
With prefix argument N moves backward N messages with these labels." |
539 |
(interactive "p\nsMove to previous msg with labels: ") |
(interactive "p\nsMove to previous msg with labels: ") |
540 |
(let (msg) |
(let (msg) |
1407 |
;;;; *** Rmail Summary Mailing Commands *** |
;;;; *** Rmail Summary Mailing Commands *** |
1408 |
|
|
1409 |
(defun rmail-summary-override-mail-send-and-exit () |
(defun rmail-summary-override-mail-send-and-exit () |
1410 |
"Replace bindings to 'mail-send-and-exit with 'rmail-summary-send-and-exit" |
"Replace bindings to `mail-send-and-exit' with `rmail-summary-send-and-exit'." |
1411 |
(use-local-map (copy-keymap (current-local-map))) |
(use-local-map (copy-keymap (current-local-map))) |
1412 |
(dolist (key (where-is-internal 'mail-send-and-exit)) |
(dolist (key (where-is-internal 'mail-send-and-exit)) |
1413 |
(define-key (current-local-map) key 'rmail-summary-send-and-exit))) |
(define-key (current-local-map) key 'rmail-summary-send-and-exit))) |
1477 |
(rmail-summary-override-mail-send-and-exit))) |
(rmail-summary-override-mail-send-and-exit))) |
1478 |
|
|
1479 |
(defun rmail-summary-resend () |
(defun rmail-summary-resend () |
1480 |
"Resend current message using 'rmail-resend'." |
"Resend current message using `rmail-resend'." |
1481 |
(interactive) |
(interactive) |
1482 |
(save-excursion |
(save-excursion |
1483 |
(let ((window (get-buffer-window rmail-buffer))) |
(let ((window (get-buffer-window rmail-buffer))) |