Mercurial > emacs
annotate lisp/mail/rmailsum.el @ 88166:d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
(rmail-summary-browse-body): Deleted.
(rmail-summary-rmail-update, rmail-summary-get-message-at-point,
rmail-summary-goto-msg): Use string-to-number.
(rmail-summary-toggle-header, rmail-summary-add-label,
rmail-summary-kill-label): Use with-current-buffer.
(rmail-summary-previous-msg): Add docstring.
author | Henrik Enberg <henrik.enberg@telia.com> |
---|---|
date | Mon, 16 Jan 2006 21:06:36 +0000 |
parents | a271a865e911 |
children | c506eb58293b |
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 |
88155 | 3 ;; Copyright (C) 1985, 1993, 1994, 1995, 1996, 2000, 2001, 2002, 2003, |
4 ;; 2004, 2005 Free Software Foundation, Inc. | |
845 | 5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
6 ;; Maintainer: FSF |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
7 ;; Keywords: mail |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
8 |
130 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; 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
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
130 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
88155 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
130 | 25 |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
26 ;;; Commentary: |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
27 |
88130 | 28 ;; All commands run from the summary buffer update the buffer local |
29 ;; variable `rmail-current-message'. As part of the post command | |
30 ;; processing point is moved to the beginning of the line describing | |
31 ;; the current message. | |
32 | |
33 ;;; History: | |
34 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
35 ;; Extended by Bob Weiner of Motorola |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
36 ;; 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
|
37 ;; bindings in both modes wholly compatible. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
38 |
88130 | 39 ;; Overhauled by Paul Reilly to support mbox format. |
40 | |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
41 ;;; Code: |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2164
diff
changeset
|
42 |
88155 | 43 (defvar msgnum) |
44 | |
12911 | 45 ;; For rmail-select-summary |
46 (require 'rmail) | |
47 | |
14940
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
48 ;;;###autoload |
17631 | 49 (defcustom rmail-summary-scroll-between-messages t |
50 "*Non-nil means Rmail summary scroll commands move between messages." | |
51 :type 'boolean | |
52 :group 'rmail-summary) | |
14940
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
53 |
16388
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
54 ;;;###autoload |
17631 | 55 (defcustom rmail-summary-line-count-flag t |
88130 | 56 "*Non-nil if Rmail summary should show the number of lines in each message." |
17631 | 57 :type 'boolean |
58 :group 'rmail-summary) | |
16388
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
59 |
9379
138d99e53e94
(rmail-summary-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9352
diff
changeset
|
60 (defvar rmail-summary-font-lock-keywords |
88160
a271a865e911
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88159
diff
changeset
|
61 '(("^.....D.*" . font-lock-string-face) ; Deleted. |
88130 | 62 ("^....-.*" . font-lock-type-face) ; Unread. |
9379
138d99e53e94
(rmail-summary-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9352
diff
changeset
|
63 ;; Neither of the below will be highlighted if either of the above are: |
88160
a271a865e911
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88159
diff
changeset
|
64 ("^.....[^D-]....\\(......\\)" 1 font-lock-keyword-face) ; Date. |
28180
f9268a210b0b
(rmail-summary-font-lock-keywords): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26809
diff
changeset
|
65 ("{ \\([^\n}]+\\),}" 1 font-lock-comment-face)) ; Labels. |
9379
138d99e53e94
(rmail-summary-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9352
diff
changeset
|
66 "Additional expressions to highlight in Rmail Summary mode.") |
138d99e53e94
(rmail-summary-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9352
diff
changeset
|
67 |
88130 | 68 (defvar rmail-summary-redo nil |
69 "Private storage for Rmail summary history.") | |
70 | |
71 (defvar rmail-summary-overlay nil | |
72 "Private storage for an Rmail summary overlay cache") | |
73 (put 'rmail-summary-overlay 'permanent-local t) | |
74 | |
75 (defvar rmail-summary-mode-map nil | |
76 "Storage for the Ramil summary mode keymap.") | |
77 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
78 ;; Entry points for making a summary buffer. |
130 | 79 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
80 ;; Regenerate the contents of the summary |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
81 ;; using the same selection criterion as last time. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
82 ;; 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
|
83 (defun rmail-update-summary (&rest ignore) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
84 (apply (car rmail-summary-redo) (cdr rmail-summary-redo))) |
130 | 85 |
16344
ec0f59ba6768
(rmail-summary-by-senders, rmail-summary): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16242
diff
changeset
|
86 ;;;###autoload |
130 | 87 (defun rmail-summary () |
88 "Display a summary of all messages, one line per message." | |
89 (interactive) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
90 (rmail-new-summary "All" '(rmail-summary) nil)) |
130 | 91 |
16344
ec0f59ba6768
(rmail-summary-by-senders, rmail-summary): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16242
diff
changeset
|
92 ;;;###autoload |
130 | 93 (defun rmail-summary-by-labels (labels) |
94 "Display a summary of all messages with one or more LABELS. | |
95 LABELS should be a string containing the desired labels, separated by commas." | |
96 (interactive "sLabels to summarize by: ") | |
97 (if (string= labels "") | |
98 (setq labels (or rmail-last-multi-labels | |
99 (error "No label specified")))) | |
100 (setq rmail-last-multi-labels labels) | |
101 (rmail-new-summary (concat "labels " labels) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
102 (list 'rmail-summary-by-labels labels) |
130 | 103 'rmail-message-labels-p |
104 (concat ", \\(" (mail-comma-list-regexp labels) "\\),"))) | |
105 | |
16344
ec0f59ba6768
(rmail-summary-by-senders, rmail-summary): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16242
diff
changeset
|
106 ;;;###autoload |
130 | 107 (defun rmail-summary-by-recipients (recipients &optional primary-only) |
108 "Display a summary of all messages with the given RECIPIENTS. | |
109 Normally checks the To, From and Cc fields of headers; | |
110 but if PRIMARY-ONLY is non-nil (prefix arg given), | |
111 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
|
112 RECIPIENTS is a string of regexps separated by commas." |
130 | 113 (interactive "sRecipients to summarize by: \nP") |
114 (rmail-new-summary | |
115 (concat "recipients " recipients) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
116 (list 'rmail-summary-by-recipients recipients primary-only) |
130 | 117 'rmail-message-recipients-p |
118 (mail-comma-list-regexp recipients) primary-only)) | |
119 | |
16344
ec0f59ba6768
(rmail-summary-by-senders, rmail-summary): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16242
diff
changeset
|
120 ;;;###autoload |
130 | 121 (defun rmail-summary-by-regexp (regexp) |
122 "Display a summary of all messages according to regexp REGEXP. | |
123 If the regular expression is found in the header of the message | |
124 \(including in the date and other lines, as well as the subject line), | |
125 Emacs will list the header line in the RMAIL-summary." | |
126 (interactive "sRegexp to summarize by: ") | |
127 (if (string= regexp "") | |
128 (setq regexp (or rmail-last-regexp | |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
37955
diff
changeset
|
129 (error "No regexp specified")))) |
130 | 130 (setq rmail-last-regexp regexp) |
131 (rmail-new-summary (concat "regexp " regexp) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
132 (list 'rmail-summary-by-regexp regexp) |
130 | 133 'rmail-message-regexp-p |
134 regexp)) | |
135 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
136 ;; rmail-summary-by-topic |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
137 ;; 1989 R.A. Schnitzler |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
138 |
16344
ec0f59ba6768
(rmail-summary-by-senders, rmail-summary): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16242
diff
changeset
|
139 ;;;###autoload |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
140 (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
|
141 "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
|
142 Normally checks the Subject field of headers; |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
143 but if WHOLE-MESSAGE is non-nil (prefix arg given), |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
144 look in the whole message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
145 SUBJECT is a string of regexps separated by commas." |
88155 | 146 (interactive |
147 (let* ((subject (with-current-buffer rmail-buffer | |
148 (rmail-current-subject))) | |
149 (subject-re (with-current-buffer rmail-buffer | |
150 (rmail-current-subject-regexp))) | |
151 (prompt (concat "Topics to summarize by (regexp" | |
152 (if subject ", default current subject" "") | |
153 "): "))) | |
154 (list (read-string prompt nil nil subject) current-prefix-arg))) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
155 (rmail-new-summary |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
156 (concat "about " subject) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
157 (list 'rmail-summary-by-topic subject whole-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
158 'rmail-message-subject-p |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
159 (mail-comma-list-regexp subject) whole-message)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
160 |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
161 ;; mbox: ready to define and execute test |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
162 (defun rmail-message-subject-p (msg subject &optional whole-message) |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
163 "Return an indication if SUBJECT is found in MSG. If WHOLE-MESSAGE |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
164 is nil only the subject header will be searched, otherwise the whole |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
165 message will be searched for text matching SUBJECT. Return nil to |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
166 indicate that SUBJECT is not found, non-nil otherwise." |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
167 (save-restriction |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
168 (narrow-to-region |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
169 (rmail-desc-get-start msg) |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
170 (rmail-desc-get-end msg)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
171 (goto-char (point-min)) |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
172 (if whole-message |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
173 (re-search-forward subject nil t) |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
174 (string-match subject (let ((subj (mail-header-get-header "Subject"))) |
37955
e1400bd914f0
(rmail-message-subject-p): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
37614
diff
changeset
|
175 (if subj |
e1400bd914f0
(rmail-message-subject-p): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
37614
diff
changeset
|
176 (funcall rmail-summary-line-decoder subj) |
e1400bd914f0
(rmail-message-subject-p): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
37614
diff
changeset
|
177 "")))))) |
3443
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
178 |
16344
ec0f59ba6768
(rmail-summary-by-senders, rmail-summary): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16242
diff
changeset
|
179 ;;;###autoload |
3443
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
180 (defun rmail-summary-by-senders (senders) |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
181 "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
|
182 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
|
183 (interactive "sSenders to summarize by: ") |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
184 (rmail-new-summary |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
185 (concat "senders " senders) |
5507
0a6c0e720ece
(rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents:
5370
diff
changeset
|
186 (list 'rmail-summary-by-senders senders) |
3443
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
187 'rmail-message-senders-p |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
188 (mail-comma-list-regexp senders))) |
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
189 |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
190 ;; mbox: ready to define and execute test |
3443
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
191 (defun rmail-message-senders-p (msg senders) |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
192 "Return an indication of ..." |
3443
7a15b35366f8
(rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3349
diff
changeset
|
193 (save-restriction |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
194 (narrow-to-region |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
195 (rmail-desc-get-start msg) |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
196 (rmail-desc-get-end msg)) |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
197 (goto-char (point-mix)) |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
198 (string-match senders (or (mail-header-get-header "From") "")))) |
130 | 199 |
88130 | 200 ;;;; General making of a summary buffer. |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
201 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
202 (defvar rmail-summary-symbol-number 0) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
203 |
88130 | 204 ;;; mbox: ready |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
205 (defun rmail-new-summary (description redo-form function &rest args) |
130 | 206 "Create a summary of selected messages. |
207 DESCRIPTION makes part of the mode line of the summary buffer. | |
208 For each message, FUNCTION is applied to the message number and ARGS... | |
209 and if the result is non-nil, that message is included. | |
210 nil for FUNCTION means all messages." | |
211 (message "Computing summary lines...") | |
88130 | 212 (let ((summary-msgs ()) |
213 (new-summary-line-count 0) | |
214 (msgnum 1) | |
215 current-message sumbuf was-in-summary) | |
88146
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
216 (save-excursion |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
217 ;; Go to the Rmail buffer. |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
218 (if (eq major-mode 'rmail-summary-mode) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
219 (setq was-in-summary t)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
220 (set-buffer rmail-buffer) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
221 ;; Find its summary buffer, or make one. |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
222 (setq current-message rmail-current-message |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
223 sumbuf |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
224 (if (and rmail-summary-buffer |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
225 (buffer-name rmail-summary-buffer)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
226 rmail-summary-buffer |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
227 (generate-new-buffer (concat (buffer-name) "-summary")))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
228 ;; Collect the message summaries based on the filtering |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
229 ;; argument (FUNCTION). |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
230 (while (>= rmail-total-messages msgnum) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
231 (if (or (null function) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
232 (apply function (cons msgnum args))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
233 (setq summary-msgs |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
234 (cons (cons msgnum (rmail-summary-get-summary msgnum)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
235 summary-msgs))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
236 (setq msgnum (1+ msgnum))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
237 (setq summary-msgs (nreverse summary-msgs)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
238 ;; Place the collected summaries into the summary buffer. |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
239 (setq rmail-summary-buffer nil) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
240 (save-excursion |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
241 (let ((rbuf (current-buffer)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
242 (vbuf rmail-view-buffer) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
243 (total rmail-total-messages)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
244 (set-buffer sumbuf) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
245 ;; Set up the summary buffer's contents. |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
246 (let ((buffer-read-only nil)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
247 (erase-buffer) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
248 (while summary-msgs |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
249 (princ (cdr (car summary-msgs)) sumbuf) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
250 (setq summary-msgs (cdr summary-msgs))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
251 (goto-char (point-min))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
252 ;; Set up the rest of its state and local variables. |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
253 (setq buffer-read-only t) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
254 (rmail-summary-mode) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
255 (make-local-variable 'minor-mode-alist) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
256 (setq minor-mode-alist (list (list t (concat ": " description)))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
257 (setq rmail-buffer rbuf |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
258 rmail-view-buffer vbuf |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
259 rmail-summary-redo redo-form |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
260 rmail-total-messages total |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
261 rmail-current-message current-message))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
262 (setq rmail-summary-buffer sumbuf)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
263 ;; 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
|
264 (or was-in-summary |
88146
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
265 (progn |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
266 (if (and (one-window-p) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
267 pop-up-windows (not pop-up-frames)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
268 ;; If there is just one window, put the summary on the top. |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
269 (progn |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
270 (split-window (selected-window) rmail-summary-window-size) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
271 (select-window (next-window (frame-first-window))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
272 (pop-to-buffer sumbuf) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
273 ;; If pop-to-buffer did not use that window, delete that |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
274 ;; window. (This can happen if it uses another frame.) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
275 (if (not (eq sumbuf (window-buffer (frame-first-window)))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
276 (delete-other-windows))) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
277 (pop-to-buffer sumbuf)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
278 (set-buffer rmail-buffer) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
279 ;; This is how rmail makes the summary buffer reappear. |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
280 ;; We do this here to make the window the proper size. |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
281 (rmail-select-summary nil) |
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
282 (set-buffer rmail-summary-buffer))) |
88146
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
283 (rmail-summary-goto-msg current-message nil t) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
284 (rmail-summary-construct-io-menu) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
285 (message "Computing summary lines...done"))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
286 |
88130 | 287 ;;;; Low levels of generating a summary. |
130 | 288 |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
289 ;;;###autoload |
17631 | 290 (defcustom rmail-summary-line-decoder (function identity) |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
291 "*Function to decode summary-line. |
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
292 |
17631 | 293 By default, `identity' is set." |
294 :type 'function | |
295 :group 'rmail-summary) | |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
296 |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
297 ;; mbox: not ready |
130 | 298 (defun rmail-make-summary-line-1 (msg) |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
299 (goto-char (rmail-desc-get-start msg)) |
130 | 300 (let* ((lim (save-excursion (forward-line 2) (point))) |
88130 | 301 (labels |
302 (progn | |
303 (forward-char 3) | |
304 (concat | |
130 | 305 ; (if (save-excursion (re-search-forward ",answered," lim t)) |
306 ; "*" "") | |
307 ; (if (save-excursion (re-search-forward ",filed," lim t)) | |
308 ; "!" "") | |
309 (if (progn (search-forward ",,") (eolp)) | |
310 "" | |
311 (concat "{" | |
312 (buffer-substring (point) | |
88155 | 313 (progn (end-of-line) |
314 (backward-char) | |
315 (if (looking-at ",") | |
316 (point) | |
317 (1+ (point))))) | |
318 " } "))))) | |
130 | 319 (line |
320 (progn | |
321 (forward-line 1) | |
322 (if (looking-at "Summary-line: ") | |
323 (progn | |
324 (goto-char (match-end 0)) | |
88130 | 325 (buffer-substring (point) |
326 (progn (forward-line 1) (point))))))) | |
327 pos) | |
328 | |
130 | 329 ;; Obsolete status lines lacking a # should be flushed. |
330 (and line | |
331 (not (string-match "#" line)) | |
332 (progn | |
333 (delete-region (point) | |
334 (progn (forward-line -1) (point))) | |
335 (setq line nil))) | |
336 ;; If we didn't get a valid status line from the message, | |
337 ;; make a new one and put it in the message. | |
338 (or line | |
339 (let* ((case-fold-search t) | |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
340 (next (rmail-desc-get-end msg)) |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
341 (beg (if (progn (goto-char (rmail-desc-get-start msg)) |
130 | 342 (search-forward "\n*** EOOH ***\n" next t)) |
343 (point) | |
344 (forward-line 1) | |
345 (point))) | |
346 (end (progn (search-forward "\n\n" nil t) (point)))) | |
347 (save-restriction | |
348 (narrow-to-region beg end) | |
349 (goto-char beg) | |
350 (setq line (rmail-make-basic-summary-line))) | |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
351 (goto-char (rmail-desc-get-start msg)) |
130 | 352 (forward-line 2) |
353 (insert "Summary-line: " line))) | |
354 (setq pos (string-match "#" line)) | |
355 (aset rmail-summary-vector (1- msg) | |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
356 (funcall rmail-summary-line-decoder |
39567 | 357 (concat (format "%5d " msg) |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
358 (substring line 0 pos) |
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
359 labels |
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
360 (substring line (1+ pos))))) |
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
361 )) |
130 | 362 |
28487
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
363 ;;;###autoload |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
364 (defcustom rmail-user-mail-address-regexp nil |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
365 "*Regexp matching user mail addresses. |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
366 If non-nil, this variable is used to identify the correspondent |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
367 when receiving new mail. If it matches the address of the sender, |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
368 the recipient is taken as correspondent of a mail. |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
369 If nil \(default value\), your `user-login-name' and `user-mail-address' |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
370 are used to exclude yourself as correspondent. |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
371 |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
372 Usually you don't have to set this variable, except if you collect mails |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
373 sent by you under different user names. |
46130
d38c5a87f842
(rmail-user-mail-address-regexp): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
43481
diff
changeset
|
374 Then it should be a regexp matching your mail addresses. |
28487
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
375 |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
376 Setting this variable has an effect only before reading a mail." |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
377 :type '(choice (const :tag "None" nil) regexp) |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
378 :group 'rmail-retrieve |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
379 :version "21.1") |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
380 |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
381 ;; mbox: not ready |
130 | 382 (defun rmail-make-basic-summary-line () |
383 (goto-char (point-min)) | |
384 (concat (save-excursion | |
385 (if (not (re-search-forward "^Date:" nil t)) | |
386 " " | |
387 (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" | |
388 (save-excursion (end-of-line) (point)) t) | |
389 (format "%2d-%3s" | |
88155 | 390 (string-to-number (buffer-substring |
391 (match-beginning 2) | |
392 (match-end 2))) | |
130 | 393 (buffer-substring |
394 (match-beginning 4) (match-end 4)))) | |
395 ((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)" | |
396 (save-excursion (end-of-line) (point)) t) | |
397 (format "%2d-%3s" | |
88155 | 398 (string-to-number (buffer-substring |
399 (match-beginning 4) | |
400 (match-end 4))) | |
130 | 401 (buffer-substring |
402 (match-beginning 2) (match-end 2)))) | |
15582
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
403 ((re-search-forward "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)" |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
404 (save-excursion (end-of-line) (point)) t) |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
405 (format "%2s%2s%2s" |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
406 (buffer-substring |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
407 (match-beginning 2) (match-end 2)) |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
408 (buffer-substring |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
409 (match-beginning 3) (match-end 3)) |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
410 (buffer-substring |
2066a7282df9
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Miles Bader <miles@gnu.org>
parents:
15509
diff
changeset
|
411 (match-beginning 4) (match-end 4)))) |
130 | 412 (t "??????")))) |
413 " " | |
414 (save-excursion | |
415 (if (not (re-search-forward "^From:[ \t]*" nil t)) | |
416 " " | |
417 (let* ((from (mail-strip-quoted-names | |
418 (buffer-substring | |
419 (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
|
420 ;; 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
|
421 ;; 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
|
422 ;; 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
|
423 (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
|
424 (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
|
425 (looking-at "[ \t]"))) |
88155 | 426 ;; Back up over newline, then trailing |
427 ;; spaces or tabs | |
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
|
428 (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
|
429 (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
|
430 (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
|
431 len mch lo) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
432 (if (string-match |
88155 | 433 (or rmail-user-mail-address-regexp |
28487
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
434 (concat "^\\(" |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
435 (regexp-quote (user-login-name)) |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
436 "\\($\\|@\\)\\|" |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
437 (regexp-quote |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
438 ;; Don't lose if run from init file |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
439 ;; where user-mail-address is not |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
440 ;; set yet. |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
441 (or user-mail-address |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
442 (concat (user-login-name) "@" |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
443 (or mail-host-address |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
444 (system-name))))) |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
445 "\\>\\)")) |
653e53467c66
(rmail-user-mail-address-regexp): New option.
Gerd Moellmann <gerd@gnu.org>
parents:
28180
diff
changeset
|
446 from) |
130 | 447 (save-excursion |
448 (goto-char (point-min)) | |
449 (if (not (re-search-forward "^To:[ \t]*" nil t)) | |
450 nil | |
451 (setq from | |
452 (concat "to: " | |
453 (mail-strip-quoted-names | |
454 (buffer-substring | |
455 (point) | |
456 (progn (end-of-line) | |
457 (skip-chars-backward " \t") | |
458 (point))))))))) | |
459 (setq len (length from)) | |
460 (setq mch (string-match "[@%]" from)) | |
461 (format "%25s" | |
462 (if (or (not mch) (<= len 25)) | |
463 (substring from (max 0 (- len 25))) | |
464 (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
|
465 (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
|
466 ((< len (+ mch 11)) |
130 | 467 (- 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
|
468 (t (- mch 14)))) |
130 | 469 (min len (+ lo 25)))))))) |
16389
30e3d4ddca44
(rmail-summary-line-count-flag): Renamed from rmail-summary-line-count-p.
Richard M. Stallman <rms@gnu.org>
parents:
16388
diff
changeset
|
470 (if rmail-summary-line-count-flag |
16388
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
471 (save-excursion |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
472 (save-restriction |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
473 (widen) |
88136
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
474 (let ((beg (rmail-desc-get-start rmail-current-message)) |
31edc813b710
(rmail-message-subject-p, rmail-message-senders-p): Rewrite for mbox
Paul Reilly <pmr@pajato.com>
parents:
88130
diff
changeset
|
475 (end (rmail-desc-get-end rmail-current-message)) |
16388
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
476 lines) |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
477 (save-excursion |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
478 (goto-char beg) |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
479 ;; Count only lines in the reformatted header, |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
480 ;; if we have reformatted it. |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
481 (search-forward "\n*** EOOH ***\n" end t) |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
482 (setq lines (count-lines (point) end))) |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
483 (format (cond |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
484 ((<= lines 9) " [%d]") |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
485 ((<= lines 99) " [%d]") |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
486 ((<= lines 999) " [%3d]") |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
487 (t "[%d]")) |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
488 lines)))) |
9f29d4bcdc98
(rmail-summary-line-count-p): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16344
diff
changeset
|
489 " ") |
14681
27bbf45f3393
(rmail-make-basic-summary-line): Fix previous change.
Erik Naggum <erik@naggum.no>
parents:
14675
diff
changeset
|
490 " #" ;The # is part of the format. |
130 | 491 (if (re-search-forward "^Subject:" nil t) |
492 (progn (skip-chars-forward " \t") | |
493 (buffer-substring (point) | |
494 (progn (end-of-line) | |
495 (point)))) | |
496 (re-search-forward "[\n][\n]+" nil t) | |
497 (buffer-substring (point) (progn (end-of-line) (point)))) | |
498 "\n")) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
499 |
88130 | 500 ;;;; Simple motion in a summary buffer. |
130 | 501 |
502 (defun rmail-summary-next-all (&optional number) | |
88130 | 503 "Move to an nearby message. |
504 If NUMBER is positive then move forward NUMBER messages. If NUMBER is | |
505 negative then move backwards NUMBER messages. If NUMBER is nil then | |
506 move forward one message." | |
130 | 507 (interactive "p") |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
508 (forward-line (if number number 1)) |
9540
cde03222210e
(rmail-summary-previous-all)
Richard M. Stallman <rms@gnu.org>
parents:
9482
diff
changeset
|
509 ;; It doesn't look nice to move forward past the last message line. |
cde03222210e
(rmail-summary-previous-all)
Richard M. Stallman <rms@gnu.org>
parents:
9482
diff
changeset
|
510 (and (eobp) (> number 0) |
cde03222210e
(rmail-summary-previous-all)
Richard M. Stallman <rms@gnu.org>
parents:
9482
diff
changeset
|
511 (forward-line -1)) |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
512 (display-buffer rmail-buffer)) |
130 | 513 |
514 (defun rmail-summary-previous-all (&optional number) | |
515 (interactive "p") | |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
516 (forward-line (- (if number number 1))) |
9540
cde03222210e
(rmail-summary-previous-all)
Richard M. Stallman <rms@gnu.org>
parents:
9482
diff
changeset
|
517 ;; It doesn't look nice to move forward past the last message line. |
cde03222210e
(rmail-summary-previous-all)
Richard M. Stallman <rms@gnu.org>
parents:
9482
diff
changeset
|
518 (and (eobp) (< number 0) |
cde03222210e
(rmail-summary-previous-all)
Richard M. Stallman <rms@gnu.org>
parents:
9482
diff
changeset
|
519 (forward-line -1)) |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
520 (display-buffer rmail-buffer)) |
130 | 521 |
88130 | 522 ;;; mbox: ready |
130 | 523 (defun rmail-summary-next-msg (&optional number) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
524 "Display next non-deleted msg from rmail file. |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
525 With optional prefix argument NUMBER, moves forward this number of |
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
526 non-deleted messages, or backward if NUMBER is negative." |
130 | 527 (interactive "p") |
88130 | 528 (let (msg) |
529 (with-current-buffer rmail-buffer | |
530 (rmail-next-undeleted-message number) | |
531 (setq msg rmail-current-message)) | |
532 (rmail-summary-goto-msg msg))) | |
130 | 533 |
88130 | 534 ;;; mbox: ready |
130 | 535 (defun rmail-summary-previous-msg (&optional number) |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
536 "Display previous non-deleted msg from rmail file. |
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
537 With optional prefix argument NUMBER, moves backward this number of |
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
538 non-deleted messages." |
130 | 539 (interactive "p") |
540 (rmail-summary-next-msg (- (if number number 1)))) | |
541 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
542 (defun rmail-summary-next-labeled-message (n labels) |
88130 | 543 "Show next message with LABEL. Defaults to last labels used. |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
544 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
|
545 (interactive "p\nsMove to next msg with labels: ") |
15658
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
546 (let (msg) |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
547 (save-excursion |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
548 (set-buffer rmail-buffer) |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
549 (rmail-next-labeled-message n labels) |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
550 (setq msg rmail-current-message)) |
88130 | 551 (setq rmail-current-message msg))) |
130 | 552 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
553 (defun rmail-summary-previous-labeled-message (n labels) |
88130 | 554 "Show previous message with LABEL. Defaults to last labels used. |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
555 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
|
556 (interactive "p\nsMove to previous msg with labels: ") |
15658
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
557 (let (msg) |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
558 (save-excursion |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
559 (set-buffer rmail-buffer) |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
560 (rmail-previous-labeled-message n labels) |
996e272e9192
(rmail-summary-next-labeled-message)
Karl Heuer <kwzh@gnu.org>
parents:
15645
diff
changeset
|
561 (setq msg rmail-current-message)) |
88130 | 562 (setq rmail-current-message msg))) |
10663
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
563 |
88130 | 564 ;;; mbox: ready |
10663
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
565 (defun rmail-summary-next-same-subject (n) |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
566 "Go to the next message in the summary having the same subject. |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
567 With prefix argument N, do this N times. |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
568 If N is negative, go backwards." |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
569 (interactive "p") |
88130 | 570 (let (found) |
571 (with-current-buffer rmail-buffer | |
572 (rmail-next-same-subject n) | |
573 (setq found rmail-current-message)) | |
574 | |
10663
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
575 (if found |
88130 | 576 (setq rmail-current-message found |
577 rmail-summary-skip-rmail t)))) | |
88155 | 578 |
88130 | 579 ;;; mbox: ready |
10663
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
580 (defun rmail-summary-previous-same-subject (n) |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
581 "Go to the previous message in the summary having the same subject. |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
582 With prefix argument N, do this N times. |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
583 If N is negative, go forwards instead." |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
584 (interactive "p") |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
585 (rmail-summary-next-same-subject (- n))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
586 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
587 ;; Delete and undelete summary commands. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
588 |
88130 | 589 ;;; mbox: ready |
17484
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
590 (defun rmail-summary-delete-forward (&optional count) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
591 "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
|
592 Deleted messages stay in the file until the \\[rmail-expunge] command is given. |
17484
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
593 A prefix argument serves as a repeat count; |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
594 a negative argument means to delete and move backward." |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
595 (interactive "p") |
17867
4b87104dcbc7
(rmail-summary-delete-forward): Force the
Richard M. Stallman <rms@gnu.org>
parents:
17631
diff
changeset
|
596 (unless (numberp count) (setq count 1)) |
17484
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
597 (let (end del-msg |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
598 (backward (< count 0))) |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
599 (while (/= count 0) |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
600 (rmail-summary-goto-msg) |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
601 (with-current-buffer rmail-buffer |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
602 (rmail-delete-message) |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
603 (setq del-msg rmail-current-message)) |
5370
45ed020959f1
(rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents:
5275
diff
changeset
|
604 (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
|
605 (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
|
606 (save-excursion (beginning-of-line) |
9151
02bee4d2de9a
(rmail-summary-delete-forward): Regexp for recognizing deleted message
Richard M. Stallman <rms@gnu.org>
parents:
8997
diff
changeset
|
607 (looking-at " *[0-9]+D"))) |
9545
0773b7048206
(rmail-summary-delete-forward): Don't move fwd to eob.
Richard M. Stallman <rms@gnu.org>
parents:
9540
diff
changeset
|
608 (forward-line (if backward -1 1))) |
17484
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
609 (setq count |
88130 | 610 (if (> count 0) (1- count) (1+ count)))) |
611 | |
612 ;; Update the summary buffer current message counter and show the | |
613 ;; message in the Rmail buffer. | |
614 (rmail-summary-goto-msg (rmail-summary-get-message-at-point)))) | |
130 | 615 |
17484
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
616 (defun rmail-summary-delete-backward (&optional count) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
617 "Delete this message and move to previous nondeleted one. |
17484
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
618 Deleted messages stay in the file until the \\[rmail-expunge] command is given. |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
619 A prefix argument serves as a repeat count; |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
620 a negative argument means to delete and move forward." |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
621 (interactive "p") |
3303fa112347
(rmail-summary-delete-forward): Argument is now a repeat count.
Richard M. Stallman <rms@gnu.org>
parents:
17096
diff
changeset
|
622 (rmail-summary-delete-forward (- count))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
623 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
624 (defun rmail-summary-mark-deleted (&optional n undel) |
14293
87b4bd8fea26
(rmail-make-basic-summary-line): Include msg line number.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
625 ;; Since third arg is t, this only alters the summary, not the Rmail buf. |
88130 | 626 (and n (rmail-summary-goto-msg n t)) |
3100
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
627 (or (eobp) |
10489
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
628 (not (overlay-get rmail-summary-overlay 'face)) |
3100
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
629 (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
|
630 (skip-chars-forward " ") |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
631 (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
|
632 (if undel |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
633 (if (looking-at "D") |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
634 (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
|
635 (delete-char 1) |
eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
636 (insert "D")))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
637 (beginning-of-line)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
638 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
639 (defun rmail-summary-mark-undeleted (n) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
640 (rmail-summary-mark-deleted n t)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
641 |
88130 | 642 ;;; mbox: ready |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
643 (defun rmail-summary-deleted-p (&optional n) |
88130 | 644 (unless n |
645 (setq n rmail-current-message) | |
646 (with-current-buffer rmail-buffer | |
647 (rmail-desc-deleted-p n)))) | |
130 | 648 |
88130 | 649 ;;; mbox: not sure. |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
650 (defun rmail-summary-undelete (&optional arg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
651 "Undelete current message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
652 Optional prefix ARG means undelete ARG previous messages." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
653 (interactive "p") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
654 (if (/= arg 1) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
655 (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
|
656 (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
|
657 (opoint (point))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
658 (end-of-line) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
659 (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
|
660 (replace-match "\\1 ") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
661 (rmail-summary-goto-msg) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
662 (if rmail-enable-mime |
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
663 (set-buffer rmail-buffer) |
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
664 (pop-to-buffer rmail-buffer)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
665 (and (rmail-message-deleted-p rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
666 (rmail-undelete-previous-message)) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
667 (if rmail-enable-mime |
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
668 (pop-to-buffer rmail-view-buffer)) |
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
|
669 (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
|
670 (t (goto-char opoint)))))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
671 |
88130 | 672 ;;; mbox: ready for testing |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
673 (defun rmail-summary-undelete-many (&optional n) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
674 "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
|
675 (interactive "P") |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
676 (save-excursion |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
677 (set-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
678 (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
|
679 (rmail-current-message init-msg) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
680 (n (or n rmail-total-messages)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
681 (msgs-undeled 0)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
682 (while (and (> rmail-current-message 0) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
683 (< msgs-undeled n)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
684 (if (rmail-message-deleted-p rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
685 (progn (rmail-set-attribute "deleted" nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
686 (setq msgs-undeled (1+ msgs-undeled)))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
687 (setq rmail-current-message (1- rmail-current-message))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
688 (set-buffer rmail-summary-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
689 (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
|
690 (while (and (> rmail-current-message 0) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
691 (< msgs-undeled n)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
692 (if (rmail-summary-deleted-p rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
693 (progn (rmail-summary-mark-undeleted rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
694 (setq msgs-undeled (1+ msgs-undeled)))) |
88130 | 695 (setq rmail-current-message (1- rmail-current-message)))))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
696 |
130 | 697 ;; Rmail Summary mode is suitable only for specially formatted data. |
698 (put 'rmail-summary-mode 'mode-class 'special) | |
699 | |
700 (defun rmail-summary-mode () | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
701 "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
|
702 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
|
703 corresponding mail messages in the rmail buffer. |
130 | 704 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
705 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
|
706 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
|
707 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
|
708 |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
709 These additional commands exist: |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
710 |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
711 \\[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
|
712 \\[rmail-summary-wipe] Delete the summary and go to the Rmail buffer. |
130 | 713 |
5121
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
714 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
|
715 |
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
716 \\[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
|
717 \\[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
|
718 \\[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
|
719 \\[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
|
720 \\[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
|
721 \\[rmail-summary-sort-by-lines] Sort by lines. |
37590
003e23c611eb
(rmail-summary-sort-by-labels): Renamed
Gerd Moellmann <gerd@gnu.org>
parents:
36746
diff
changeset
|
722 \\[rmail-summary-sort-by-labels] Sort by labels." |
130 | 723 (interactive) |
724 (kill-all-local-variables) | |
725 (setq major-mode 'rmail-summary-mode) | |
726 (setq mode-name "RMAIL Summary") | |
727 (setq truncate-lines t) | |
728 (setq buffer-read-only t) | |
729 (set-syntax-table text-mode-syntax-table) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
730 (make-local-variable 'rmail-buffer) |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
731 (make-local-variable 'rmail-view-buffer) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
732 (make-local-variable 'rmail-total-messages) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
733 (make-local-variable 'rmail-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
734 (setq rmail-current-message nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
735 (make-local-variable 'rmail-summary-redo) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
736 (setq rmail-summary-redo nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
737 (make-local-variable 'revert-buffer-function) |
9482
7330d8566c13
* rmailsum.el: (rmail-summary-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
9448
diff
changeset
|
738 (make-local-variable 'font-lock-defaults) |
7330d8566c13
* rmailsum.el: (rmail-summary-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
9448
diff
changeset
|
739 (setq font-lock-defaults '(rmail-summary-font-lock-keywords t)) |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
740 (rmail-summary-enable) |
88155 | 741 (run-mode-hooks 'rmail-summary-mode-hook)) |
130 | 742 |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
743 ;; Summary features need to be disabled during edit mode. |
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
744 (defun rmail-summary-disable () |
6726 | 745 (use-local-map text-mode-map) |
14362
55ffd73831cb
Use make-local-hook for post-command-hook
Simon Marshall <simon@gnu.org>
parents:
14293
diff
changeset
|
746 (remove-hook 'post-command-hook 'rmail-summary-rmail-update t) |
6726 | 747 (setq revert-buffer-function nil)) |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
748 |
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
749 (defun rmail-summary-enable () |
6726 | 750 (use-local-map rmail-summary-mode-map) |
14362
55ffd73831cb
Use make-local-hook for post-command-hook
Simon Marshall <simon@gnu.org>
parents:
14293
diff
changeset
|
751 (add-hook 'post-command-hook 'rmail-summary-rmail-update nil t) |
6726 | 752 (setq revert-buffer-function 'rmail-update-summary)) |
6724
6728ad7f85e9
(rmail-summary-disable): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6717
diff
changeset
|
753 |
16242
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
754 (defvar rmail-summary-put-back-unseen nil |
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
755 "Used for communicating between calls to `rmail-summary-rmail-update'. |
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
756 If it moves to a message within an Incremental Search, and removes |
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
757 the `unseen' attribute from that message, it sets this flag |
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
758 so that if the next motion between messages is in the same Incremental |
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
759 Search, the `unseen' attribute is restored.") |
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
760 |
2164
6e276a32aef1
(rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
2077
diff
changeset
|
761 ;; 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
|
762 ;; 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
|
763 ;; 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
|
764 (defun rmail-summary-rmail-update () |
88130 | 765 "Update the Rmail summary buffer. |
766 Put the cursor on the beginning of the line containing the current | |
767 message and highlight the buffer." | |
88155 | 768 (let (buffer-read-only) |
769 (save-excursion | |
770 ;; If at end of buffer, pretend we are on the last text line. | |
771 (if (eobp) | |
772 (forward-line -1)) | |
773 ;; Determine the message number correpsonding to line point is on. | |
774 (beginning-of-line) | |
775 (skip-chars-forward " ") | |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
776 (let ((msg-num (string-to-number (buffer-substring |
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
777 (point) |
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
778 (progn (skip-chars-forward "0-9") |
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
779 (point)))))) |
16242
fa3885bdc49c
(rmail-summary-next-same-subject): Don't set
Richard M. Stallman <rms@gnu.org>
parents:
15658
diff
changeset
|
780 |
88155 | 781 ;; Always leave `unseen' removed if we get out of isearch mode. |
782 ;; Don't let a subsequent isearch restore `unseen'. | |
783 (if (not isearch-mode) | |
784 (setq rmail-summary-put-back-unseen nil)) | |
785 (or (eq rmail-current-message msg-num) | |
786 (let ((window (get-buffer-window rmail-view-buffer t)) | |
787 (owin (selected-window))) | |
788 (if isearch-mode | |
789 (save-excursion | |
790 (set-buffer rmail-buffer) | |
791 ;; If we first saw the previous message in this | |
792 ;; search, and we have gone to a different message | |
793 ;; while searching, put back `unseen' on the former | |
794 ;; one. | |
795 (if rmail-summary-put-back-unseen | |
796 (rmail-set-attribute "unseen" t | |
797 rmail-current-message)) | |
798 ;; Arrange to do that later, for the new current message, | |
799 ;; if it still has `unseen'. | |
800 (setq rmail-summary-put-back-unseen | |
801 (rmail-message-labels-p msg-num ", ?\\(unseen\\),"))) | |
802 (setq rmail-summary-put-back-unseen nil)) | |
803 | |
804 ;; Go to the desired message. | |
805 (setq rmail-current-message msg-num) | |
806 | |
807 ;; Update the summary to show the message has been seen. | |
808 (if (= (following-char) ?-) | |
809 (progn | |
810 (delete-char 1) | |
811 (insert " "))) | |
812 | |
813 (if window | |
814 ;; Using save-window-excursion would cause the new value | |
815 ;; of point to get lost. | |
816 (unwind-protect | |
817 (progn | |
818 (select-window window) | |
819 (rmail-show-message msg-num t)) | |
820 (select-window owin)) | |
821 (if (buffer-name rmail-buffer) | |
822 (save-excursion | |
823 (set-buffer rmail-buffer) | |
824 (rmail-show-message msg-num t)))))) | |
825 (rmail-summary-update-highlight nil))))) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
826 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
827 (if rmail-summary-mode-map |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
828 nil |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
829 (setq rmail-summary-mode-map (make-keymap)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
830 (suppress-keymap rmail-summary-mode-map) |
19111
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
831 |
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
832 (define-key rmail-summary-mode-map [mouse-2] 'rmail-summary-mouse-goto-message) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
833 (define-key rmail-summary-mode-map "a" 'rmail-summary-add-label) |
15488
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
834 (define-key rmail-summary-mode-map "b" 'rmail-summary-bury) |
88130 | 835 (define-key rmail-summary-mode-map "B" 'rmail-summary-browse-body) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
836 (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
|
837 (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
|
838 (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
|
839 (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
|
840 (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
|
841 (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
|
842 (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
|
843 (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
|
844 (define-key rmail-summary-mode-map "j" 'rmail-summary-goto-msg) |
26809
db949b28b6b4
(rmail-summary-mode-map): Bind RET to rmail-summary-goto-msg.
Gerd Moellmann <gerd@gnu.org>
parents:
24849
diff
changeset
|
845 (define-key rmail-summary-mode-map "\C-m" 'rmail-summary-goto-msg) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
846 (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
|
847 (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
|
848 (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
|
849 (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
|
850 (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
|
851 (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
|
852 (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
|
853 (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
|
854 (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
|
855 (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
|
856 (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
|
857 (define-key rmail-summary-mode-map "\e\C-n" 'rmail-summary-next-labeled-message) |
88130 | 858 (define-key rmail-summary-mode-map "o" 'rmail-summary-output) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
859 (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
|
860 (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
|
861 (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
|
862 (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
|
863 (define-key rmail-summary-mode-map "q" 'rmail-summary-quit) |
22203
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
864 (define-key rmail-summary-mode-map "Q" 'rmail-summary-wipe) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
865 (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
|
866 (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
|
867 (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
|
868 (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
|
869 (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
|
870 (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
|
871 (define-key rmail-summary-mode-map "x" 'rmail-summary-expunge) |
22203
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
872 (define-key rmail-summary-mode-map "w" 'rmail-summary-output-body) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
873 (define-key rmail-summary-mode-map "." 'rmail-summary-beginning-of-message) |
88155 | 874 (define-key rmail-summary-mode-map "/" 'rmail-summary-end-of-message) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
875 (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
|
876 (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
|
877 (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
|
878 (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
|
879 (define-key rmail-summary-mode-map "?" 'describe-mode) |
10663
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
880 (define-key rmail-summary-mode-map "\C-c\C-n" 'rmail-summary-next-same-subject) |
b0bf7d40a75d
(rmail-summary-next-same-subject): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10489
diff
changeset
|
881 (define-key rmail-summary-mode-map "\C-c\C-p" 'rmail-summary-previous-same-subject) |
3879
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
882 (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
|
883 'rmail-summary-sort-by-date) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
884 (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
|
885 'rmail-summary-sort-by-subject) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
886 (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
|
887 'rmail-summary-sort-by-author) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
888 (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
|
889 'rmail-summary-sort-by-recipient) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
890 (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
|
891 'rmail-summary-sort-by-correspondent) |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
892 (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
|
893 'rmail-summary-sort-by-lines) |
6717
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
894 (define-key rmail-summary-mode-map "\C-c\C-s\C-k" |
37590
003e23c611eb
(rmail-summary-sort-by-labels): Renamed
Gerd Moellmann <gerd@gnu.org>
parents:
36746
diff
changeset
|
895 'rmail-summary-sort-by-labels) |
2077
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 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
898 ;;; Menu bar bindings. |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
899 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
900 (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
|
901 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
902 (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
|
903 (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
|
904 |
8635
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
905 (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
|
906 '("Output (Rmail Menu)..." . rmail-summary-output-menu)) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
907 |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
908 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
12033
f7638ab47de7
Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
11519
diff
changeset
|
909 '("Input Rmail File (menu)..." . rmail-input-menu)) |
8635
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
910 |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
911 (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
|
912 '(nil)) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
913 |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
914 (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
|
915 '(nil)) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
916 |
22203
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
917 (define-key rmail-summary-mode-map [menu-bar classify output-body] |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
918 '("Output (body)..." . rmail-summary-output-body)) |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
919 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
920 (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
|
921 '("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
|
922 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
923 (define-key rmail-summary-mode-map [menu-bar classify output] |
88130 | 924 '("Output (Rmail)..." . rmail-summary-output)) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
925 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
926 (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
|
927 '("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
|
928 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
929 (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
|
930 '("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
|
931 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
932 (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
|
933 (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
|
934 |
15509
015c38409ce5
(rmail-summary-mode-map): Add rmail-summary-by-senders.
Richard M. Stallman <rms@gnu.org>
parents:
15488
diff
changeset
|
935 (define-key rmail-summary-mode-map [menu-bar summary senders] |
015c38409ce5
(rmail-summary-mode-map): Add rmail-summary-by-senders.
Richard M. Stallman <rms@gnu.org>
parents:
15488
diff
changeset
|
936 '("By Senders..." . rmail-summary-by-senders)) |
015c38409ce5
(rmail-summary-mode-map): Add rmail-summary-by-senders.
Richard M. Stallman <rms@gnu.org>
parents:
15488
diff
changeset
|
937 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
938 (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
|
939 '("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
|
940 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
941 (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
|
942 '("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
|
943 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
944 (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
|
945 '("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
|
946 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
947 (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
|
948 '("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
|
949 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
950 (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
|
951 '("All" . rmail-summary)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
952 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
953 (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
|
954 (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
|
955 |
8419
711098a43695
(rmail-summary-mode-map): Fix the Get New Mail entry.
Richard M. Stallman <rms@gnu.org>
parents:
8392
diff
changeset
|
956 (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
|
957 '("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
|
958 |
8421
6f13961ee63e
(rmail-summary-mode-map): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
8419
diff
changeset
|
959 (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
|
960 '("----")) |
8379
466112a5ae5a
(rmail-summary-mode-map): Add Re-send menu item.
Richard M. Stallman <rms@gnu.org>
parents:
7421
diff
changeset
|
961 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
962 (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
|
963 '("Continue" . rmail-summary-continue)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
964 |
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
|
965 (define-key rmail-summary-mode-map [menu-bar mail resend] |
9448
99ec41e9cb2e
(rmail-summary-resend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9432
diff
changeset
|
966 '("Re-send..." . rmail-summary-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
|
967 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
968 (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
|
969 '("Forward" . rmail-summary-forward)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
970 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
971 (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
|
972 '("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
|
973 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
974 (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
|
975 '("Reply" . rmail-summary-reply)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
976 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
977 (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
|
978 '("Mail" . rmail-summary-mail)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
979 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
980 (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
|
981 (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
|
982 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
983 (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
|
984 '("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
|
985 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
986 (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
|
987 '("Expunge" . rmail-summary-expunge)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
988 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
989 (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
|
990 '("Undelete" . rmail-summary-undelete)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
991 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
992 (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
|
993 '("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
|
994 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
995 (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
|
996 (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
|
997 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
998 (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
|
999 '("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
|
1000 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1001 (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
|
1002 '("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
|
1003 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1004 (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
|
1005 '("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
|
1006 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1007 (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
|
1008 '("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
|
1009 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1010 (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
|
1011 '("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
|
1012 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1013 (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
|
1014 '("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
|
1015 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1016 (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
|
1017 '("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
|
1018 |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1019 (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
|
1020 '("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
|
1021 |
19111
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1022 (defun rmail-summary-mouse-goto-message (event) |
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1023 "Select the message whose summary line you click on." |
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1024 (interactive "@e") |
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1025 (goto-char (posn-point (event-end event))) |
88130 | 1026 (setq rmail-current-message (rmail-summary-get-message-at-point)) |
1027 (rmail-summary-rmail-update)) | |
1028 | |
1029 (defun rmail-summary-get-message-at-point () | |
1030 "Return the message number corresponding to the line containing point. | |
1031 If the summary buffer contains no messages, nil is returned." | |
1032 (save-excursion | |
1033 ;; Position point at the beginning of a line. | |
1034 (if (eobp) | |
1035 (forward-line -1) | |
1036 (forward-line 0)) | |
1037 ;; Parse the message number. | |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1038 (string-to-number |
88130 | 1039 (buffer-substring (point) (min (point-max) (+ 4 (point))))))) |
88155 | 1040 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1041 (defun rmail-summary-goto-msg (&optional n nowarn skip-rmail) |
19111
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1042 "Go to message N in the summary buffer and the Rmail buffer. |
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1043 If N is nil, use the message corresponding to point in the summary |
88130 | 1044 buffer and move to that message in the Rmail buffer. |
19111
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1045 |
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1046 If NOWARN, don't say anything if N is out of range. |
e561070ee48c
(rmail-summary-mouse-goto-message): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17867
diff
changeset
|
1047 If SKIP-RMAIL, don't do anything to the Rmail buffer." |
130 | 1048 (interactive "P") |
1049 (if (consp n) (setq n (prefix-numeric-value n))) | |
88130 | 1050 ;; Do the end of buffer adjustment. |
130 | 1051 (if (eobp) (forward-line -1)) |
1052 (beginning-of-line) | |
88130 | 1053 ;; Set N to the current message unless it was already set by the |
1054 ;; caller. | |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1055 (unless n (setq n (rmail-summary-get-message-at-point))) |
88155 | 1056 (let* ((obuf (current-buffer)) |
1057 (buf rmail-buffer) | |
1058 (cur (point)) | |
1059 message-not-found | |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1060 (curmsg (string-to-number |
88155 | 1061 (buffer-substring (point) |
1062 (min (point-max) (+ 6 (point)))))) | |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1063 (total (with-current-buffer buf |
88155 | 1064 rmail-total-messages))) |
1065 ;; Do a validity check on N. If it is valid then set the current | |
1066 ;; summary message to N. `rmail-summary-rmail-update' will then | |
1067 ;; actually move point to the selected message. | |
1068 (if (< n 1) | |
1069 (progn (message "No preceding message") | |
1070 (setq n 1))) | |
1071 (if (and (> n total) | |
1072 (> total 0)) | |
1073 (progn (message "No following message") | |
1074 (goto-char (point-max)) | |
1075 (rmail-summary-goto-msg nil nowarn skip-rmail))) | |
1076 (goto-char (point-min)) | |
88159
052f90cd157d
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88155
diff
changeset
|
1077 (if (not (re-search-forward (format "^%5d[^0-9]" n) nil t)) |
88155 | 1078 (progn (or nowarn (message "Message %d not found" n)) |
1079 (setq n curmsg) | |
1080 (setq message-not-found t) | |
1081 (goto-char cur))) | |
1082 (beginning-of-line) | |
1083 (skip-chars-forward " ") | |
1084 (skip-chars-forward "0-9") | |
1085 (save-excursion (if (= (following-char) ?-) | |
1086 (let ((buffer-read-only nil)) | |
1087 (delete-char 1) | |
1088 (insert " ")))) | |
1089 (rmail-summary-update-highlight message-not-found) | |
1090 (beginning-of-line) | |
1091 ;; Determine if the Rmail buffer needs to be processed. | |
1092 (if skip-rmail | |
1093 nil | |
1094 ;; It does. | |
1095 (let ((selwin (selected-window))) | |
1096 (unwind-protect | |
1097 (progn (pop-to-buffer buf) | |
1098 (rmail-show-message n)) | |
1099 (select-window selwin) | |
1100 ;; The actions above can alter the current buffer. Preserve it. | |
1101 (set-buffer obuf)))))) | |
10489
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1102 |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1103 ;; Update the highlighted line in an rmail summary buffer. |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1104 ;; That should be current. We highlight the line point is on. |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1105 ;; If NOT-FOUND is non-nil, we turn off highlighting. |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1106 (defun rmail-summary-update-highlight (not-found) |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1107 ;; Make sure we have an overlay to use. |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1108 (or rmail-summary-overlay |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1109 (progn |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1110 (make-local-variable 'rmail-summary-overlay) |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1111 (setq rmail-summary-overlay (make-overlay (point) (point))))) |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1112 ;; If this message is in the summary, use the overlay to highlight it. |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1113 ;; Otherwise, don't highlight anything. |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1114 (if not-found |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1115 (overlay-put rmail-summary-overlay 'face nil) |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1116 (move-overlay rmail-summary-overlay |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1117 (save-excursion (beginning-of-line) |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1118 (skip-chars-forward " ") |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1119 (point)) |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1120 (save-excursion (end-of-line) (point))) |
5906e2f35eb9
(rmail-summary-update-highlight): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10142
diff
changeset
|
1121 (overlay-put rmail-summary-overlay 'face 'highlight))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1122 |
130 | 1123 (defun rmail-summary-scroll-msg-up (&optional dist) |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1124 "Scroll the Rmail window forward. |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1125 If the Rmail window is displaying the end of a message, |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1126 advance to the next message." |
130 | 1127 (interactive "P") |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1128 (if (eq dist '-) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1129 (rmail-summary-scroll-msg-down nil) |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
1130 (let ((rmail-buffer-window (get-buffer-window rmail-view-buffer))) |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1131 (if rmail-buffer-window |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1132 (if (let ((rmail-summary-window (selected-window))) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1133 (select-window rmail-buffer-window) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1134 (prog1 |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1135 ;; Is EOB visible in the buffer? |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1136 (save-excursion |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1137 (let ((ht (window-height (selected-window)))) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1138 (move-to-window-line (- ht 2)) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1139 (end-of-line) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1140 (eobp))) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1141 (select-window rmail-summary-window))) |
14940
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
1142 (if (not rmail-summary-scroll-between-messages) |
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
1143 (error "End of buffer") |
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
1144 (rmail-summary-next-msg (or dist 1))) |
17096
4a2d9b3990e3
(rmail-new-summary): Setup rmail-view-buffer.
Kenichi Handa <handa@m17n.org>
parents:
16676
diff
changeset
|
1145 (let ((other-window-scroll-buffer rmail-view-buffer)) |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1146 (scroll-other-window dist))) |
16676
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1147 ;; If it isn't visible at all, show the beginning. |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1148 (rmail-summary-beginning-of-message))))) |
130 | 1149 |
1150 (defun rmail-summary-scroll-msg-down (&optional dist) | |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1151 "Scroll the Rmail window backward. |
16676
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1152 If the Rmail window is now displaying the beginning of a message, |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1153 move to the previous message." |
130 | 1154 (interactive "P") |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1155 (if (eq dist '-) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1156 (rmail-summary-scroll-msg-up nil) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1157 (let ((rmail-buffer-window (get-buffer-window rmail-view-buffer))) |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1158 (if rmail-buffer-window |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1159 (if (let ((rmail-summary-window (selected-window))) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1160 (select-window rmail-buffer-window) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1161 (prog1 |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1162 ;; Is BOB visible in the buffer? |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1163 (save-excursion |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1164 (move-to-window-line 0) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1165 (beginning-of-line) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1166 (bobp)) |
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1167 (select-window rmail-summary-window))) |
14940
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
1168 (if (not rmail-summary-scroll-between-messages) |
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
1169 (error "Beginning of buffer") |
9dceb7afbb68
(rmail-summary-scroll-between-messages): New var.
Richard M. Stallman <rms@gnu.org>
parents:
14786
diff
changeset
|
1170 (rmail-summary-previous-msg (or dist 1))) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1171 (let ((other-window-scroll-buffer rmail-view-buffer)) |
10030
f0264fb75509
(rmail-summary-scroll-msg-up): If at end of message,
Richard M. Stallman <rms@gnu.org>
parents:
9545
diff
changeset
|
1172 (scroll-other-window-down dist))) |
16676
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1173 ;; If it isn't visible at all, show the beginning. |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1174 (rmail-summary-beginning-of-message))))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1175 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1176 (defun rmail-summary-beginning-of-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1177 "Show current message from the beginning." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1178 (interactive) |
88155 | 1179 (rmail-summary-show-message 'BEG)) |
1180 | |
1181 (defun rmail-summary-end-of-message () | |
1182 "Show bottom of current message." | |
1183 (interactive) | |
1184 (rmail-summary-show-message 'END)) | |
1185 | |
1186 (defun rmail-summary-show-message (where) | |
1187 "Show current mail message. | |
1188 Position it according to WHERE which can be BEG or END" | |
16676
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1189 (if (and (one-window-p) (not pop-up-frames)) |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1190 ;; If there is just one window, put the summary on the top. |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1191 (let ((buffer rmail-view-buffer)) |
16676
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1192 (split-window (selected-window) rmail-summary-window-size) |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1193 (select-window (frame-first-window)) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1194 (pop-to-buffer rmail-view-buffer) |
16676
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1195 ;; If pop-to-buffer did not use that window, delete that |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1196 ;; window. (This can happen if it uses another frame.) |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1197 (or (eq buffer (window-buffer (next-window (frame-first-window)))) |
82e54a854639
(rmail-summary-beginning-of-message):
Richard M. Stallman <rms@gnu.org>
parents:
16389
diff
changeset
|
1198 (delete-other-windows))) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1199 (pop-to-buffer rmail-view-buffer)) |
88155 | 1200 (cond |
1201 ((eq where 'BEG) | |
1202 (goto-char (point-min)) | |
1203 (search-forward "\n\n")) | |
1204 ((eq where 'END) | |
1205 (goto-char (point-max)) | |
1206 (recenter (1- (window-height)))) | |
1207 ) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1208 (pop-to-buffer rmail-summary-buffer)) |
130 | 1209 |
15488
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1210 (defun rmail-summary-bury () |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1211 "Bury the Rmail buffer and the Rmail summary buffer." |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1212 (interactive) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1213 (let ((buffer-to-bury (current-buffer))) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1214 (let (window) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1215 (while (setq window (get-buffer-window rmail-buffer)) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1216 (set-window-buffer window (other-buffer rmail-buffer))) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1217 (bury-buffer rmail-buffer)) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1218 (switch-to-buffer (other-buffer buffer-to-bury)) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1219 (bury-buffer buffer-to-bury))) |
fd4273de8c97
(rmail-summary-bury): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15409
diff
changeset
|
1220 |
130 | 1221 (defun rmail-summary-quit () |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1222 "Quit out of Rmail and Rmail summary." |
130 | 1223 (interactive) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1224 (rmail-summary-wipe) |
130 | 1225 (rmail-quit)) |
1226 | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1227 (defun rmail-summary-wipe () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1228 "Kill and wipe away Rmail summary, remaining within Rmail." |
130 | 1229 (interactive) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1230 (save-excursion (set-buffer rmail-buffer) (setq rmail-summary-buffer nil)) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1231 (let ((local-rmail-buffer rmail-view-buffer)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1232 (kill-buffer (current-buffer)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1233 ;; Delete window if not only one. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1234 (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
|
1235 (delete-window)) |
5121
864d3ca7f2b6
(rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents:
5006
diff
changeset
|
1236 ;; 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
|
1237 (pop-to-buffer local-rmail-buffer))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1238 |
88130 | 1239 ;;; mbox: ready |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1240 (defun rmail-summary-expunge () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1241 "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
|
1242 (interactive) |
88130 | 1243 (set-buffer rmail-buffer) |
1244 (rmail-expunge) | |
1245 (set-buffer rmail-summary-buffer)) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1246 |
88130 | 1247 ;;; mbox: ready |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1248 (defun rmail-summary-expunge-and-save () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1249 "Expunge and save RMAIL file." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1250 (interactive) |
88130 | 1251 (set-buffer rmail-buffer) |
1252 (rmail-expunge) | |
1253 (save-buffer) | |
1254 (set-buffer rmail-summary-buffer) | |
5861
882894a8c217
(rmail-summary-expunge-and-save): Mark summary buffer as unmodified.
Karl Heuer <kwzh@gnu.org>
parents:
5709
diff
changeset
|
1255 (set-buffer-modified-p nil)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1256 |
88130 | 1257 ;;; mbox: ready |
19570
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1258 (defun rmail-summary-get-new-mail (&optional file-name) |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1259 "Get new mail and recompute summary headers. |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1260 |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1261 Optionally you can specify the file to get new mail from. In this case, |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1262 the file of new mail is not changed or deleted. Noninteractively, you can |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1263 pass the inbox file name as an argument. Interactively, a prefix |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1264 argument says to read a file name and use that file as the inbox." |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1265 (interactive |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1266 (list (if current-prefix-arg |
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1267 (read-file-name "Get new mail from file: ")))) |
88130 | 1268 (let (current-message) |
1269 (with-current-buffer rmail-buffer | |
19570
a2a72d1e0970
(rmail-summary-get-new-mail):
Richard M. Stallman <rms@gnu.org>
parents:
19111
diff
changeset
|
1270 (rmail-get-new-mail file-name) |
88130 | 1271 (setq current-message rmail-current-message)) |
1272 (rmail-summary-goto-msg current-message nil t))) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1273 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1274 (defun rmail-summary-input (filename) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1275 "Run Rmail on file FILENAME." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1276 (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
|
1277 ;; 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
|
1278 (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
|
1279 (rmail filename)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1280 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1281 (defun rmail-summary-first-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1282 "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
|
1283 (interactive) |
88155 | 1284 (with-no-warnings |
1285 (beginning-of-buffer))) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1286 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1287 (defun rmail-summary-last-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1288 "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
|
1289 (interactive) |
88155 | 1290 (with-no-warnings |
1291 (end-of-buffer)) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1292 (forward-line -1)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1293 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1294 (defvar rmail-summary-edit-map nil) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1295 (if rmail-summary-edit-map |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1296 nil |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1297 (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
|
1298 (nconc (make-sparse-keymap) text-mode-map)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1299 (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
|
1300 (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
|
1301 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1302 (defun rmail-summary-edit-current-message () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1303 "Edit the contents of this message." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1304 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1305 (pop-to-buffer rmail-buffer) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1306 (rmail-edit-current-message) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1307 (use-local-map rmail-summary-edit-map)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1308 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1309 (defun rmail-summary-cease-edit () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1310 "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
|
1311 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1312 (rmail-cease-edit) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1313 (pop-to-buffer rmail-summary-buffer)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1314 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1315 (defun rmail-summary-abort-edit () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1316 "Abort edit of current message; restore original contents. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1317 Go back to summary buffer." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1318 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1319 (rmail-abort-edit) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1320 (pop-to-buffer rmail-summary-buffer)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1321 |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1322 (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
|
1323 "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
|
1324 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
|
1325 backwards (through earlier messages). |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1326 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
|
1327 (interactive |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1328 (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
|
1329 (prompt |
88155 | 1330 (concat (if reversep "Reverse " "") "Rmail search (regexp")) |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1331 regexp) |
88155 | 1332 (setq prompt |
1333 (concat prompt | |
1334 (if rmail-search-last-regexp | |
1335 (concat ", default " | |
1336 rmail-search-last-regexp "): ") | |
1337 "): "))) | |
3862
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1338 (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
|
1339 (cond ((not (equal regexp "")) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1340 (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
|
1341 ((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
|
1342 (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
|
1343 (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
|
1344 (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
|
1345 ;; 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
|
1346 ;; 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
|
1347 (let ((buffer (current-buffer))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1348 (unwind-protect |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1349 (progn |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1350 (set-buffer rmail-buffer) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1351 (rmail-search regexp (- n))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1352 (set-buffer buffer)))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1353 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1354 (defun rmail-summary-search (regexp &optional n) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1355 "Show message containing next match for REGEXP. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1356 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
|
1357 backwards (through earlier messages). |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1358 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
|
1359 (interactive |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1360 (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
|
1361 (prompt |
88155 | 1362 (concat (if reversep "Reverse " "") "Rmail search (regexp")) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1363 regexp) |
88155 | 1364 (setq prompt |
1365 (concat prompt | |
1366 (if rmail-search-last-regexp | |
1367 (concat ", default " | |
1368 rmail-search-last-regexp "): ") | |
1369 "): "))) | |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1370 (setq regexp (read-string prompt)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1371 (cond ((not (equal regexp "")) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1372 (setq rmail-search-last-regexp regexp)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1373 ((not rmail-search-last-regexp) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1374 (error "No previous Rmail search string"))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1375 (list rmail-search-last-regexp |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1376 (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
|
1377 ;; 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
|
1378 ;; 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
|
1379 (let ((buffer (current-buffer))) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1380 (unwind-protect |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1381 (progn |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1382 (set-buffer rmail-buffer) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1383 (rmail-search regexp n)) |
d65e83bd1120
(rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents:
3509
diff
changeset
|
1384 (set-buffer buffer)))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1385 |
88130 | 1386 ;;; mbox: ready |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1387 (defun rmail-summary-toggle-header () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1388 "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
|
1389 (interactive) |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1390 (with-current-buffer rmail-buffer |
88130 | 1391 (rmail-toggle-header))) |
11175
025aeb70cfed
(rmail-summary-toggle-header): Make header visible in message buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10784
diff
changeset
|
1392 |
88130 | 1393 ;;; mbox: ready |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1394 (defun rmail-summary-add-label (label) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1395 "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
|
1396 Completion is performed over known labels when reading." |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1397 (interactive (list (with-current-buffer rmail-buffer |
3461
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1398 (rmail-read-label "Add label")))) |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1399 (with-current-buffer rmail-buffer |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1400 (rmail-add-label label))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1401 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1402 (defun rmail-summary-kill-label (label) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1403 "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
|
1404 Completion is performed over known labels when reading." |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1405 (interactive (list (with-current-buffer rmail-buffer |
3461
1dec1449324d
(rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents:
3443
diff
changeset
|
1406 (rmail-read-label "Kill label")))) |
88166
d20b1cfca610
(rmail-new-summary): Make sure summary buffer is current when selecting message.
Henrik Enberg <henrik.enberg@telia.com>
parents:
88160
diff
changeset
|
1407 (with-current-buffer rmail-buffer |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1408 (rmail-set-label label nil))) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1409 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1410 ;;;; *** Rmail Summary Mailing Commands *** |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1411 |
36746
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1412 (defun rmail-summary-override-mail-send-and-exit () |
88130 | 1413 "Replace bindings to 'mail-send-and-exit with 'rmail-summary-send-and-exit" |
36746
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1414 (use-local-map (copy-keymap (current-local-map))) |
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1415 (dolist (key (where-is-internal 'mail-send-and-exit)) |
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1416 (define-key (current-local-map) key 'rmail-summary-send-and-exit))) |
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1417 |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1418 (defun rmail-summary-mail () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1419 "Send mail in another window. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1420 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
|
1421 original message into it." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1422 (interactive) |
10784
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1423 (let ((window (get-buffer-window rmail-buffer))) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1424 (if window |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1425 (select-window window) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1426 (set-buffer rmail-buffer))) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1427 (rmail-start-mail nil nil nil nil nil (current-buffer)) |
36746
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1428 (rmail-summary-override-mail-send-and-exit)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1429 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1430 (defun rmail-summary-continue () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1431 "Continue composing outgoing message previously being composed." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1432 (interactive) |
10784
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1433 (let ((window (get-buffer-window rmail-buffer))) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1434 (if window |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1435 (select-window window) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1436 (set-buffer rmail-buffer))) |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1437 (rmail-start-mail t)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1438 |
88130 | 1439 ;;; mbox: ready |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1440 (defun rmail-summary-reply (just-sender) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1441 "Reply to the current message. |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1442 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
|
1443 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
|
1444 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
|
1445 (interactive "P") |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1446 (let ((window (get-buffer-window rmail-view-buffer))) |
10784
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1447 (if window |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1448 (select-window window) |
37614
17db314acfc2
(rmail-message-subject-p): Process the result
Gerd Moellmann <gerd@gnu.org>
parents:
37590
diff
changeset
|
1449 (set-buffer rmail-view-buffer))) |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1450 (rmail-reply just-sender) |
36746
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1451 (rmail-summary-override-mail-send-and-exit)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1452 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1453 (defun rmail-summary-retry-failure () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1454 "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
|
1455 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
|
1456 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
|
1457 (interactive) |
10784
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1458 (let ((window (get-buffer-window rmail-buffer))) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1459 (if window |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1460 (select-window window) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1461 (set-buffer rmail-buffer))) |
5709
85119c3098a0
Fix rmail summary commands to work with rmail-mail-new-frame.
Karl Heuer <kwzh@gnu.org>
parents:
5678
diff
changeset
|
1462 (rmail-retry-failure) |
36746
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1463 (rmail-summary-override-mail-send-and-exit)) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1464 |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1465 (defun rmail-summary-send-and-exit () |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1466 "Send mail reply and return to summary buffer." |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1467 (interactive) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1468 (mail-send-and-exit t)) |
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1469 |
5006
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1470 (defun rmail-summary-forward (resend) |
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1471 "Forward the current message to another user. |
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1472 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
|
1473 see the documentation of `rmail-resend'." |
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1474 (interactive "P") |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1475 (save-excursion |
10784
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1476 (let ((window (get-buffer-window rmail-buffer))) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1477 (if window |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1478 (select-window window) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1479 (set-buffer rmail-buffer))) |
5006
356f6a751fdf
(rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
4990
diff
changeset
|
1480 (rmail-forward resend) |
36746
6e4beb27bc38
(rmail-summary-override-mail-send-and-exit):
Gerd Moellmann <gerd@gnu.org>
parents:
34482
diff
changeset
|
1481 (rmail-summary-override-mail-send-and-exit))) |
9448
99ec41e9cb2e
(rmail-summary-resend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9432
diff
changeset
|
1482 |
99ec41e9cb2e
(rmail-summary-resend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9432
diff
changeset
|
1483 (defun rmail-summary-resend () |
49637
32bf542aaf1c
(rmail-summary-previous-msg): Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
49598
diff
changeset
|
1484 "Resend current message using `rmail-resend'." |
9448
99ec41e9cb2e
(rmail-summary-resend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9432
diff
changeset
|
1485 (interactive) |
99ec41e9cb2e
(rmail-summary-resend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9432
diff
changeset
|
1486 (save-excursion |
10784
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1487 (let ((window (get-buffer-window rmail-buffer))) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1488 (if window |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1489 (select-window window) |
fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
Richard M. Stallman <rms@gnu.org>
parents:
10663
diff
changeset
|
1490 (set-buffer rmail-buffer))) |
9448
99ec41e9cb2e
(rmail-summary-resend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9432
diff
changeset
|
1491 (call-interactively 'rmail-resend))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1492 |
88130 | 1493 ;;;; Summary output commands. |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1494 |
88130 | 1495 ;;; mbox: ready for testing |
24837
e8e1a22961da
(rmail-summary-output-to-rmail-file): Fix typo.
Karl Heuer <kwzh@gnu.org>
parents:
23985
diff
changeset
|
1496 (defun rmail-summary-output-to-rmail-file (&optional file-name n) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1497 "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
|
1498 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
|
1499 If file is being visited, the message is appended to the Emacs |
23221
8d1c55a12c94
(rmail-summary-output-to-rmail-file):
Karl Heuer <kwzh@gnu.org>
parents:
22546
diff
changeset
|
1500 buffer visiting that file. |
8d1c55a12c94
(rmail-summary-output-to-rmail-file):
Karl Heuer <kwzh@gnu.org>
parents:
22546
diff
changeset
|
1501 |
8d1c55a12c94
(rmail-summary-output-to-rmail-file):
Karl Heuer <kwzh@gnu.org>
parents:
22546
diff
changeset
|
1502 A prefix argument N says to output N consecutive messages |
8d1c55a12c94
(rmail-summary-output-to-rmail-file):
Karl Heuer <kwzh@gnu.org>
parents:
22546
diff
changeset
|
1503 starting with the current one. Deleted messages are skipped and don't count." |
23985
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1504 (interactive |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1505 (progn (require 'rmailout) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1506 (list (rmail-output-read-rmail-file-name) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1507 (prefix-numeric-value current-prefix-arg)))) |
24849
0e79d47f61d6
(rmail-summary-output-to-rmail-file): Avoid
Karl Heuer <kwzh@gnu.org>
parents:
24837
diff
changeset
|
1508 (let ((i 0) prev-msg) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
1509 (while |
24849
0e79d47f61d6
(rmail-summary-output-to-rmail-file): Avoid
Karl Heuer <kwzh@gnu.org>
parents:
24837
diff
changeset
|
1510 (and (< i n) |
0e79d47f61d6
(rmail-summary-output-to-rmail-file): Avoid
Karl Heuer <kwzh@gnu.org>
parents:
24837
diff
changeset
|
1511 (progn (rmail-summary-goto-msg) |
0e79d47f61d6
(rmail-summary-output-to-rmail-file): Avoid
Karl Heuer <kwzh@gnu.org>
parents:
24837
diff
changeset
|
1512 (not (eq prev-msg |
0e79d47f61d6
(rmail-summary-output-to-rmail-file): Avoid
Karl Heuer <kwzh@gnu.org>
parents:
24837
diff
changeset
|
1513 (setq prev-msg |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
1514 (with-current-buffer rmail-buffer |
24849
0e79d47f61d6
(rmail-summary-output-to-rmail-file): Avoid
Karl Heuer <kwzh@gnu.org>
parents:
24837
diff
changeset
|
1515 rmail-current-message)))))) |
23985
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1516 (setq i (1+ i)) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1517 (with-current-buffer rmail-buffer |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1518 (let ((rmail-delete-after-output nil)) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1519 (rmail-output-to-rmail-file file-name 1))) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1520 (if rmail-delete-after-output |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1521 (rmail-summary-delete-forward nil) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1522 (if (< i n) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1523 (rmail-summary-next-msg 1)))))) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1524 |
88130 | 1525 ;;; mbox: ready |
23985
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1526 (defun rmail-summary-output (&optional file-name n) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1527 "Append this message to Unix mail file named FILE-NAME. |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1528 |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1529 A prefix argument N says to output N consecutive messages |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1530 starting with the current one. Deleted messages are skipped and don't count." |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1531 (interactive |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1532 (progn (require 'rmailout) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1533 (list (rmail-output-read-file-name) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1534 (prefix-numeric-value current-prefix-arg)))) |
43481
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1535 (let ((i 0) prev-msg) |
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1536 (while |
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1537 (and (< i n) |
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1538 (progn (rmail-summary-goto-msg) |
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1539 (not (eq prev-msg |
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1540 (setq prev-msg |
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1541 (with-current-buffer rmail-buffer |
21de4f4cda23
(rmail-summary-output): Properly advance
Richard M. Stallman <rms@gnu.org>
parents:
42001
diff
changeset
|
1542 rmail-current-message)))))) |
23985
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1543 (setq i (1+ i)) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1544 (with-current-buffer rmail-buffer |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1545 (let ((rmail-delete-after-output nil)) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1546 (rmail-output file-name 1))) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1547 (if rmail-delete-after-output |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1548 (rmail-summary-delete-forward nil) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1549 (if (< i n) |
9cdc05332687
(rmail-summary-output-to-rmail-file):
Richard M. Stallman <rms@gnu.org>
parents:
23831
diff
changeset
|
1550 (rmail-summary-next-msg 1)))))) |
2077
6885836c2f98
(rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
845
diff
changeset
|
1551 |
8635
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1552 (defun rmail-summary-output-menu () |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1553 "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
|
1554 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
|
1555 The variables `rmail-secondary-file-directory' and |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1556 `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
|
1557 (interactive) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1558 (save-excursion |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1559 (set-buffer rmail-buffer) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1560 (let ((rmail-delete-after-output nil)) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1561 (call-interactively 'rmail-output-menu))) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1562 (if rmail-delete-after-output |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1563 (rmail-summary-delete-forward nil))) |
a241401a67ff
(rmail-summary-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
8547
diff
changeset
|
1564 |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1565 (defun rmail-summary-construct-io-menu () |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1566 (let ((files (rmail-find-all-files rmail-secondary-file-directory))) |
13001
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1567 (if files |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1568 (progn |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1569 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
1570 (cons "Input Rmail File" |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
1571 (rmail-list-to-menu "Input Rmail File" |
13001
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1572 files |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1573 'rmail-summary-input))) |
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1574 (define-key rmail-summary-mode-map [menu-bar classify output-menu] |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
1575 (cons "Output Rmail File" |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46130
diff
changeset
|
1576 (rmail-list-to-menu "Output Rmail File" |
13001
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1577 files |
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1578 'rmail-summary-output-to-rmail-file)))) |
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1579 (define-key rmail-summary-mode-map [menu-bar classify input-menu] |
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1580 '("Input Rmail File" . rmail-disable-menu)) |
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1581 (define-key rmail-summary-mode-map [menu-bar classify output-menu] |
7946d20948fc
(rmail-summary-construct-io-menu): Use all of FILES.
Richard M. Stallman <rms@gnu.org>
parents:
12911
diff
changeset
|
1582 '("Output Rmail File" . rmail-disable-menu))))) |
8911
3abf3f2ef6cf
(rmail-summary-construct-io-menu): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8728
diff
changeset
|
1583 |
22203
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1584 (defun rmail-summary-output-body (&optional file-name) |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1585 "Write this message body to the file FILE-NAME. |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1586 FILE-NAME defaults, interactively, from the Subject field of the message." |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1587 (interactive) |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1588 (save-excursion |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1589 (set-buffer rmail-buffer) |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1590 (let ((rmail-delete-after-output nil)) |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1591 (if file-name |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1592 (rmail-output-body-to-file file-name) |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1593 (call-interactively 'rmail-output-body-to-file)))) |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1594 (if rmail-delete-after-output |
481d174f762a
(rmail-summary-output-body): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20081
diff
changeset
|
1595 (rmail-summary-delete-forward nil))) |
3879
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1596 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1597 ;; 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
|
1598 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1599 (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
|
1600 "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
|
1601 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
|
1602 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1603 (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
|
1604 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1605 (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
|
1606 "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
|
1607 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
|
1608 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1609 (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
|
1610 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1611 (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
|
1612 "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
|
1613 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
|
1614 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1615 (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
|
1616 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1617 (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
|
1618 "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
|
1619 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
|
1620 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1621 (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
|
1622 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1623 (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
|
1624 "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
|
1625 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
|
1626 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1627 (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
|
1628 |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1629 (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
|
1630 "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
|
1631 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
|
1632 (interactive "P") |
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1633 (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
|
1634 |
37590
003e23c611eb
(rmail-summary-sort-by-labels): Renamed
Gerd Moellmann <gerd@gnu.org>
parents:
36746
diff
changeset
|
1635 (defun rmail-summary-sort-by-labels (reverse labels) |
003e23c611eb
(rmail-summary-sort-by-labels): Renamed
Gerd Moellmann <gerd@gnu.org>
parents:
36746
diff
changeset
|
1636 "Sort messages of current Rmail summary by labels. |
6717
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1637 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
|
1638 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
|
1639 (interactive "P\nsSort by labels: ") |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1640 (rmail-sort-from-summary |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1641 (function (lambda (reverse) |
37590
003e23c611eb
(rmail-summary-sort-by-labels): Renamed
Gerd Moellmann <gerd@gnu.org>
parents:
36746
diff
changeset
|
1642 (rmail-sort-by-labels reverse labels))) |
6717
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1643 reverse)) |
2121bf252398
(rmail-summary-sort-by-keywords): New function.
Karl Heuer <kwzh@gnu.org>
parents:
6688
diff
changeset
|
1644 |
3879
b8c99f30ca3f
(rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents:
3862
diff
changeset
|
1645 (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
|
1646 "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
|
1647 (require 'rmailsort) |
6582
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1648 (let ((selwin (selected-window))) |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1649 (unwind-protect |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1650 (progn (pop-to-buffer rmail-buffer) |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1651 (funcall sortfun reverse)) |
bac8e17d51b3
(rmail-sort-from-summary): Preserve window selection.
Karl Heuer <kwzh@gnu.org>
parents:
6422
diff
changeset
|
1652 (select-window selwin)))) |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
130
diff
changeset
|
1653 |
88130 | 1654 (defun rmail-summary-get-line-count (n) |
1655 "Return a string containing the count of lines in message N for the | |
1656 summary buffer if the User has enabled line counts, otherwise return | |
1657 an empty string." | |
1658 (if rmail-summary-line-count-flag | |
88159
052f90cd157d
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88155
diff
changeset
|
1659 (let ((lines (rmail-desc-get-line-count n))) |
052f90cd157d
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88155
diff
changeset
|
1660 (format (cond ((<= lines 9) " [%d]") |
052f90cd157d
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88155
diff
changeset
|
1661 ((<= lines 99) " [%d]") |
052f90cd157d
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88155
diff
changeset
|
1662 ((<= lines 999) " [%3d]") |
052f90cd157d
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88155
diff
changeset
|
1663 (t "[%d]")) |
052f90cd157d
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88155
diff
changeset
|
1664 lines)) |
88130 | 1665 "")) |
1666 | |
1667 (defun rmail-summary-get-summary-attributes (n) | |
1668 "Return the attribute character codes to use in the summary buffer | |
1669 for message N: `-' for an unseen message, `D' for a message marked | |
1670 for deletion." | |
1671 (format "%s%s%s%s%s" | |
1672 (cond ((rmail-desc-attr-p rmail-desc-unseen-index n) "-") | |
1673 ((rmail-desc-attr-p rmail-desc-deleted-index n) "D") | |
1674 (t " ")) | |
1675 (or (rmail-desc-get-attr-code rmail-desc-answered-index n) " ") | |
1676 (or (rmail-desc-get-attr-code rmail-desc-filed-index n) " ") | |
1677 (or (rmail-desc-get-attr-code rmail-desc-edited-index n) " ") | |
1678 (or (rmail-desc-get-attr-code rmail-desc-stored-index n) " "))) | |
1679 | |
1680 (defun rmail-summary-get-summary (n) | |
1681 "Return a summary line for message N." | |
88146
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1682 (funcall rmail-summary-line-decoder |
88160
a271a865e911
*** empty log message ***
Henrik Enberg <henrik.enberg@telia.com>
parents:
88159
diff
changeset
|
1683 (format "%5s%s%6s %25s%s %s\n" |
88146
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1684 n |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1685 (rmail-summary-get-summary-attributes n) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1686 (concat (rmail-desc-get-day-number n) "-" |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1687 (rmail-desc-get-month n)) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1688 (rmail-desc-get-sender n) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1689 (rmail-summary-get-line-count n) |
a64fe1ff909a
(rmail-make-summary-line): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
88136
diff
changeset
|
1690 (rmail-desc-get-subject n)))) |
88130 | 1691 |
1692 (defun rmail-summary-update-attribute (attr-index n) | |
1693 "Update the attribute denoted by ATTR-INDEX in message N." | |
1694 (save-excursion | |
1695 (let (offset) | |
1696 | |
1697 ;; Position point at the beginning of the attributes. | |
1698 (rmail-summary-goto-msg n) | |
1699 (skip-chars-forward " ") | |
1700 (skip-chars-forward "0-9") | |
1701 | |
1702 ;; Determine if the attribute is represented on the summary | |
1703 ;; line. | |
1704 (setq offset (rmail-desc-get-summary-offset attr-index)) | |
1705 (if offset | |
1706 | |
1707 ;; It is. If necessary, replace the character code | |
1708 ;; corresponding to ATTR-INDEX. | |
1709 (let ((char (rmail-desc-get-attr-code attr-index n)) | |
1710 (buffer-read-only nil)) | |
1711 (goto-char (+ (point) offset)) | |
1712 (unless (looking-at char) | |
1713 (delete-char 1) | |
1714 (insert char))))))) | |
1715 | |
29210 | 1716 (provide 'rmailsum) |
1717 | |
88155 | 1718 ;;; arch-tag: 556079ee-75c1-47f5-9884-2e0a0bc6c5a1 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
130
diff
changeset
|
1719 ;;; rmailsum.el ends here |