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 |
|
|
119 |
(defun rmail-summary-by-topic (subject &optional whole-message) |
(defun rmail-summary-by-topic (subject &optional whole-message) |
120 |
"Display a summary of all messages with the given SUBJECT. |
"Display a summary of all messages with the given SUBJECT. |
121 |
Normally checks the Subject field of headers; |
Normally checks the Subject field of headers; |
122 |
but if WHOLE-MESSAGE is non-nil (prefix arg given), |
but if WHOLE-MESSAGE is non-nil (prefix arg given), |
123 |
look in the whole message. |
look in the whole message. |
124 |
SUBJECT is a string of regexps separated by commas." |
SUBJECT is a string of regexps separated by commas." |
125 |
(interactive "sTopics to summarize by: \nP") |
(interactive "sTopics to summarize by: \nP") |
356 |
|
|
357 |
Usually you don't have to set this variable, except if you collect mails |
Usually you don't have to set this variable, except if you collect mails |
358 |
sent by you under different user names. |
sent by you under different user names. |
359 |
Then it should be a regexp matching your mail adresses. |
Then it should be a regexp matching your mail addresses. |
360 |
|
|
361 |
Setting this variable has an effect only before reading a mail." |
Setting this variable has an effect only before reading a mail." |
362 |
:type '(choice (const :tag "None" nil) regexp) |
:type '(choice (const :tag "None" nil) regexp) |
412 |
(skip-chars-backward " \t") |
(skip-chars-backward " \t") |
413 |
(point))))) |
(point))))) |
414 |
len mch lo) |
len mch lo) |
415 |
(if (string-match |
(if (string-match |
416 |
(or rmail-user-mail-address-regexp |
(or rmail-user-mail-address-regexp |
417 |
(concat "^\\(" |
(concat "^\\(" |
418 |
(regexp-quote (user-login-name)) |
(regexp-quote (user-login-name)) |
419 |
"\\($\\|@\\)\\|" |
"\\($\\|@\\)\\|" |
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))) |
1501 |
(list (rmail-output-read-rmail-file-name) |
(list (rmail-output-read-rmail-file-name) |
1502 |
(prefix-numeric-value current-prefix-arg)))) |
(prefix-numeric-value current-prefix-arg)))) |
1503 |
(let ((i 0) prev-msg) |
(let ((i 0) prev-msg) |
1504 |
(while |
(while |
1505 |
(and (< i n) |
(and (< i n) |
1506 |
(progn (rmail-summary-goto-msg) |
(progn (rmail-summary-goto-msg) |
1507 |
(not (eq prev-msg |
(not (eq prev-msg |
1508 |
(setq prev-msg |
(setq prev-msg |
1509 |
(with-current-buffer rmail-buffer |
(with-current-buffer rmail-buffer |
1510 |
rmail-current-message)))))) |
rmail-current-message)))))) |
1511 |
(setq i (1+ i)) |
(setq i (1+ i)) |
1512 |
(with-current-buffer rmail-buffer |
(with-current-buffer rmail-buffer |
1561 |
(if files |
(if files |
1562 |
(progn |
(progn |
1563 |
(define-key rmail-summary-mode-map [menu-bar classify input-menu] |
(define-key rmail-summary-mode-map [menu-bar classify input-menu] |
1564 |
(cons "Input Rmail File" |
(cons "Input Rmail File" |
1565 |
(rmail-list-to-menu "Input Rmail File" |
(rmail-list-to-menu "Input Rmail File" |
1566 |
files |
files |
1567 |
'rmail-summary-input))) |
'rmail-summary-input))) |
1568 |
(define-key rmail-summary-mode-map [menu-bar classify output-menu] |
(define-key rmail-summary-mode-map [menu-bar classify output-menu] |
1569 |
(cons "Output Rmail File" |
(cons "Output Rmail File" |
1570 |
(rmail-list-to-menu "Output Rmail File" |
(rmail-list-to-menu "Output Rmail File" |
1571 |
files |
files |
1572 |
'rmail-summary-output-to-rmail-file)))) |
'rmail-summary-output-to-rmail-file)))) |
1573 |
(define-key rmail-summary-mode-map [menu-bar classify input-menu] |
(define-key rmail-summary-mode-map [menu-bar classify input-menu] |