Mercurial > emacs
annotate lisp/mail/rmailsum.el @ 9102:7a73653817de
(menu_item_enabled_p, single_keymap_panes, Fx_popup_menu, Fx_popup_dialog):
Use type test macros.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 27 Sep 1994 00:27:58 +0000 |
parents | 6616ea991c4a |
children | 02bee4d2de9a |
rev | line source |
---|---|
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
1 ;;; rmailsum.el --- make summary buffers for the mail reader |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
2 |
7298 | 3 ;; Copyright (C) 1985, 1993, 1994 Free Software Foundation, Inc. |
845 | 4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
5 ;; Maintainer: FSF |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: mail |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
7 |
130 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
130 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
23 | |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
24 ;;; Commentary: |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
25 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
26 ;; Extended by Bob Weiner of Motorola |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
27 ;; Provided all commands from rmail-mode in rmail-summary-mode and made key |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
28 ;; bindings in both modes wholly compatible. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
29 |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
30 ;;; Code: |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
31 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
32 ;; Entry points for making a summary buffer. |
130 | 33 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
34 ;; Regenerate the contents of the summary |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
35 ;; using the same selection criterion as last time. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
36 ;; M-x revert-buffer in a summary buffer calls this function. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
37 (defun rmail-update-summary (&rest ignore) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
38 (apply (car rmail-summary-redo) (cdr rmail-summary-redo))) |
130 | 39 |
40 (defun rmail-summary () | |
41 "Display a summary of all messages, one line per message." | |
42 (interactive) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
43 (rmail-new-summary "All" '(rmail-summary) nil)) |
130 | 44 |
45 (defun rmail-summary-by-labels (labels) | |
46 "Display a summary of all messages with one or more LABELS. | |
47 LABELS should be a string containing the desired labels, separated by commas." | |
48 (interactive "sLabels to summarize by: ") | |
49 (if (string= labels "") | |
50 (setq labels (or rmail-last-multi-labels | |
51 (error "No label specified")))) | |
52 (setq rmail-last-multi-labels labels) | |
53 (rmail-new-summary (concat "labels " labels) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
54 (list 'rmail-summary-by-labels labels) |
130 | 55 'rmail-message-labels-p |
56 (concat ", \\(" (mail-comma-list-regexp labels) "\\),"))) | |
57 | |
58 (defun rmail-summary-by-recipients (recipients &optional primary-only) | |
59 "Display a summary of all messages with the given RECIPIENTS. | |
60 Normally checks the To, From and Cc fields of headers; | |
61 but if PRIMARY-ONLY is non-nil (prefix arg given), | |
62 only look in the To and From fields. | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
63 RECIPIENTS is a string of regexps separated by commas." |
130 | 64 (interactive "sRecipients to summarize by: \nP") |
65 (rmail-new-summary | |
66 (concat "recipients " recipients) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
67 (list 'rmail-summary-by-recipients recipients primary-only) |
130 | 68 'rmail-message-recipients-p |
69 (mail-comma-list-regexp recipients) primary-only)) | |
70 | |
71 (defun rmail-summary-by-regexp (regexp) | |
72 "Display a summary of all messages according to regexp REGEXP. | |
73 If the regular expression is found in the header of the message | |
74 \(including in the date and other lines, as well as the subject line), | |
75 Emacs will list the header line in the RMAIL-summary." | |
76 (interactive "sRegexp to summarize by: ") | |
77 (if (string= regexp "") | |
78 (setq regexp (or rmail-last-regexp | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
79 (error "No regexp specified.")))) |
130 | 80 (setq rmail-last-regexp regexp) |
81 (rmail-new-summary (concat "regexp " regexp) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
82 (list 'rmail-summary-by-regexp regexp) |
130 | 83 'rmail-message-regexp-p |
84 regexp)) | |
85 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
86 ;; rmail-summary-by-topic |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
87 ;; 1989 R.A. Schnitzler |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
88 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
89 (defun rmail-summary-by-topic (subject &optional whole-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
90 "Display a summary of all messages with the given SUBJECT. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
91 Normally checks the Subject field of headers; |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
92 but if WHOLE-MESSAGE is non-nil (prefix arg given), |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
93 look in the whole message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
94 SUBJECT is a string of regexps separated by commas." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
95 (interactive "sTopics to summarize by: \nP") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
96 (rmail-new-summary |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
97 (concat "about " subject) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
98 (list 'rmail-summary-by-topic subject whole-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
99 'rmail-message-subject-p |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
100 (mail-comma-list-regexp subject) whole-message)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
101 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
102 (defun rmail-message-subject-p (msg subject &optional whole-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
103 (save-restriction |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
104 (goto-char (rmail-msgbeg msg)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
105 (search-forward "\n*** EOOH ***\n") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
106 (narrow-to-region |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
107 (point) |
3349
31390246a7a2
(rmail-message-subject-p): Fix typo in string constant.
Richard M. Stallman <rms@gnu.org>
parents:
3198
diff
changeset
|
108 (progn (search-forward (if whole-message "\^_" "\n\n")) (point))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
109 (goto-char (point-min)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
110 (if whole-message (re-search-forward subject nil t) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
111 (string-match subject (or (mail-fetch-field "Subject") "")) ))) |
3443
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
112 |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
113 (defun rmail-summary-by-senders (senders) |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
114 "Display a summary of all messages with the given SENDERS. |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
115 SENDERS is a string of names separated by commas." |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
116 (interactive "sSenders to summarize by: ") |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
117 (rmail-new-summary |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
118 (concat "senders " senders) |
5507
0a6c0e720ece
(rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents:
5370
diff
changeset
|
119 (list 'rmail-summary-by-senders senders) |
3443
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
120 'rmail-message-senders-p |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
121 (mail-comma-list-regexp senders))) |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
122 |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
123 (defun rmail-message-senders-p (msg senders) |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
124 (save-restriction |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
125 (goto-char (rmail-msgbeg msg)) |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
126 (search-forward "\n*** EOOH ***\n") |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
127 (narrow-to-region (point) (progn (search-forward "\n\n") (point))) |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
128 (string-match senders (or (mail-fetch-field "From") "")))) |
130 | 129 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
130 ;; General making of a summary buffer. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
131 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
132 (defvar rmail-summary-symbol-number 0) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
133 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
134 (defun rmail-new-summary (description redo-form function &rest args) |
130 | 135 "Create a summary of selected messages. |
136 DESCRIPTION makes part of the mode line of the summary buffer. | |
137 For each message, FUNCTION is applied to the message number and ARGS... | |
138 and if the result is non-nil, that message is included. | |
139 nil for FUNCTION means all messages." | |
140 (message "Computing summary lines...") | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
141 (let (sumbuf mesg was-in-summary) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
142 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
143 ;; Go to the Rmail buffer. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
144 (if (eq major-mode 'rmail-summary-mode) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
145 (progn |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
146 (setq was-in-summary t) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
147 (set-buffer rmail-buffer))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
148 ;; Find its summary buffer, or make one. |
3198
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
149 (setq sumbuf |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
150 (if (and rmail-summary-buffer |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
151 (buffer-name rmail-summary-buffer)) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
152 rmail-summary-buffer |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
153 (generate-new-buffer (concat (buffer-name) "-summary")))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
154 (setq mesg rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
155 ;; Filter the messages; make or get their summary lines. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
156 (let ((summary-msgs ()) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
157 (new-summary-line-count 0)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
158 (let ((msgnum 1) |
6762
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
159 (buffer-read-only nil) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
160 (old-min (point-min-marker)) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
161 (old-max (point-max-marker))) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
162 ;; Can't use save-restriction here; that doesn't work if we |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
163 ;; plan to modify text outside the original restriction. |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
164 (save-excursion |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
165 (widen) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
166 (goto-char (point-min)) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
167 (while (>= rmail-total-messages msgnum) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
168 (if (or (null function) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
169 (apply function (cons msgnum args))) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
170 (setq summary-msgs |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
171 (cons (cons msgnum (rmail-make-summary-line msgnum)) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
172 summary-msgs))) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
173 (setq msgnum (1+ msgnum))) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
174 (setq summary-msgs (nreverse summary-msgs))) |
f77de1e2b48b
(rmail-new-summary): Avoid unsafe save-restriction.
Karl Heuer <kwzh@gnu.org>
parents:
6726
diff
changeset
|
175 (narrow-to-region old-min old-max)) |
3198
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
176 ;; Temporarily, while summary buffer is unfinished, |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
177 ;; we "don't have" a summary. |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
178 (setq rmail-summary-buffer nil) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
179 (save-excursion |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
180 (let ((rbuf (current-buffer)) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
181 (total rmail-total-messages)) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
182 (set-buffer sumbuf) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
183 ;; Set up the summary buffer's contents. |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
184 (let ((buffer-read-only nil)) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
185 (erase-buffer) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
186 (while summary-msgs |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
187 (princ (cdr (car summary-msgs)) sumbuf) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
188 (setq summary-msgs (cdr summary-msgs))) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
189 (goto-char (point-min))) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
190 ;; Set up the rest of its state and local variables. |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
191 (setq buffer-read-only t) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
192 (rmail-summary-mode) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
193 (make-local-variable 'minor-mode-alist) |
3466
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
194 (setq minor-mode-alist (list '(t (concat ": " description)))) |
3198
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
195 (setq rmail-buffer rbuf |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
196 rmail-summary-redo redo-form |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
197 rmail-total-messages total)))) |
18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents:
3100
diff
changeset
|
198 (setq rmail-summary-buffer sumbuf)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
199 ;; Now display the summary buffer and go to the right place in it. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
200 (or was-in-summary |
8385
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
201 (if (one-window-p) |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
202 ;; If there is just one window, put the summary on the top. |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
203 (progn |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
204 (split-window) |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
205 (select-window (next-window (frame-first-window))) |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
206 (pop-to-buffer sumbuf) |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
207 ;; If pop-to-buffer did not use that window, delete that |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
208 ;; window. (This can happen if it uses another frame.) |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
209 (if (not (eq sumbuf (window-buffer (frame-first-window)))) |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
210 (delete-other-windows))) |
7d471f6a9939
(rmail-new-summary): If just one window,
Richard M. Stallman <rms@gnu.org>
parents:
8379
diff
changeset
|
211 (pop-to-buffer sumbuf))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
212 (rmail-summary-goto-msg mesg t t) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
213 (message "Computing summary lines...done"))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
214 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
215 ;; Low levels of generating a summary. |
130 | 216 |
217 (defun rmail-make-summary-line (msg) | |
218 (let ((line (or (aref rmail-summary-vector (1- msg)) | |
219 (progn | |
220 (setq new-summary-line-count | |
221 (1+ new-summary-line-count)) | |
222 (if (zerop (% new-summary-line-count 10)) | |
223 (message "Computing summary lines...%d" | |
224 new-summary-line-count)) | |
225 (rmail-make-summary-line-1 msg))))) | |
226 ;; Fix up the part of the summary that says "deleted" or "unseen". | |
227 (aset line 4 | |
228 (if (rmail-message-deleted-p msg) ?\D | |
229 (if (= ?0 (char-after (+ 3 (rmail-msgbeg msg)))) | |
230 ?\- ?\ ))) | |
231 line)) | |
232 | |
233 (defun rmail-make-summary-line-1 (msg) | |
234 (goto-char (rmail-msgbeg msg)) | |
235 (let* ((lim (save-excursion (forward-line 2) (point))) | |
236 pos | |
237 (labels | |
238 (progn | |
239 (forward-char 3) | |
240 (concat | |
241 ; (if (save-excursion (re-search-forward ",answered," lim t)) | |
242 ; "*" "") | |
243 ; (if (save-excursion (re-search-forward ",filed," lim t)) | |
244 ; "!" "") | |
245 (if (progn (search-forward ",,") (eolp)) | |
246 "" | |
247 (concat "{" | |
248 (buffer-substring (point) | |
249 (progn (end-of-line) (point))) | |
250 "} "))))) | |
251 (line | |
252 (progn | |
253 (forward-line 1) | |
254 (if (looking-at "Summary-line: ") | |
255 (progn | |
256 (goto-char (match-end 0)) | |
257 (setq line | |
258 (buffer-substring (point) | |
259 (progn (forward-line 1) (point))))))))) | |
260 ;; Obsolete status lines lacking a # should be flushed. | |
261 (and line | |
262 (not (string-match "#" line)) | |
263 (progn | |
264 (delete-region (point) | |
265 (progn (forward-line -1) (point))) | |
266 (setq line nil))) | |
267 ;; If we didn't get a valid status line from the message, | |
268 ;; make a new one and put it in the message. | |
269 (or line | |
270 (let* ((case-fold-search t) | |
271 (next (rmail-msgend msg)) | |
272 (beg (if (progn (goto-char (rmail-msgbeg msg)) | |
273 (search-forward "\n*** EOOH ***\n" next t)) | |
274 (point) | |
275 (forward-line 1) | |
276 (point))) | |
277 (end (progn (search-forward "\n\n" nil t) (point)))) | |
278 (save-restriction | |
279 (narrow-to-region beg end) | |
280 (goto-char beg) | |
281 (setq line (rmail-make-basic-summary-line))) | |
282 (goto-char (rmail-msgbeg msg)) | |
283 (forward-line 2) | |
284 (insert "Summary-line: " line))) | |
285 (setq pos (string-match "#" line)) | |
286 (aset rmail-summary-vector (1- msg) | |
287 (concat (format "%4d " msg) | |
288 (substring line 0 pos) | |
289 labels | |
290 (substring line (1+ pos)))))) | |
291 | |
292 (defun rmail-make-basic-summary-line () | |
293 (goto-char (point-min)) | |
294 (concat (save-excursion | |
295 (if (not (re-search-forward "^Date:" nil t)) | |
296 " " | |
297 (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" | |
298 (save-excursion (end-of-line) (point)) t) | |
299 (format "%2d-%3s" | |
300 (string-to-int (buffer-substring | |
301 (match-beginning 2) | |
302 (match-end 2))) | |
303 (buffer-substring | |
304 (match-beginning 4) (match-end 4)))) | |
305 ((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)" | |
306 (save-excursion (end-of-line) (point)) t) | |
307 (format "%2d-%3s" | |
308 (string-to-int (buffer-substring | |
309 (match-beginning 4) | |
310 (match-end 4))) | |
311 (buffer-substring | |
312 (match-beginning 2) (match-end 2)))) | |
313 (t "??????")))) | |
314 " " | |
315 (save-excursion | |
316 (if (not (re-search-forward "^From:[ \t]*" nil t)) | |
317 " " | |
318 (let* ((from (mail-strip-quoted-names | |
319 (buffer-substring | |
320 (1- (point)) | |
7421
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
321 ;; Get all the lines of the From field |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
322 ;; so that we get a whole comment if there is one, |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
323 ;; so that mail-strip-quoted-names can discard it. |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
324 (let ((opoint (point))) |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
325 (while (progn (forward-line 1) |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
326 (looking-at "[ \t]"))) |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
327 ;; Back up over newline, then trailing spaces or tabs |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
328 (forward-char -1) |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
329 (skip-chars-backward " \t") |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
330 (point))))) |
6f9af07c5783
(rmail-make-basic-summary-line): Get all the lines of the From field.
Richard M. Stallman <rms@gnu.org>
parents:
7368
diff
changeset
|
331 len mch lo) |
130 | 332 (if (string-match (concat "^" |
333 (regexp-quote (user-login-name)) | |
334 "\\($\\|@\\)") | |
335 from) | |
336 (save-excursion | |
337 (goto-char (point-min)) | |
338 (if (not (re-search-forward "^To:[ \t]*" nil t)) | |
339 nil | |
340 (setq from | |
341 (concat "to: " | |
342 (mail-strip-quoted-names | |
343 (buffer-substring | |
344 (point) | |
345 (progn (end-of-line) | |
346 (skip-chars-backward " \t") | |
347 (point))))))))) | |
348 (setq len (length from)) | |
349 (setq mch (string-match "[@%]" from)) | |
350 (format "%25s" | |
351 (if (or (not mch) (<= len 25)) | |
352 (substring from (max 0 (- len 25))) | |
353 (substring from | |
7368
5e3d372d6016
(rmail-make-basic-summary-line): Show 14 chars before @ and 11 after.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
354 (setq lo (cond ((< (- mch 14) 0) 0) |
5e3d372d6016
(rmail-make-basic-summary-line): Show 14 chars before @ and 11 after.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
355 ((< len (+ mch 11)) |
130 | 356 (- len 25)) |
7368
5e3d372d6016
(rmail-make-basic-summary-line): Show 14 chars before @ and 11 after.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
357 (t (- mch 14)))) |
130 | 358 (min len (+ lo 25)))))))) |
359 " #" | |
360 (if (re-search-forward "^Subject:" nil t) | |
361 (progn (skip-chars-forward " \t") | |
362 (buffer-substring (point) | |
363 (progn (end-of-line) | |
364 (point)))) | |
365 (re-search-forward "[\n][\n]+" nil t) | |
366 (buffer-substring (point) (progn (end-of-line) (point)))) | |
367 "\n")) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
368 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
369 ;; Simple motion in a summary buffer. |
130 | 370 |
371 (defun rmail-summary-next-all (&optional number) | |
372 (interactive "p") | |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
373 (forward-line (if number number 1)) |
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
374 (display-buffer rmail-buffer)) |
130 | 375 |
376 (defun rmail-summary-previous-all (&optional number) | |
377 (interactive "p") | |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
378 (forward-line (- (if number number 1))) |
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
379 (display-buffer rmail-buffer)) |
130 | 380 |
381 (defun rmail-summary-next-msg (&optional number) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
382 "Display next non-deleted msg from rmail file. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
383 With optional prefix argument NUMBER, moves forward this number of non-deleted |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
384 messages, or backward if NUMBER is negative." |
130 | 385 (interactive "p") |
386 (forward-line 0) | |
3466
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
387 (and (> number 0) (end-of-line)) |
130 | 388 (let ((count (if (< number 0) (- number) number)) |
389 (search (if (> number 0) 're-search-forward 're-search-backward)) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
390 (non-del-msg-found nil)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
391 (while (and (> count 0) (setq non-del-msg-found |
3509
a1ef317ceb18
(rmail-summary-next-msg): Fix number of dots in regexp.
Richard M. Stallman <rms@gnu.org>
parents:
3466
diff
changeset
|
392 (or (funcall search "^....[^D]" nil t) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
393 non-del-msg-found))) |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
394 (setq count (1- count)))) |
3466
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
395 (beginning-of-line) |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
396 (display-buffer rmail-buffer)) |
130 | 397 |
398 (defun rmail-summary-previous-msg (&optional number) | |
399 (interactive "p") | |
400 (rmail-summary-next-msg (- (if number number 1)))) | |
401 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
402 (defun rmail-summary-next-labeled-message (n labels) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
403 "Show next message with LABEL. Defaults to last labels used. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
404 With prefix argument N moves forward N messages with these labels." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
405 (interactive "p\nsMove to next msg with labels: ") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
406 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
407 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
408 (rmail-next-labeled-message n labels))) |
130 | 409 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
410 (defun rmail-summary-previous-labeled-message (n labels) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
411 "Show previous message with LABEL. Defaults to last labels used. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
412 With prefix argument N moves backward N messages with these labels." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
413 (interactive "p\nsMove to previous msg with labels: ") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
414 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
415 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
416 (rmail-previous-labeled-message n labels))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
417 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
418 ;; Delete and undelete summary commands. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
419 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
420 (defun rmail-summary-delete-forward (&optional backward) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
421 "Delete this message and move to next nondeleted one. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
422 Deleted messages stay in the file until the \\[rmail-expunge] command is given. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
423 With prefix argument, delete and move backward." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
424 (interactive "P") |
130 | 425 (let (end) |
426 (rmail-summary-goto-msg) | |
427 (pop-to-buffer rmail-buffer) | |
5370
45ed020959f1
(rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents:
5275
diff
changeset
|
428 (rmail-delete-message) |
45ed020959f1
(rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents:
5275
diff
changeset
|
429 (let ((del-msg rmail-current-message)) |
45ed020959f1
(rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents:
5275
diff
changeset
|
430 (pop-to-buffer rmail-summary-buffer) |
45ed020959f1
(rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents:
5275
diff
changeset
|
431 (rmail-summary-mark-deleted del-msg) |
45ed020959f1
(rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents:
5275
diff
changeset
|
432 (while (and (not (if backward (bobp) (eobp))) |
5514
8112b5b2651b
(rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents:
5507
diff
changeset
|
433 (save-excursion (beginning-of-line) |
8112b5b2651b
(rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents:
5507
diff
changeset
|
434 (looking-at " +[0-9]+D"))) |
5370
45ed020959f1
(rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents:
5275
diff
changeset
|
435 (forward-line (if backward -1 1)))))) |
130 | 436 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
437 (defun rmail-summary-delete-backward () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
438 "Delete this message and move to previous nondeleted one. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
439 Deleted messages stay in the file until the \\[rmail-expunge] command is given." |
130 | 440 (interactive) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
441 (rmail-summary-delete-forward t)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
442 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
443 (defun rmail-summary-mark-deleted (&optional n undel) |
3100
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
444 (and n (rmail-summary-goto-msg n t t)) |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
445 (or (eobp) |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
446 (let ((buffer-read-only nil)) |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
447 (skip-chars-forward " ") |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
448 (skip-chars-forward "[0-9]") |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
449 (if undel |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
450 (if (looking-at "D") |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
451 (progn (delete-char 1) (insert " "))) |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
452 (delete-char 1) |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
453 (insert "D")))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
454 (beginning-of-line)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
455 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
456 (defun rmail-summary-mark-undeleted (n) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
457 (rmail-summary-mark-deleted n t)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
458 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
459 (defun rmail-summary-deleted-p (&optional n) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
460 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
461 (and n (rmail-summary-goto-msg n nil t)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
462 (skip-chars-forward " ") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
463 (skip-chars-forward "[0-9]") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
464 (looking-at "D"))) |
130 | 465 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
466 (defun rmail-summary-undelete (&optional arg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
467 "Undelete current message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
468 Optional prefix ARG means undelete ARG previous messages." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
469 (interactive "p") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
470 (if (/= arg 1) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
471 (rmail-summary-undelete-many arg) |
5678
3824222fed2e
(rmail-summary-undelete): If we don't undelete anything, don't move point.
Richard M. Stallman <rms@gnu.org>
parents:
5514
diff
changeset
|
472 (let ((buffer-read-only nil) |
3824222fed2e
(rmail-summary-undelete): If we don't undelete anything, don't move point.
Richard M. Stallman <rms@gnu.org>
parents:
5514
diff
changeset
|
473 (opoint (point))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
474 (end-of-line) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
475 (cond ((re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" nil t) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
476 (replace-match "\\1 ") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
477 (rmail-summary-goto-msg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
478 (pop-to-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
479 (and (rmail-message-deleted-p rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
480 (rmail-undelete-previous-message)) |
5678
3824222fed2e
(rmail-summary-undelete): If we don't undelete anything, don't move point.
Richard M. Stallman <rms@gnu.org>
parents:
5514
diff
changeset
|
481 (pop-to-buffer rmail-summary-buffer)) |
3824222fed2e
(rmail-summary-undelete): If we don't undelete anything, don't move point.
Richard M. Stallman <rms@gnu.org>
parents:
5514
diff
changeset
|
482 (t (goto-char opoint)))))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
483 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
484 (defun rmail-summary-undelete-many (&optional n) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
485 "Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
486 (interactive "P") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
487 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
488 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
489 (let* ((init-msg (if n rmail-current-message rmail-total-messages)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
490 (rmail-current-message init-msg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
491 (n (or n rmail-total-messages)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
492 (msgs-undeled 0)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
493 (while (and (> rmail-current-message 0) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
494 (< msgs-undeled n)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
495 (if (rmail-message-deleted-p rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
496 (progn (rmail-set-attribute "deleted" nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
497 (setq msgs-undeled (1+ msgs-undeled)))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
498 (setq rmail-current-message (1- rmail-current-message))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
499 (set-buffer rmail-summary-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
500 (setq rmail-current-message init-msg msgs-undeled 0) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
501 (while (and (> rmail-current-message 0) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
502 (< msgs-undeled n)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
503 (if (rmail-summary-deleted-p rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
504 (progn (rmail-summary-mark-undeleted rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
505 (setq msgs-undeled (1+ msgs-undeled)))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
506 (setq rmail-current-message (1- rmail-current-message)))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
507 (rmail-summary-goto-msg))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
508 |
130 | 509 ;; Rmail Summary mode is suitable only for specially formatted data. |
510 (put 'rmail-summary-mode 'mode-class 'special) | |
511 | |
512 (defun rmail-summary-mode () | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
513 "Rmail Summary Mode is invoked from Rmail Mode by using \\<rmail-mode-map>\\[rmail-summary]. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
514 As commands are issued in the summary buffer, they are applied to the |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
515 corresponding mail messages in the rmail buffer. |
130 | 516 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
517 All normal editing commands are turned off. |
5121
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
518 Instead, nearly all the Rmail mode commands are available, |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
519 though many of them move only among the messages in the summary. |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
520 |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
521 These additional commands exist: |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
522 |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
523 \\[rmail-summary-undelete-many] Undelete all or prefix arg deleted messages. |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
524 \\[rmail-summary-wipe] Delete the summary and go to the Rmail buffer. |
130 | 525 |
5121
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
526 Commands for sorting the summary: |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
527 |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
528 \\[rmail-summary-sort-by-date] Sort by date. |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
529 \\[rmail-summary-sort-by-subject] Sort by subject. |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
530 \\[rmail-summary-sort-by-author] Sort by author. |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
531 \\[rmail-summary-sort-by-recipient] Sort by recipient. |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
532 \\[rmail-summary-sort-by-correspondent] Sort by correspondent. |
6717
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
533 \\[rmail-summary-sort-by-lines] Sort by lines. |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
534 \\[rmail-summary-sort-by-keywords] Sort by keywords." |
130 | 535 (interactive) |
536 (kill-all-local-variables) | |
537 (setq major-mode 'rmail-summary-mode) | |
538 (setq mode-name "RMAIL Summary") | |
539 (setq truncate-lines t) | |
540 (setq buffer-read-only t) | |
541 (set-syntax-table text-mode-syntax-table) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
542 (make-local-variable 'rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
543 (make-local-variable 'rmail-total-messages) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
544 (make-local-variable 'rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
545 (setq rmail-current-message nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
546 (make-local-variable 'rmail-summary-redo) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
547 (setq rmail-summary-redo nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
548 (make-local-variable 'revert-buffer-function) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
549 (make-local-variable 'post-command-hook) |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
550 (rmail-summary-enable) |
130 | 551 (run-hooks 'rmail-summary-mode-hook)) |
552 | |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
553 ;; Summary features need to be disabled during edit mode. |
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
554 (defun rmail-summary-disable () |
6726 | 555 (use-local-map text-mode-map) |
556 (remove-hook 'post-command-hook 'rmail-summary-rmail-update) | |
557 (setq revert-buffer-function nil)) | |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
558 |
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
559 (defun rmail-summary-enable () |
6726 | 560 (use-local-map rmail-summary-mode-map) |
561 (add-hook 'post-command-hook 'rmail-summary-rmail-update) | |
562 (setq revert-buffer-function 'rmail-update-summary)) | |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
563 |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
564 ;; Show in Rmail the message described by the summary line that point is on, |
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
565 ;; but only if the Rmail buffer is already visible. |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
566 ;; This is a post-command-hook in summary buffers. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
567 (defun rmail-summary-rmail-update () |
6961
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
568 (let (buffer-read-only) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
569 (save-excursion |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
570 ;; If at end of buffer, pretend we are on the last text line. |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
571 (if (eobp) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
572 (forward-line -1)) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
573 (beginning-of-line) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
574 (skip-chars-forward " ") |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
575 (let ((msg-num (string-to-int (buffer-substring |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
576 (point) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
577 (progn (skip-chars-forward "0-9") |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
578 (point)))))) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
579 (or (eq rmail-current-message msg-num) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
580 (let ((window (get-buffer-window rmail-buffer)) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
581 (owin (selected-window))) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
582 (setq rmail-current-message msg-num) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
583 (if (= (following-char) ?-) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
584 (progn |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
585 (delete-char 1) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
586 (insert " "))) |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
587 (if window |
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
588 ;; Using save-window-excursion would cause the new value |
3461
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
589 ;; of point to get lost. |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
590 (unwind-protect |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
591 (progn |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
592 (select-window window) |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
593 (rmail-show-message msg-num)) |
6961
666f11765323
(rmail-summary-rmail-update): Update rmail buffer even if it isn't displayed.
Karl Heuer <kwzh@gnu.org>
parents:
6762
diff
changeset
|
594 (select-window owin)) |
8635
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
595 (if (buffer-name rmail-buffer) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
596 (save-excursion |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
597 (set-buffer rmail-buffer) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
598 (rmail-show-message msg-num)))))))))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
599 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
600 (defvar rmail-summary-mode-map nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
601 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
602 (if rmail-summary-mode-map |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
603 nil |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
604 (setq rmail-summary-mode-map (make-keymap)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
605 (suppress-keymap rmail-summary-mode-map) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
606 (define-key rmail-summary-mode-map "a" 'rmail-summary-add-label) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
607 (define-key rmail-summary-mode-map "c" 'rmail-summary-continue) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
608 (define-key rmail-summary-mode-map "d" 'rmail-summary-delete-forward) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
609 (define-key rmail-summary-mode-map "\C-d" 'rmail-summary-delete-backward) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
610 (define-key rmail-summary-mode-map "e" 'rmail-summary-edit-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
611 (define-key rmail-summary-mode-map "f" 'rmail-summary-forward) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
612 (define-key rmail-summary-mode-map "g" 'rmail-summary-get-new-mail) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
613 (define-key rmail-summary-mode-map "h" 'rmail-summary) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
614 (define-key rmail-summary-mode-map "i" 'rmail-summary-input) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
615 (define-key rmail-summary-mode-map "j" 'rmail-summary-goto-msg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
616 (define-key rmail-summary-mode-map "k" 'rmail-summary-kill-label) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
617 (define-key rmail-summary-mode-map "l" 'rmail-summary-by-labels) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
618 (define-key rmail-summary-mode-map "\e\C-h" 'rmail-summary) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
619 (define-key rmail-summary-mode-map "\e\C-l" 'rmail-summary-by-labels) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
620 (define-key rmail-summary-mode-map "\e\C-r" 'rmail-summary-by-recipients) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
621 (define-key rmail-summary-mode-map "\e\C-s" 'rmail-summary-by-regexp) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
622 (define-key rmail-summary-mode-map "\e\C-t" 'rmail-summary-by-topic) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
623 (define-key rmail-summary-mode-map "m" 'rmail-summary-mail) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
624 (define-key rmail-summary-mode-map "\M-m" 'rmail-summary-retry-failure) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
625 (define-key rmail-summary-mode-map "n" 'rmail-summary-next-msg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
626 (define-key rmail-summary-mode-map "\en" 'rmail-summary-next-all) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
627 (define-key rmail-summary-mode-map "\e\C-n" 'rmail-summary-next-labeled-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
628 (define-key rmail-summary-mode-map "o" 'rmail-summary-output-to-rmail-file) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
629 (define-key rmail-summary-mode-map "\C-o" 'rmail-summary-output) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
630 (define-key rmail-summary-mode-map "p" 'rmail-summary-previous-msg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
631 (define-key rmail-summary-mode-map "\ep" 'rmail-summary-previous-all) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
632 (define-key rmail-summary-mode-map "\e\C-p" 'rmail-summary-previous-labeled-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
633 (define-key rmail-summary-mode-map "q" 'rmail-summary-quit) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
634 (define-key rmail-summary-mode-map "r" 'rmail-summary-reply) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
635 (define-key rmail-summary-mode-map "s" 'rmail-summary-expunge-and-save) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
636 (define-key rmail-summary-mode-map "\es" 'rmail-summary-search) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
637 (define-key rmail-summary-mode-map "t" 'rmail-summary-toggle-header) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
638 (define-key rmail-summary-mode-map "u" 'rmail-summary-undelete) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
639 (define-key rmail-summary-mode-map "\M-u" 'rmail-summary-undelete-many) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
640 (define-key rmail-summary-mode-map "w" 'rmail-summary-wipe) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
641 (define-key rmail-summary-mode-map "x" 'rmail-summary-expunge) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
642 (define-key rmail-summary-mode-map "." 'rmail-summary-beginning-of-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
643 (define-key rmail-summary-mode-map "<" 'rmail-summary-first-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
644 (define-key rmail-summary-mode-map ">" 'rmail-summary-last-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
645 (define-key rmail-summary-mode-map " " 'rmail-summary-scroll-msg-up) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
646 (define-key rmail-summary-mode-map "\177" 'rmail-summary-scroll-msg-down) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
647 (define-key rmail-summary-mode-map "?" 'describe-mode) |
3879
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
648 (define-key rmail-summary-mode-map "\C-c\C-s\C-d" |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
649 'rmail-summary-sort-by-date) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
650 (define-key rmail-summary-mode-map "\C-c\C-s\C-s" |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
651 'rmail-summary-sort-by-subject) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
652 (define-key rmail-summary-mode-map "\C-c\C-s\C-a" |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
653 'rmail-summary-sort-by-author) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
654 (define-key rmail-summary-mode-map "\C-c\C-s\C-r" |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
655 'rmail-summary-sort-by-recipient) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
656 (define-key rmail-summary-mode-map "\C-c\C-s\C-c" |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
657 'rmail-summary-sort-by-correspondent) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
658 (define-key rmail-summary-mode-map "\C-c\C-s\C-l" |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
659 'rmail-summary-sort-by-lines) |
6717
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
660 (define-key rmail-summary-mode-map "\C-c\C-s\C-k" |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
661 'rmail-summary-sort-by-keywords) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
662 ) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
663 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
664 ;;; Menu bar bindings. |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
665 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
666 (define-key rmail-summary-mode-map [menu-bar] (make-sparse-keymap)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
667 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
668 (define-key rmail-summary-mode-map [menu-bar classify] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
669 (cons "Classify" (make-sparse-keymap "Classify"))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
670 |
8635
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
671 (define-key rmail-summary-mode-map [menu-bar classify output-menu] |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
672 '("Output (Rmail Menu)..." . rmail-summary-output-menu)) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
673 |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
674 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
675 '("Input Rmail file (menu)..." . rmail-input-menu)) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
676 |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
677 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
678 '(nil)) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
679 |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
680 (define-key rmail-summary-mode-map [menu-bar classify output-menu] |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
681 '(nil)) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
682 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
683 (define-key rmail-summary-mode-map [menu-bar classify output-inbox] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
684 '("Output (inbox)..." . rmail-summary-output)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
685 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
686 (define-key rmail-summary-mode-map [menu-bar classify output] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
687 '("Output (Rmail)..." . rmail-summary-output-to-rmail-file)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
688 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
689 (define-key rmail-summary-mode-map [menu-bar classify kill-label] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
690 '("Kill Label..." . rmail-summary-kill-label)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
691 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
692 (define-key rmail-summary-mode-map [menu-bar classify add-label] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
693 '("Add Label..." . rmail-summary-add-label)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
694 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
695 (define-key rmail-summary-mode-map [menu-bar summary] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
696 (cons "Summary" (make-sparse-keymap "Summary"))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
697 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
698 (define-key rmail-summary-mode-map [menu-bar summary labels] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
699 '("By Labels..." . rmail-summary-by-labels)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
700 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
701 (define-key rmail-summary-mode-map [menu-bar summary recipients] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
702 '("By Recipients..." . rmail-summary-by-recipients)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
703 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
704 (define-key rmail-summary-mode-map [menu-bar summary topic] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
705 '("By Topic..." . rmail-summary-by-topic)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
706 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
707 (define-key rmail-summary-mode-map [menu-bar summary regexp] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
708 '("By Regexp..." . rmail-summary-by-regexp)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
709 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
710 (define-key rmail-summary-mode-map [menu-bar summary all] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
711 '("All" . rmail-summary)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
712 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
713 (define-key rmail-summary-mode-map [menu-bar mail] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
714 (cons "Mail" (make-sparse-keymap "Mail"))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
715 |
8419
711098a43695
(rmail-summary-mode-map): Fix the Get New Mail entry.
Richard M. Stallman <rms@gnu.org>
parents:
8392
diff
changeset
|
716 (define-key rmail-summary-mode-map [menu-bar mail rmail-summary-get-new-mail] |
8392
f0e1008534c4
(rmail-summary-mode-map): Move new Re-send menu item to right place.
Richard M. Stallman <rms@gnu.org>
parents:
8385
diff
changeset
|
717 '("Get New Mail" . rmail-summary-get-new-mail)) |
f0e1008534c4
(rmail-summary-mode-map): Move new Re-send menu item to right place.
Richard M. Stallman <rms@gnu.org>
parents:
8385
diff
changeset
|
718 |
8421
6f13961ee63e
(rmail-summary-mode-map): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
8419
diff
changeset
|
719 (define-key rmail-summary-mode-map [menu-bar mail lambda] |
8392
f0e1008534c4
(rmail-summary-mode-map): Move new Re-send menu item to right place.
Richard M. Stallman <rms@gnu.org>
parents:
8385
diff
changeset
|
720 '("----")) |
8379
466112a5ae5a
(rmail-summary-mode-map): Add Re-send menu item.
Richard M. Stallman <rms@gnu.org>
parents:
7421
diff
changeset
|
721 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
722 (define-key rmail-summary-mode-map [menu-bar mail continue] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
723 '("Continue" . rmail-summary-continue)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
724 |
8392
f0e1008534c4
(rmail-summary-mode-map): Move new Re-send menu item to right place.
Richard M. Stallman <rms@gnu.org>
parents:
8385
diff
changeset
|
725 (define-key rmail-summary-mode-map [menu-bar mail resend] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
726 '("Re-send..." . rmail-resend)) |
8392
f0e1008534c4
(rmail-summary-mode-map): Move new Re-send menu item to right place.
Richard M. Stallman <rms@gnu.org>
parents:
8385
diff
changeset
|
727 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
728 (define-key rmail-summary-mode-map [menu-bar mail forward] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
729 '("Forward" . rmail-summary-forward)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
730 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
731 (define-key rmail-summary-mode-map [menu-bar mail retry] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
732 '("Retry" . rmail-summary-retry-failure)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
733 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
734 (define-key rmail-summary-mode-map [menu-bar mail reply] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
735 '("Reply" . rmail-summary-reply)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
736 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
737 (define-key rmail-summary-mode-map [menu-bar mail mail] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
738 '("Mail" . rmail-summary-mail)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
739 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
740 (define-key rmail-summary-mode-map [menu-bar delete] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
741 (cons "Delete" (make-sparse-keymap "Delete"))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
742 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
743 (define-key rmail-summary-mode-map [menu-bar delete expunge/save] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
744 '("Expunge/Save" . rmail-summary-expunge-and-save)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
745 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
746 (define-key rmail-summary-mode-map [menu-bar delete expunge] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
747 '("Expunge" . rmail-summary-expunge)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
748 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
749 (define-key rmail-summary-mode-map [menu-bar delete undelete] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
750 '("Undelete" . rmail-summary-undelete)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
751 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
752 (define-key rmail-summary-mode-map [menu-bar delete delete] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
753 '("Delete" . rmail-summary-delete-forward)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
754 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
755 (define-key rmail-summary-mode-map [menu-bar move] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
756 (cons "Move" (make-sparse-keymap "Move"))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
757 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
758 (define-key rmail-summary-mode-map [menu-bar move search-back] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
759 '("Search Back..." . rmail-summary-search-backward)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
760 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
761 (define-key rmail-summary-mode-map [menu-bar move search] |
8422
bfdf6de7fddb
(rmail-summary-mode-map): Add `...' where appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
8421
diff
changeset
|
762 '("Search..." . rmail-summary-search)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
763 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
764 (define-key rmail-summary-mode-map [menu-bar move previous] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
765 '("Previous Nondeleted" . rmail-summary-previous-msg)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
766 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
767 (define-key rmail-summary-mode-map [menu-bar move next] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
768 '("Next Nondeleted" . rmail-summary-next-msg)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
769 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
770 (define-key rmail-summary-mode-map [menu-bar move last] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
771 '("Last" . rmail-summary-last-message)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
772 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
773 (define-key rmail-summary-mode-map [menu-bar move first] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
774 '("First" . rmail-summary-first-message)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
775 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
776 (define-key rmail-summary-mode-map [menu-bar move previous] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
777 '("Previous" . rmail-summary-previous-all)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
778 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
779 (define-key rmail-summary-mode-map [menu-bar move next] |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
780 '("Next" . rmail-summary-next-all)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
781 |
6422
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
782 (defvar rmail-summary-overlay nil) |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
783 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
784 (defun rmail-summary-goto-msg (&optional n nowarn skip-rmail) |
130 | 785 (interactive "P") |
786 (if (consp n) (setq n (prefix-numeric-value n))) | |
787 (if (eobp) (forward-line -1)) | |
788 (beginning-of-line) | |
8728
b30c35c8e7ed
(rmail-summary-goto-msg): Preserve the current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
8635
diff
changeset
|
789 (let ((obuf (current-buffer)) |
b30c35c8e7ed
(rmail-summary-goto-msg): Preserve the current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
8635
diff
changeset
|
790 (buf rmail-buffer) |
130 | 791 (cur (point)) |
6422
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
792 message-not-found |
130 | 793 (curmsg (string-to-int |
794 (buffer-substring (point) | |
795 (min (point-max) (+ 5 (point))))))) | |
6422
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
796 ;; If message number N was specified, find that message's line |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
797 ;; or set message-not-found. |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
798 ;; If N wasn't specified or that message can't be found. |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
799 ;; set N by default. |
130 | 800 (if (not n) |
801 (setq n curmsg) | |
802 (if (< n 1) | |
803 (progn (message "No preceding message") | |
804 (setq n 1))) | |
805 (if (> n rmail-total-messages) | |
806 (progn (message "No following message") | |
807 (goto-char (point-max)) | |
808 (rmail-summary-goto-msg))) | |
809 (goto-char (point-min)) | |
8997
6616ea991c4a
(rmail-summary-goto-msg): Simply the regexp
Richard M. Stallman <rms@gnu.org>
parents:
8911
diff
changeset
|
810 (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t)) |
130 | 811 (progn (or nowarn (message "Message %d not found" n)) |
812 (setq n curmsg) | |
6422
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
813 (setq message-not-found t) |
130 | 814 (goto-char cur)))) |
815 (beginning-of-line) | |
816 (skip-chars-forward " ") | |
817 (skip-chars-forward "0-9") | |
818 (save-excursion (if (= (following-char) ?-) | |
819 (let ((buffer-read-only nil)) | |
820 (delete-char 1) | |
821 (insert " ")))) | |
6422
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
822 ;; Make sure we have an overlay to use. |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
823 (or rmail-summary-overlay |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
824 (progn |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
825 (make-local-variable 'rmail-summary-overlay) |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
826 (setq rmail-summary-overlay (make-overlay (point) (point))))) |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
827 ;; If this message is in the summary, use the overlay to highlight it. |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
828 ;; Otherwise, don't highlight anything. |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
829 (if message-not-found |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
830 (overlay-put rmail-summary-overlay 'face nil) |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
831 (move-overlay rmail-summary-overlay |
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
832 (save-excursion (beginning-of-line) (1+ (point))) |
6663
ac4abedb1eaa
(rmail-summary-goto-msg): Highlight the whole line except first char.
Richard M. Stallman <rms@gnu.org>
parents:
6582
diff
changeset
|
833 (save-excursion (end-of-line) (point))) |
6422
401da3d11995
(rmail-summary-goto-msg): Highlight message number of current message.
Richard M. Stallman <rms@gnu.org>
parents:
5861
diff
changeset
|
834 (overlay-put rmail-summary-overlay 'face 'highlight)) |
130 | 835 (beginning-of-line) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
836 (if skip-rmail |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
837 nil |
5275
c2a5a99d89e8
(rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents:
5121
diff
changeset
|
838 (let ((selwin (selected-window))) |
c2a5a99d89e8
(rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents:
5121
diff
changeset
|
839 (unwind-protect |
c2a5a99d89e8
(rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents:
5121
diff
changeset
|
840 (progn (pop-to-buffer buf) |
c2a5a99d89e8
(rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents:
5121
diff
changeset
|
841 (rmail-show-message n)) |
8728
b30c35c8e7ed
(rmail-summary-goto-msg): Preserve the current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
8635
diff
changeset
|
842 (select-window selwin) |
b30c35c8e7ed
(rmail-summary-goto-msg): Preserve the current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
8635
diff
changeset
|
843 ;; The actions above can alter the current buffer. Preserve it. |
b30c35c8e7ed
(rmail-summary-goto-msg): Preserve the current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
8635
diff
changeset
|
844 (set-buffer obuf)))))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
845 |
130 | 846 (defun rmail-summary-scroll-msg-up (&optional dist) |
7102
e3d392f28d8f
(rmail-summary-scroll-msg-up, rmail-summary-scroll-msg-down): Scroll
Karl Heuer <kwzh@gnu.org>
parents:
6961
diff
changeset
|
847 "Scroll the Rmail window forward." |
130 | 848 (interactive "P") |
7102
e3d392f28d8f
(rmail-summary-scroll-msg-up, rmail-summary-scroll-msg-down): Scroll
Karl Heuer <kwzh@gnu.org>
parents:
6961
diff
changeset
|
849 (let ((other-window-scroll-buffer rmail-buffer)) |
8547
1e68efcc6936
(rmail-summary-scroll-msg-up): Put rmail buffer
Richard M. Stallman <rms@gnu.org>
parents:
8422
diff
changeset
|
850 (if (get-buffer-window rmail-buffer) |
1e68efcc6936
(rmail-summary-scroll-msg-up): Put rmail buffer
Richard M. Stallman <rms@gnu.org>
parents:
8422
diff
changeset
|
851 (scroll-other-window dist) |
1e68efcc6936
(rmail-summary-scroll-msg-up): Put rmail buffer
Richard M. Stallman <rms@gnu.org>
parents:
8422
diff
changeset
|
852 ;; This forces rmail-buffer to be sized correctly later. |
1e68efcc6936
(rmail-summary-scroll-msg-up): Put rmail buffer
Richard M. Stallman <rms@gnu.org>
parents:
8422
diff
changeset
|
853 (display-buffer rmail-buffer) |
1e68efcc6936
(rmail-summary-scroll-msg-up): Put rmail buffer
Richard M. Stallman <rms@gnu.org>
parents:
8422
diff
changeset
|
854 (setq rmail-current-message nil)))) |
130 | 855 |
856 (defun rmail-summary-scroll-msg-down (&optional dist) | |
7102
e3d392f28d8f
(rmail-summary-scroll-msg-up, rmail-summary-scroll-msg-down): Scroll
Karl Heuer <kwzh@gnu.org>
parents:
6961
diff
changeset
|
857 "Scroll the Rmail window backward." |
130 | 858 (interactive "P") |
7102
e3d392f28d8f
(rmail-summary-scroll-msg-up, rmail-summary-scroll-msg-down): Scroll
Karl Heuer <kwzh@gnu.org>
parents:
6961
diff
changeset
|
859 (rmail-summary-scroll-msg-up |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
860 (cond ((eq dist '-) nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
861 ((null dist) '-) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
862 (t (- (prefix-numeric-value dist)))))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
863 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
864 (defun rmail-summary-beginning-of-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
865 "Show current message from the beginning." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
866 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
867 (pop-to-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
868 (beginning-of-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
869 (pop-to-buffer rmail-summary-buffer)) |
130 | 870 |
871 (defun rmail-summary-quit () | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
872 "Quit out of Rmail and Rmail summary." |
130 | 873 (interactive) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
874 (rmail-summary-wipe) |
130 | 875 (rmail-quit)) |
876 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
877 (defun rmail-summary-wipe () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
878 "Kill and wipe away Rmail summary, remaining within Rmail." |
130 | 879 (interactive) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
880 (save-excursion (set-buffer rmail-buffer) (setq rmail-summary-buffer nil)) |
5121
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
881 (let ((local-rmail-buffer rmail-buffer)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
882 (kill-buffer (current-buffer)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
883 ;; Delete window if not only one. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
884 (if (not (eq (selected-window) (next-window nil 'no-minibuf))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
885 (delete-window)) |
5121
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
886 ;; Switch windows to the rmail buffer, or switch to it in this window. |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
887 (pop-to-buffer local-rmail-buffer))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
888 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
889 (defun rmail-summary-expunge () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
890 "Actually erase all deleted messages and recompute summary headers." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
891 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
892 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
893 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
894 (rmail-only-expunge)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
895 (rmail-update-summary)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
896 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
897 (defun rmail-summary-expunge-and-save () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
898 "Expunge and save RMAIL file." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
899 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
900 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
901 (set-buffer rmail-buffer) |
3466
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
902 (rmail-only-expunge)) |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
903 (rmail-update-summary) |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
904 (save-excursion |
3461
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
905 (set-buffer rmail-buffer) |
5861
882894a8c217
(rmail-summary-expunge-and-save): Mark summary buffer as unmodified.
Karl Heuer <kwzh@gnu.org>
parents:
5709
diff
changeset
|
906 (save-buffer)) |
882894a8c217
(rmail-summary-expunge-and-save): Mark summary buffer as unmodified.
Karl Heuer <kwzh@gnu.org>
parents:
5709
diff
changeset
|
907 (set-buffer-modified-p nil)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
908 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
909 (defun rmail-summary-get-new-mail () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
910 "Get new mail and recompute summary headers." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
911 (interactive) |
3466
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
912 (let (msg) |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
913 (save-excursion |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
914 (set-buffer rmail-buffer) |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
915 (rmail-get-new-mail) |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
916 ;; Get the proper new message number. |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
917 (setq msg rmail-current-message)) |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
918 ;; Make sure that message is displayed. |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
919 (rmail-summary-goto-msg msg))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
920 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
921 (defun rmail-summary-input (filename) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
922 "Run Rmail on file FILENAME." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
923 (interactive "FRun rmail on RMAIL file: ") |
3466
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
924 ;; We switch windows here, then display the other Rmail file there. |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
925 (pop-to-buffer rmail-buffer) |
c8f52c44d9a4
(rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents:
3461
diff
changeset
|
926 (rmail filename)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
927 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
928 (defun rmail-summary-first-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
929 "Show first message in Rmail file from summary buffer." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
930 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
931 (beginning-of-buffer)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
932 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
933 (defun rmail-summary-last-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
934 "Show last message in Rmail file from summary buffer." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
935 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
936 (end-of-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
937 (forward-line -1)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
938 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
939 (defvar rmail-summary-edit-map nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
940 (if rmail-summary-edit-map |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
941 nil |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
942 (setq rmail-summary-edit-map |
4990
8f5a44af0114
(rmail-summary-edit-map): Inherit text-mode-map properly.
Richard M. Stallman <rms@gnu.org>
parents:
3879
diff
changeset
|
943 (nconc (make-sparse-keymap) text-mode-map)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
944 (define-key rmail-summary-edit-map "\C-c\C-c" 'rmail-cease-edit) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
945 (define-key rmail-summary-edit-map "\C-c\C-]" 'rmail-abort-edit)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
946 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
947 (defun rmail-summary-edit-current-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
948 "Edit the contents of this message." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
949 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
950 (pop-to-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
951 (rmail-edit-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
952 (use-local-map rmail-summary-edit-map)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
953 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
954 (defun rmail-summary-cease-edit () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
955 "Finish editing message, then go back to Rmail summary buffer." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
956 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
957 (rmail-cease-edit) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
958 (pop-to-buffer rmail-summary-buffer)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
959 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
960 (defun rmail-summary-abort-edit () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
961 "Abort edit of current message; restore original contents. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
962 Go back to summary buffer." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
963 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
964 (rmail-abort-edit) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
965 (pop-to-buffer rmail-summary-buffer)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
966 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
967 (defun rmail-summary-search-backward (regexp &optional n) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
968 "Show message containing next match for REGEXP. |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
969 Prefix argument gives repeat count; negative argument means search |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
970 backwards (through earlier messages). |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
971 Interactively, empty argument means use same regexp used last time." |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
972 (interactive |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
973 (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
974 (prompt |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
975 (concat (if reversep "Reverse " "") "Rmail search (regexp): ")) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
976 regexp) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
977 (if rmail-search-last-regexp |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
978 (setq prompt (concat prompt |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
979 "(default " |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
980 rmail-search-last-regexp |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
981 ") "))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
982 (setq regexp (read-string prompt)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
983 (cond ((not (equal regexp "")) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
984 (setq rmail-search-last-regexp regexp)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
985 ((not rmail-search-last-regexp) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
986 (error "No previous Rmail search string"))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
987 (list rmail-search-last-regexp |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
988 (prefix-numeric-value current-prefix-arg)))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
989 ;; Don't use save-excursion because that prevents point from moving |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
990 ;; properly in the summary buffer. |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
991 (let ((buffer (current-buffer))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
992 (unwind-protect |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
993 (progn |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
994 (set-buffer rmail-buffer) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
995 (rmail-search regexp (- n))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
996 (set-buffer buffer)))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
997 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
998 (defun rmail-summary-search (regexp &optional n) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
999 "Show message containing next match for REGEXP. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1000 Prefix argument gives repeat count; negative argument means search |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1001 backwards (through earlier messages). |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1002 Interactively, empty argument means use same regexp used last time." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1003 (interactive |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1004 (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1005 (prompt |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1006 (concat (if reversep "Reverse " "") "Rmail search (regexp): ")) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1007 regexp) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1008 (if rmail-search-last-regexp |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1009 (setq prompt (concat prompt |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1010 "(default " |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1011 rmail-search-last-regexp |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1012 ") "))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1013 (setq regexp (read-string prompt)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1014 (cond ((not (equal regexp "")) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1015 (setq rmail-search-last-regexp regexp)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1016 ((not rmail-search-last-regexp) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1017 (error "No previous Rmail search string"))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1018 (list rmail-search-last-regexp |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1019 (prefix-numeric-value current-prefix-arg)))) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1020 ;; Don't use save-excursion because that prevents point from moving |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1021 ;; properly in the summary buffer. |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1022 (let ((buffer (current-buffer))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1023 (unwind-protect |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1024 (progn |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1025 (set-buffer rmail-buffer) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1026 (rmail-search regexp n)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1027 (set-buffer buffer)))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1028 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1029 (defun rmail-summary-toggle-header () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1030 "Show original message header if pruned header currently shown, or vice versa." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1031 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1032 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1033 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1034 (rmail-toggle-header))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1035 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1036 (defun rmail-summary-add-label (label) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1037 "Add LABEL to labels associated with current Rmail message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1038 Completion is performed over known labels when reading." |
3461
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1039 (interactive (list (save-excursion |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1040 (set-buffer rmail-buffer) |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1041 (rmail-read-label "Add label")))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1042 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1043 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1044 (rmail-add-label label))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1045 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1046 (defun rmail-summary-kill-label (label) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1047 "Remove LABEL from labels associated with current Rmail message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1048 Completion is performed over known labels when reading." |
3461
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1049 (interactive (list (save-excursion |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1050 (set-buffer rmail-buffer) |
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1051 (rmail-read-label "Kill label")))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1052 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1053 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1054 (rmail-set-label label nil))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1055 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1056 ;;;; *** Rmail Summary Mailing Commands *** |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1057 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1058 (defun rmail-summary-mail () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1059 "Send mail in another window. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1060 While composing the message, use \\[mail-yank-original] to yank the |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1061 original message into it." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1062 (interactive) |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1063 (rmail-start-mail nil nil nil nil nil rmail-buffer) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1064 (use-local-map (copy-keymap (current-local-map))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1065 (define-key (current-local-map) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1066 "\C-c\C-c" 'rmail-summary-send-and-exit)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1067 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1068 (defun rmail-summary-continue () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1069 "Continue composing outgoing message previously being composed." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1070 (interactive) |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1071 (rmail-start-mail t)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1072 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1073 (defun rmail-summary-reply (just-sender) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1074 "Reply to the current message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1075 Normally include CC: to all other recipients of original message; |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1076 prefix argument means ignore them. While composing the reply, |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1077 use \\[mail-yank-original] to yank the original message into it." |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1078 (interactive "P") |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1079 (set-buffer rmail-buffer) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1080 (rmail-reply just-sender) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1081 (use-local-map (copy-keymap (current-local-map))) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1082 (define-key (current-local-map) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1083 "\C-c\C-c" 'rmail-summary-send-and-exit)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1084 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1085 (defun rmail-summary-retry-failure () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1086 "Edit a mail message which is based on the contents of the current message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1087 For a message rejected by the mail system, extract the interesting headers and |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1088 the body of the original message; otherwise copy the current message." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1089 (interactive) |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1090 (set-buffer rmail-buffer) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1091 (rmail-retry-failure) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1092 (use-local-map (copy-keymap (current-local-map))) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1093 (define-key (current-local-map) |
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1094 "\C-c\C-c" 'rmail-summary-send-and-exit)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1095 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1096 (defun rmail-summary-send-and-exit () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1097 "Send mail reply and return to summary buffer." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1098 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1099 (mail-send-and-exit t)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1100 |
5006
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1101 (defun rmail-summary-forward (resend) |
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1102 "Forward the current message to another user. |
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1103 With prefix argument, \"resend\" the message instead of forwarding it; |
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1104 see the documentation of `rmail-resend'." |
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1105 (interactive "P") |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1106 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1107 (set-buffer rmail-buffer) |
5006
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1108 (rmail-forward resend) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1109 (use-local-map (copy-keymap (current-local-map))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1110 (define-key (current-local-map) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1111 "\C-c\C-c" 'rmail-summary-send-and-exit))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1112 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1113 ;; Summary output commands. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1114 |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1115 (defun rmail-summary-output-to-rmail-file (&optional file-name) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1116 "Append the current message to an Rmail file named FILE-NAME. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1117 If the file does not exist, ask if it should be created. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1118 If file is being visited, the message is appended to the Emacs |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1119 buffer visiting that file." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1120 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1121 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1122 (set-buffer rmail-buffer) |
5507
0a6c0e720ece
(rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents:
5370
diff
changeset
|
1123 (let ((rmail-delete-after-output nil)) |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1124 (if file-name |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1125 (rmail-output-to-rmail-file file-name) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1126 (call-interactively 'rmail-output-to-rmail-file)))) |
5507
0a6c0e720ece
(rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents:
5370
diff
changeset
|
1127 (if rmail-delete-after-output |
5514
8112b5b2651b
(rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents:
5507
diff
changeset
|
1128 (rmail-summary-delete-forward nil))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1129 |
8635
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1130 (defun rmail-summary-output-menu () |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1131 "Output current message to another Rmail file, chosen with a menu. |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1132 Also set the default for subsequent \\[rmail-output-to-rmail-file] commands. |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1133 The variables `rmail-secondary-file-directory' and |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1134 `rmail-secondary-file-regexp' control which files are offered in the menu." |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1135 (interactive) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1136 (save-excursion |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1137 (set-buffer rmail-buffer) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1138 (let ((rmail-delete-after-output nil)) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1139 (call-interactively 'rmail-output-menu))) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1140 (if rmail-delete-after-output |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1141 (rmail-summary-delete-forward nil))) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1142 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1143 (defun rmail-summary-output () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1144 "Append this message to Unix mail file named FILE-NAME." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1145 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1146 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1147 (set-buffer rmail-buffer) |
5507
0a6c0e720ece
(rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents:
5370
diff
changeset
|
1148 (let ((rmail-delete-after-output nil)) |
0a6c0e720ece
(rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents:
5370
diff
changeset
|
1149 (call-interactively 'rmail-output))) |
0a6c0e720ece
(rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents:
5370
diff
changeset
|
1150 (if rmail-delete-after-output |
5514
8112b5b2651b
(rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents:
5507
diff
changeset
|
1151 (rmail-summary-delete-forward nil))) |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1152 |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1153 (defun rmail-summary-construct-io-menu () |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1154 (let ((files (rmail-find-all-files rmail-secondary-file-directory))) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1155 (if (listp files) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1156 (progn |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1157 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1158 (cons "Input Rmail File" |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1159 (rmail-list-to-menu "Input Rmail File" |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1160 (cdr files) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1161 'rmail-summary-input))) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1162 (define-key rmail-summary-mode-map [menu-bar classify output-menu] |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1163 (cons "Output Rmail File" |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1164 (rmail-list-to-menu "Output Rmail File" |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1165 (cdr files) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1166 'rmail-summary-output-to-rmail-file))))))) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1167 |
3879
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1168 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1169 ;; Sorting messages in Rmail Summary buffer. |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1170 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1171 (defun rmail-summary-sort-by-date (reverse) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1172 "Sort messages of current Rmail summary by date. |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1173 If prefix argument REVERSE is non-nil, sort them in reverse order." |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1174 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1175 (rmail-sort-from-summary (function rmail-sort-by-date) reverse)) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1176 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1177 (defun rmail-summary-sort-by-subject (reverse) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1178 "Sort messages of current Rmail summary by subject. |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1179 If prefix argument REVERSE is non-nil, sort them in reverse order." |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1180 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1181 (rmail-sort-from-summary (function rmail-sort-by-subject) reverse)) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1182 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1183 (defun rmail-summary-sort-by-author (reverse) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1184 "Sort messages of current Rmail summary by author. |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1185 If prefix argument REVERSE is non-nil, sort them in reverse order." |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1186 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1187 (rmail-sort-from-summary (function rmail-sort-by-author) reverse)) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1188 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1189 (defun rmail-summary-sort-by-recipient (reverse) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1190 "Sort messages of current Rmail summary by recipient. |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1191 If prefix argument REVERSE is non-nil, sort them in reverse order." |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1192 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1193 (rmail-sort-from-summary (function rmail-sort-by-recipient) reverse)) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1194 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1195 (defun rmail-summary-sort-by-correspondent (reverse) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1196 "Sort messages of current Rmail summary by other correspondent. |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1197 If prefix argument REVERSE is non-nil, sort them in reverse order." |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1198 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1199 (rmail-sort-from-summary (function rmail-sort-by-correspondent) reverse)) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1200 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1201 (defun rmail-summary-sort-by-lines (reverse) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1202 "Sort messages of current Rmail summary by lines of the message. |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1203 If prefix argument REVERSE is non-nil, sort them in reverse order." |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1204 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1205 (rmail-sort-from-summary (function rmail-sort-by-lines) reverse)) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1206 |
6717
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1207 (defun rmail-summary-sort-by-keywords (reverse labels) |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1208 "Sort messages of current Rmail summary by keywords. |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1209 If prefix argument REVERSE is non-nil, sort them in reverse order. |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1210 KEYWORDS is a comma-separated list of labels." |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1211 (interactive "P\nsSort by labels: ") |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1212 (rmail-sort-from-summary |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1213 (function (lambda (reverse) |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1214 (rmail-sort-by-keywords reverse labels))) |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1215 reverse)) |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1216 |
3879
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1217 (defun rmail-sort-from-summary (sortfun reverse) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1218 "Sort Rmail messages from Summary buffer and update it after sorting." |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1219 (require 'rmailsort) |
6582
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1220 (let ((selwin (selected-window))) |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1221 (unwind-protect |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1222 (progn (pop-to-buffer rmail-buffer) |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1223 (funcall sortfun reverse)) |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1224 (select-window selwin)))) |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
130
diff
changeset
|
1225 |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
130
diff
changeset
|
1226 ;;; rmailsum.el ends here |